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HP-~71 HP-IL Module IDS - Source Listings 


KKK NOTICE KKK 


Heulett-Packard Company makes no express or inplied warranty with 
regard to the docunentation and program taterial offered or to the 
fitness of such waterial for any particular purpose. The 
docunentation and progran material is made available solely on an 
"as is" basis, and the entire risk as to its quality and 
performance 1s wath the user. Should the documentation and progran 
naterial prove defective, the user (and not Heulett-Packard Conpany 
or any other party) shall bear the entire cost of all necessary 
correction and all incidental or consequential  dariages. 
Hewlett-Packard Cornpany shall not be liable for any incidental or 
consequential damages in connection with or arising out of the 
furnishing, use, or perfornance of the documentation and progran 
naterial. 
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This volure contains the conplete source code listings for the 
HP-71 HP-IL Module. The progran todules which conprise the 
16K-byte ROM are presented here in address order according to their 
position in the ROM, fron lowest address to highest address. For 
purposes of presentation the modules are assenbled relative toa 
ROM starting address of FOOOO hex. In actuality the ROM is 
soft-configurable, and may be autoriatically configured by the HP-71 
to others sections of the address space. 


The following sections give a list of the progran nodule nanes in 
address order, followed by an alphabetical list of the nodule 
nanes. fA todule’s source file 1s denoted with an anpersand (8) in 
the file name, and its object (binary) file with a percent sign (%) 
in the file nane. 


Interface information to an entry point or poll is described ina 
docunentation header in the source file that contains that entry 
point or or handles that poll. In this preliminary version of this 
docunent, supported entry points are not yet indicated in_ the 
source listings as they are in the HP-?1 operating systen source 
listings. However, the poll interfaces and certain entry point 
interfaces will be supported. 


It is the intent of HP to preserve such supported interfaces, as 
well as the absolute address position of each supported entry 
point, through any future updates of the HP-71 HP-IL Module. In 
general this allows external software which uses these interfaces 
to work predictably without regard to the version of the HP-71 
HP-TL Module with which it is run. However, HP reserves the right 
to adjust the supported interfaces in any manner it chooses. 
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| LIST OF NODULES IN ADDRESS ORDER 


+-_——— + 
oO 
x 
xD 
~~ 
nf 
m 
= 
nM 


Address Range Module Title 


NZ2ZRST FOOOO - FOOO7 = ROM Start (Header) 
N2ZTBL  FOOO8 - FO409 ~~ Lexical Analyzer Tables--ID=FF 
NZZERR  FO4OR - FO6B4 = Error Message Table 
N2ZZDIR FO6BS - FO7C1 Directory Section 

NZZGPR  FO7C2 ~ FOFS9 General Routines 

NZZBAS  FOF9A - F1F33. BASIC Routines 

SCZENT  FIF34 - F2C95 ENTER Execution 

NZZUTL =F2C96 - F2ED6 User Utility Routines 
NZZBIF F2ED? - F362D Basic interface 

NZZIOB =F362E - F3636 8 ©I/0 Buffer Routines 
NZZDSP —s-F3637 - F3BF6 Display Driver 

NZZBUT F3BF7 - F4292 BASIC Utilities 

NZZCAS F4293 - F511A Cassette Routines 

NZZHND = F511B - F5E90 =Poll Handlers 

NZZCAT FS5SE91 - Fe6D1 HP-IL CAT 

NZ2ZIOR F66D2 - FOBD? 1/0 (NEW Mailbox) 

NZZFRA = =F6BD8 - FOD55 HP-IL Frane Routines 
NZ2ZLOW =F6D56 - FOE18 Low-level User HP-IL 
NZZFXQ  F6E19 - F74FC File Execution 
NZZPAR F74FD - F7BD2 HP-IL Parse Routines 
NZZDEC = =9F7BD3 - F7EFO HP-IL Deconpile Routines 
JPZZER F?FFC - F?FFD Zero File - ROM Checksum 
JPZZER F7FFE - F7FFF Zero File - End of chain 
NZZSYM = No Address Syribolic Assignnents 
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| 
| LIST OF MODULES SORTED BY MODULE NANE 


JPZZER 
JPZZER 
NZZBAS 
NZ“ BIF 
N24 BUT 
NZ2ZCAS 
NZZCAT 
NZZDEC 
NZZDIR 
NZZDSP 
NZZERR 
NZZFRA 
NZZF RQ 
NZ“ GPR 
NZZHND 
NZ“ 10B 
NZZ10R 
NZ% LOW 
NZZPAR 
NZZRST 
NZZSYM 
NZZTBL 
N2ZUTL 
SCZENT 


FOFFC - F?FFD 
FZPRE = EZFFE 
FOFSA - F1F33 
F2ED? - F362D 
F3BF? - F4292 
F4293 - FS11A 
F5E91 - F661 
F?7BD3 - F7EFO 
FOOBS - FO7C1 
F3637 - F3BF6 
FO40A - FO6B4 
FeBD8 ~ F6DS5 
F6E19 - F?4FC 
FO7C2 - FOF9S 
F511B - FSE9O 
F362E - F3636 
F6ed2 - FeBD? 
F6D56 - F6E18 
F?4FD - F7BD2 


FOOOO - FQ007 
No Address 
FOOO8 - FO409 


F2C96 - F2ED6 
FIF34 - F2C95 
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| 
CHAPTER 3 | 
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Zero File - ROM Checksur 
Zero File - End of chain 
BASIC Routines 

Basic interface 

BASIC Utilities 

Cassette Routines 

HP-IL CAT 

HP-IL Deconpile Routines 
Directory Section 
Display Briver 

Error Message Table 
HP-IL Frane Routines 
File Execution 

General Routines 

Poll Handlers 

I/O Buffer Routines 

1/0 (NEW Mailbox) 
Low-level User HP-IL 
HP-IL Parse Routines 

ROM Start (Header) 
Synbolic Assignnents 
Lexical Analyzer Tables--ID=FF 
User Utility Routines 
ENTER Execution 


/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLORD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOARD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 
/SLOAD: 


FORT OBO TOR IO III 
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H PPPP III L 
BP Pe ok 
BoP Pe Te 
H PPPP IL 
H P IL 
H P I oL 
H P III Lt 


BBBB 
B 
B 
BBBB 
B 
B 
BBBB 


B 
B 


B 
B 


ax 
ak 


ak 


FORO OOOO IIT TOTO RIOR 
FOTO IOI TO TI TTI 


Duplicate 
Duplicate 
Duplicate 
Duplicate 
Duplicate 
Duplicate 
Duplicate 
Duplicate 
Duplicate 
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point 
point 
point 
point 
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point 
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A-MULT 
CATC ++ 
CONVUC 
CSLC1 

CSLC10 
CSLC11 
CSLC12 
CSLO13 
CSLO14 
CSLC15 
CSLC2? 
CSLE3 
CSLC4 

CSLC5 
CSLC6 
CSLC? 

CSLC8 

CSLC9 
CSRC1 

CSRC10 
CSRC11 
CSRC12 
CSRC13 
CSRC14 
CSRC15 
CSRC2 
CSRC3 
CSRC4 

CSRC5 
CSRC6 

CSRC7 
CSRC8 
CSRC9 
D1I=AVE 
DI@AYS 
EXPEX+ 
FIND 

FINDF + 
GETST- 
NUNCK 
OUT3TC 
OUTBYT 
OUTNBC 
POP1N 
RANGE 

RDINFO 
READIN 
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in 
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in 
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in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 
in 


todules 
nodules 
nodules 
nodules 
nodules 


NZZGPR 
NZZPAR 
NZZGPR 
NZZGPR 
NZZGPR 


nodules NZZGPR 
rodules NZ/GPR 


rodules 


NZZGPR 


nodules NZ4%GPR 
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NZZGPR 
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NZZGPR 
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NZZBUT 
NZZBAS 
NZZCRS 
NZZIOR 
NZZPAR 
NZZPAR 
NZZPAR 
NZZPAR 
NZZLOW 
NZZGPR 
NZZBUT 
NZZBAS 
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TIZRES 
TIZR6ES 
TIZRES 
TIZR6S 
TIZRES 
TIZROS 
TIZROS 
TIZROS 
TIZR6ES 
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TIZROS 
TIZRES 
TIZRES 
TIZRES 
TIZR6S 
TIZRES 


/SLOAD: 
/SLOAD: 


Duplicate entry point RESPTR found in nodules NZZPAR and TIZR6S 
Duplicate entry point SENDIT found 1n nodules NZZIOR and TIZR6S 


SLOAD Rev. 2309/Ver. 1.40 


Output module: 


TIZHP?: TI: MNS: : - 
Date=Tue Jan 24, 1984 


Source nodules: 


NZZRST: NS 
Date=Tue 


NZZTBL: 2S 
Date=Tue 


NZZERR: : 48 
Date=Tue 


NZ2ZDIR: MS 
Date=Tue 


NZZGPR: : NS 
Date=Tue 


NZZBRS: NS 
Date=Tue 


SCZENT: MS 
Date=Tue 


NZZUTL: MS 
Date=Tue 


NZZBIF: : MS 
Date=Tue 


NZZ10B: : NS 
Date=Tue 


NZZDSP: NS 
Date=Tue 


NZ4BUT: 2 NS 
Date=Tue 


NZZCAS: 2 MS 
Date=Tue 


NZZHND: 24S 
Date=Tue 


NZZCAT: NS 
Date=Tue 


NZZIOR: 2 MS 
Date=Tue 


NZZFRA: MS 
Date=Tue 


1 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Jan 


Start=F0000 End=F7FFF Length=08000 Syns=2489 Refs=1605 
5:40 pm Title=(TIZR6S) HPIL Interface ROM 


Start=F0000 End=F0007 Length=00008 


17, 1984 12:21 pm Tatle=Ron start (header) <830927.1416> 
Start=F0O08 End=F0409 Length=00402 

24, 1984 5:39 pn Title=Lexical Analyzer Tables--ID=FF 
Start=FO40AR End=FO6B4 Length=002AB 

17, 1984 12:05 pn Title= 
Start=FOeBS End=FO7C1 Length=0010D 

17, 1984 12:03 pn Taitle=DIRECTORY SECTION <840106. 1804> 
Start=FO7C2 End=FOF39 Length=007D8 

17, 1984 12:08 pn Tatle=GENERAL ROUTINES <840106.1701> 
Start=FOF9A End=F1F33 Length=00F9A 

17, 1984 11:42 an Tatle=BASIC ROUTINES <840116.1657> 
Start=F1F34 End=F2C96 Length=00D62 

17, 1984 1:23 pn Title=ENTER Execution <840113.1057> 
Start=F2C96 End=F2ED6 Length=00241 

17, 1984 12:22 pn Tatle=User Utility Routines <830927.1255> 
Start=F2ED? End=F362D Length=00757 

24, 1984 5:33 pn Title=Basic interface <840124.1345> 
Start=F362E End=F3636 Length=00009 

17, 1984 12:16 pn Tatle=1/0 Buffer routines <830927.1450> 
Start=F3637 End=F3BF6 Length=005C0 

17, 1984 12:03 pn Title=Display driver <831108.0941> 
Start=F3BF? End=F4292 Length=0069C 

17, 1984 11:52 an Tatle=BASIC UTILITIES <840104.1515> 
Start=F4293 End=F511A Length=00E88 

17, 1984 11:55 an Taitle=CASSETTE ROUTINES<831221.1632> 
Start=F511B End=F5E9O Length=00076 

17, 1984 12:12 pr Tatle=POLL HANDLERS <840106.0805> 
Start=F5E91 End=F66D1 Length=00841 

17, 1984 11:59 an Tatle=HPIL CAT <840106.1936> 
Start=F66D2 End=F6BD7 Length=00506 

17, 1984 12:16 pr Tatle=I/O{NEW Mailbox )<831101.2117> 
Start=FoBlS End=F6055 Length=0017E 

17, 1984 12:96 pr Title=PIi Frane Routines<831012. 1534> 


NZZ LOW: : AS 
Date=Tue Jan 


NZZFRQ: AS 
Bate=Tue Jan 


NZZAPAR: : AS 
Date=Tue Jan 


NZZDEC: MS 
Date=Tue Jan 


NZZSYM: AS 
Date=Tue Jan 


SRARAT 
Date=flon Nov 


SAZRNT 
Date=Mon Nov 


TIZRES 
Date=Tue Jan 


Start=F6D56 End=F6E18 Length=000C3 
17, 1984 12:17 pn Title=Lou-level USER HP-IL <830927.1414> 


Start=F6E19 End=F74FC Length=006E4 
17, 1984 12:06 pm Title=File Execution <840113.1351> 


Start=F 74FD End=F7BD2 Length=006D6 
17, 1984 12:18 pr Title=NZ’S PARSE ROUTINES ¢831128.2333> 


Start=F7BD3 End=F7EFO Length=O0031E 
17, 1984 12:02 pm Title=PIL DECOMPILE ROUTINES<831027,.1220> 


Module Contains No Code 
17, 1984 12:21 pm Title=Synbolic Assignments <831220.1633> 


Start=F7FFC End=F7FFD Length=00002 
22, 1982 8:48 an Title=ROM/IRAM tail end 


Start=F7FFE End=F7FFF Length=00002 
22, 1982 8:48 an Title=ROM/IRAM tail end 


Module Contains No Code 
17, 1984 10:07 an Title=Titan External Symbol File 





Saturn 


#(K 
#Tineo 


~LINE 
1/15 


?A=CLN 
RCM 


?R=CNA 
?PRF I+ 
?PRFIL 


A-MULT 


ACCEPT 
ACOS12 
ACOS15 
ACTIVE 
AD15N 
AD15$ 
AD15s 

AD2-12 
AD2-15 
ADDF 

ADDONE 
ADDP 

ADDRSS 
ADHEAD 
ADJA 

ADIN 

RADRS40 
ADRS50 
ADRS380 
ADRSUB 
ALLDUN 
ALNSRV 
ALRM1 

ALRM2 

ALRN3 

ALRN4 

ALRMS 

ALRMo 

ALRNOG 
RALRNOS 
ANNI .5 
ANNAD1 
ANNAD? 
ANNAD3 
ANNAD4 
ARG12 
ARG15 
ARGERR 
ARGF 

ARGPR+ 
ARGFRP 
ARGST- 


Long Cross Reference Listing 


03356 
OOO1E 


16275 


OC33E 


F7EE6 
F7EDB 


F7ED8 
17380 
1737E 


FOE22 


0450F 
ODBD3 
ODBD? 
2F5R8 
00366 
OE 19D 
0C369 
OC35F 
0(363 
OC372 
0C3H 
03A03 
OF52? 
18187 
12898 
12825 
OF 52B 
OF 551 
OF 567 
OF ACF 
O4BEF 
12570 
eesig 
2F 725 
2F 731 
2F 73D 
2F 749 
2F 755 
FOERS 
FOEDA 
2£101 
2E100 
2E102 
2E 34 
cE 34E 
00676 
O06 7F 
OBF 19 
OD6A4 
OESER 
OESEF 
O£910 
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TIZROS 
N2ZSYM 


TIARES 
TIZRES 


NZADEC 
NZZDEC 


NZZDEC 
TIZROS 
TIZR6S 


NZZGPR 


TIZROS 
TIZR6S 
TIZRES 
TIZR6S 
TIZRES 
TIZROS 
TIZRES 
TIZRES 
TIZRES 
TIZR6S 
TIZROS 
TIZR6S 
TIZR6S 
TIZRES 
TIZRES 
TIZROS 
TIZRES 
TIZROS 
TIZROS 
TIZRES 
TIZRES 
TIZR6S 
TIZROS 
TIZRES 
TIZRES 
TIZROS 
TIZRES 
TIZRES 
NZZGPR 
NZZGPR 
TIZRES 
TIZRES 
TIZRES 
TIZROS 
TIZROS 
TIZROS 
TIZR6S 
TIZROS 
TIZROS 
TIZRES 
TIZROS 
TIZRGS 


+ € 4 


F16DE NZ%BAS(00744) Type=0.0 Nibs=2 


F75A6 NZZPAR(OOORS) Type=1.1 Nibs=4 Dist=00935 
F76EO NZZPAR(OO1E3) Type=1.1 Nibs=3 Dist=007FB 


F5276 NZZHND(0015B) Type=1.1 Nibs=4 Dist=04454 
F650R NZXCAT(00679) Type=1.1 Nibs=4 Dist=056E8 


ARGSTA 
ARITH 
ARLNOS 
ARRYCK 
ARYDC 
ARYELM 
ARYSIZ 
ASCICK 
ASCII 
ASGNIO 
ASGNd 
ASGNp 
ASINI2 
ASINIS 
ASLC1 
ASLC10 
ASLC114 
ASLCO12 


ASLC13 
ASLC14 
ASLO15 
ASLC2] 
ASLC3 


ASLC4 


ASLCS 
ASLC6 
ASLC? 
ASLC8 
ASLCS 
AS LW3 
AS LW4 
AS LWS 
ASNANT 
RSRC1 
ASRC10 


ASRC11 
ASRC12 
ASRC13 
ASRC14 
ASRC15 
ASRC2 

ASRC3 


ASRC4 


ASRCS 
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OE 900 
061E0 
FOEC2 
0366A 
05178 
OB5SA? 
0B61B 
O514E 
00 73B 
F19CD 
F7D06 
F769 
ODBC8 
ODBC 
FOF 11 
FOFI9 
FOFIC 
FOF IF 


FOF 22 
FOF 25 
FOF 28 
FOFOE 
FOFOB 


FOFO8 


FOFOS 
FOFO?2 
FOEFF 
FOEFC 
FOF 16 
OED21 
OEDIE 
OED1B 
OF SEO 
FOF 28 
FOFO2 


FOFOS 
FOFO8 
FOFOB 
FOFOE 
FOF 11 
FOF 25 
FOF22 


FOF IF 


FOFIC 


TIZRES 
TIZRES 
NZZGPR 
TIZRES 
TIZRES 
TIZRES 
TIZR6S 
TIZRES 
TIZRES 
N2ZBRS 
NZZDEC 
NZZPAR 
TIZROS 
TIZROS 
NZZGPR 
N2ZGPR 
NZ2ZGPR 
NZZGPR 


NZZGPR 
NZ2ZGPR 
NZZGPR 
NZZGPR 
NZZGPR 


NZZGPR 


NZZGPR 
NZZGPR 
NZZGPR 
NZZGPR 
NZZGPR 
TIZR6S 
TIZR6S 
TIZR6S 
TIZR6S 
NZZGPR 
NZZGPR 


NZZGPR 
NZZGPR 
NZZGPR 
NZZGPR 
NZ2ZGPR 
NZZGPR 
NZZGPR 


NZZGPR 


NZZGPR 


(tite erereeyet 
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FO116 
F19C3 
F19C8 


F576C 
FOF 34 


FIREB 


F49CA 
F5248 
F1421 
F35CA 
F438D 
F43CF 
F453C 
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CSRC15 
CSRC2 


CSRC3 


CSRC4 


CSRC5 


CSRC6 
CSRC?7 
CSRC8 


CSRCI9 


CSRW3 
CSRW4 
CSRW5 
CURROT 
CURDVC 
CURREN 
CURRL 
CURRST 
CURSFL 
CURSFR 
CURSOR 


CURSRD 
CURSRT 
CURSRU 
CURTOP 
CVUCW 

Chain€ 
Checks 
CkLoop 
CkLpnc 
CkTape 
Clear 

Clear? 
CloseR 
Csilc10 


Curd ff 
NO+2RD 


DO=AVS 
DO=F IB 
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FOF42 NZZGPR 
FOF56 NZZGPR 


FOF53 NZZGPR 


FOF50 NZZGPR 


FOF4D NZZGPR 


FOF4R NZZGPR 
FOF4? NZZGPR 
FOFZD NZZGPR 


FOF 30 NZZGPR 


OED32 
OED2F 
OED2C 
10059 
OR60B 
2F56C 
2F7E8 
2F550 
181 DF 
151D7 
2F47E 


TIZRES 
TIZRES 
TIZROS 
TIZR6S 
TIZRO6S 
TIZROS 
TIZR6S 
TIZRES 
TIZR6S 
TIZROS 
TIZR6S 


100A4 
09601 
1009A 
10063 
O3F BC 
F7FFE 
FPF FC 
18669 
18660 
00005 
00005 
F3BRA 
00008 
F5BDA 


TIZRES 
TIZR6S 
TIZROS 
TIZR6S 
TIZRGS 
Define 
Define 
TIZRES 
TIZRGS 
N2ZSY¥N 
TIZR6S 
NZXDSP 
NZZSYN 
NZZHND 


00006 TIZR6S 
13A32 
O9B2C 
13AC5 


TIZR6S 
TIZARGS 
TIZRBS 


(+++ He reoeeze+etinreeyetinrestewei 


ti > +> -£ 1 t ' t 1 ‘ 1 1 ' t+. t+ * 4 ' 


F4F63 
F?7130 
F3EBB 
F4A91 
F547E 
F167E 
F40F4 
F5257 
F52R5 
F2195 
F219E 
F2586 
F273B 
FOF 
F5486 
F551C 
F5726 
F66AC 
F7AB2 


F49B6 
F4B69 
F4DB6 
F53RE 


F6647 
F 3939 


F3ACB 
F3BE4 


F028 


F3BB9 


FICEF 
F6091 
Fe1D1 
F6349 


F5433 


NZ%CAS(O0CDO) 
NZ%F KQ(00317) 
NZ%BUT(002C4) 
N2%CAS(OO7FE) 
N2%HND (00363) 
NZ%BAS(006E4) 
N2ZBUT(O04FD) 
NZ%HND (001 3C) 
NZZHND(001 8A) 
SCZENT( 00261 ) 
SCZENT(0026A) 
SCZENT( 00652) 
SCZENT (00807) 
N2%BIF(001C8) 
NZ%ZHND(0036B) 
N2ZHND (00401 ) 
NZ%HND(0060B) 
NZ%CAT(0081B) 
NZ%PAR(005B5) 


N2ZCAS(00723) 
NZZCAS(008D6 ) 
NZZCAS(00B23) 
NZZHND(00293) 


NZ%CRAT(007B6) 
NZZDSP(00302) 


NZZDSP (00494) 
NZZDSP(OO5AD) 


NZZTBL(00020) 


NZZDSP(00582) 


NZZBAS(00355) 
NZZCAT (00200 ) 
NZZCAT (00340) 
NZZCRT(004B8 ) 


NZZHND( 00318) 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=0. 
Type=0. 


Type=0. 
Type=0. 


Type=1. 


Type=0. 


Type=0. 
Type=1. 
Type=1. 
Type=1. 


Type=0. 
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Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=3 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=5 
Nibs=4 


Nibs=5 
Nibs=5 


Nibs=5 


Nibs=1 


Nibs=1 
Nibs=3 
Nibs=3 
Nibs=3 


Nibs=5 


Dist=04000 
Dist=061DA 
Dist=02F68 
Dis t=03B3E 
Dist=0452B 
Dis t=0072E 
Dist=031A4 
Dist=04H07 
Dist=04355 
Dist=01248 
Dist=01251 
Dist=01639 
Dist=017EE 
Dist=02152 
Dist=04539 
Dis t=045CF 
Dist=04709 
Dist=0575F 
Dis t=06B65 


Dist=03A89 
Dist=03C3C 
Dist=03E86 
Dist=0447E 


Dist=07FD6 


Dis t=004B7 
Dist=O05F7 
Dis t=0076F 


DO=F RO 


DO=PCA 
DO@ CUR 
DORSC+ 
DOASCT 
DIZROA 
DI=AVE 


DI=AVS 


D1=DSP 
DI=DST 


DI=DSX 
DI=S20 
DI=SCR 
DI=SDO0 
DI=SRO 
DI@AVE 


DIG@AVS 


DIC=R3 
DIF STK 
DINST+ 
DINSTK 
O=AVNE 
D=AVAS 
D=WORD 
DAT LEN 
DATPTR 
DAY2JD 
DAYYND 
DBLPI4 
DBLSUB 
DCHX=C 
DCHXF 

DCHKW 

DCONTR 
DCPLIN 
DCRNNT 
DOICTL 
DD1 END 
DD1ST 

DD2CTL 
DDZEND 
DD2ST 

DD3CTL 
DDZEND 
DD3ST 
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FSC9C 


09837 
F3BCR 
0982C 
09833 
1B8A3C 
FOF 74 


FOF 7D 


F3281 
F328R 


F3293 
F5C93 
F4A2C 
F169 
F168? 
FOF 86 


FOF 92 


03047 
1956) 
13€21 
1984E 
1A476 
{R460 
04COE 
OBS84 
2F 692 
13407 
13335 
ODAFC 
ODADD 
1B2D0 
1B223 
OECDC 
2E SFE 
10108 
1€17? 
2E 3FF 
2E34C 
2E 300 
2E2FF 
2E260 
2E200 
2E1 FF 
2£160 
2£104 


NZZHND 


TIZR6S 
NZZDSP 
TIZROS 
TIZRES 
TIZRES 
NZZGPR 


NZZGPR 


NZZBIF 
NZZBIF 


NZX BIF 
NZZHND 
NZZCAS 
NZZBRS 
NZZBAS 
NZZGPR 


NZZGPR 


TIZR6S 
TIZRES 
TIZR6S 
TIZRES 
TIZR6S 
TIZRES 
TIZROS 
TIZROS 
TIZRES 
TIAROS 
TIZR6S 
TIZR6S 
TIZRES 
TIZRES 
TIZRES 
TIZROS 
TIZR6S 
TIZR6S 
TIZR6S 
TIARES 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
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F660R NZZCAT(00779) 
F6629 NZZCAT(00798) 
F2563 SCZENT(0062F ) 


F2COC SCZENT(OOCD8) 
F3F54 NZZBUT(0035D) 
F40CD N2%BUT(004D6) 
F4614 N2%CAS(00381 ) 
FSFFB NZ%CRT(0016A) 
F253C SCZENT(00608) 
F6239 NZZCAT(003R8) 
FG6ED1 NZX%FXQ(000B8) 
F104 NZZBAS(OOREA) 
F11BF NZ%BAS(00225) 
FI95E N2%BAS(009C4 ) 
F1994 NZ2%BAS(OO9FA) 
F11B4 NZ%BAS(0021A) 


FSDC5 
F354F 


NZZHND (OOCRA) 
N2ZBIF (00678) 


F2652 SCZENT(OO71E) 
F3533 NZZBIF (0065C ) 
F66C2 NZZCAT (00831) 
FEEE2 NZZFXQ(000T3) 
F6F21 NZZFKQ(00108) 
F74B8 NZZFKQ(OO6SF ) 
F46C4 NZZCAS(00431 ) 
F6190 NZZCAT(OO2FF ) 


F28EB SCZENT(009B7) 
F2251 SCZENT(0031D) 
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Type=1. 
Type=0. 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=1. 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=0. 
Type=0. 
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Nibs=4 
Nibs=4 
Nibs=5 


Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=4 
Nibs=4 


Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=5 
Nibs=5 


F2782 SCZENT(O084E) Type=0.1 Nibs=5 


Dist=O096E 
Dist=0093D 


Dist=01098 
Dist=O2F EO 
Dist=03159 
Dist=036A0 
Dist=05087 
Dist=015BF 
Dist=052BC 
Dist=O05F 54 
Dist=0187D 
Dist=020CB 
Dist=0192C 
Dist=018F6 
Dist=020DF 


Dist=01399 
Dist=01EBF 


Dist=016CC 
Dist=025AD 
Dist=0573C 
Dist=05F5C 
Dist=O5F 9B 
Dist=06532 
Dist=03732 
Dist=O51FE 


DDL 


DOT 


DEBNCE 
DECHEX 
DECP 

DEF ADC 
DEFADR 
DELAYT 
DELAYp 
DEST 

DEVID 
DEVPAR 
DEVPRS 
DEVSPp 
DEVTYP 
DISINT 
DISPDC 
DISPIS 
DISPP 
DISPt 

DIVF 

DNNSN 
DONNA 

DPART2 
DPART3 
pPOs 

DPVCTR 
DRANGE 
DROPDC 
DSLEEP 
DSP $00 
DSPBFE 
DSPBFS 


DSPBUF 
DSPCAT 
DSPCHA 
DSPCHC 
DSPCHX 
DSPCL? 
OSPCNA 
DSPCNB 
DSPCNO 
DSPDGT 
DSPFAT 
DSPLI+ 
DSPLIN 
DSPNSK 
DSPRST 
DSPSET 
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F6BBR 


F6BCS 


OOCF? 
1B82D2 
0328F 
O52FC 
2F 967 
2F 948 
o2AC6 
OF 7B0 
F1B39 
FIC8S 
FICCB 
F78B2 
FIC3C 
2F470 
05450 
F1142 
035A4 


0C4B8 
ORE 39 
09656 
17ER3 
17EF8 
2F 94D 
ORC5O 
18076 
05470 
00560 
185DB 
2F 540 
2F 480 


09723 
F6606 
O1C3E 
01C3C 
2F 674 
02086 
09721 
O971F 
09716 
2FenD 
2F eb 
1010F 
10127 
2F 540 
02443 
2F 7B1 


NZXIOR 


NZZIOR 


TIZRES 
TIZROS 
TIZROS 
TIZRES 
TIZROS 
TIZROS 
TIZR6S 
TIZRES 
NZZBAS 
NZZBAS 
NZZBAS 
NZ%PAR 
NZZBAS 
TIZRES 
TIZROS 
NZZBAS 
TIZR6S 
TIZR6S 
TIZROS 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZROS 
TIZROS 
TIZRES 
TIZR6S 
TIZRES 
TIZROS 
TIZRES 
TIZRES 


TIZROS 
N2ZCAT 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
TIZRO6S 
TIZROS 
TIZRES 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
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FOBAE NZZGPR(O03EC ) 
F166F NZZBAS(006D5) 
F4A39 NZZCAS(0O7A6 ) 
FSC8F NZZHND(00B74 ) 
FOB60 NZZGPR(0039E ) 
FI2FF NZZBAS(00365 ) 
F4A54 NZZCAS(00701) 
F6388 NZZCAT(OO4F 7) 


F2C56 SCZENT(00D22) 


FOOCE NZZTBL(OO0CE ) 


F6OCC NZZCAT(0023B) 
FO6D1 NZZDIR(0001C) 
FOOD? NZZTBL(OOOCF ) 


F7C2D NZZDEC(0005A) 
FO170 NZZTBL(00168) 
F7518 NZZPAR(0001B) 


F37B4 NZ%DSP(0017D) 
F37D3 NZZDSP(00190) 
F3ABF NZZDSP(00488 ) 


F3295 NZXBIF (003BE ) 
F391C NZZDSP(002E5) 


F3OA8 NZZBIF (00101) 
F328C NZXBIF(003B5) 
F364F NZZ0SP(00018) 
F3bEG NZZDSP(OOORS | 
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Type=1. 
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Type=1. 
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Type=0.0 


Type=1.2 


Type=1.4 
Type=1.2 
Type=1.2 


Type=0. 1 
Type=1.2 
Type=0,1 


Type=0.0 
Type=0.0 
Type=0.0 


Type=0.0 
Type=0. 4 


Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 


Nibs=4 Dist=0600C 
Nibs=4 Dist=0554B 
Nibs=4 Dist=02181 
Nibs=4 Dist=00F 2B 
Nibs=4 Dist=06069 
Nibs=4 Dist=058CA 
Nibs=4 Dist=02175 
Nibs=4 Dist=00841 


Nibs=5 


Nibs=5 Dist=01A6B 


Nibs=4 Dist=04401 
Nibs=5 Dist=071E1 
Nibs=5 Dist=01B65 


Nibs=5 
Nibs=5 Dist=O0F D2 
Nibs=5 


Nibs=2 Of fset= 
Nibs=5 
Nibs=5 


Nibs=5 
Nibs=5 


Nibs=6 
Nibs=5 
Nibs=4 
Nibs=4 
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DSPSTA 


DSPUPD 
DSTROC 
DTOH 


DV15M 
DV15S 
DV2-12 
DV2-15 
DVCPn* 
DVCPy* 
OVCSPp 
DV LBp 
DV SPp 
OVZNIB 
DWIDTH 
DXP100 
DZP 
DdlPur 


DdtRd 
DevID 


DevTyp 


Device 


Digit 
DispOK 


BsAddr 
DsBevI 
DsDevT 
DsLoop 


DsNull 
DsVolL 
EDIT&O 


EDITWF 
EFTELD 
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2F475 


01ADA 
05280 
FOD6? 


Oc4Ac 
OC4B2 
OC4A8 
OC4AC 
F790 
F79B7 
F73BR 
F788D 
F78B5 
2F 6FC 
2F S4F 
OCF ?F 
00003 
F5C73 


F4A3D 
0003F 


OO01F 


QOO0A 


00001 
Q000B 


00000 
00002 
00001 
00005 


00004 
00003 
OASRS 


0A533 
00000 


TIZROS 


TIZROS 
TIZRES 
NZZGPR 


TIZROS 
TIZRES 
TIZROS 
TIZRES 
NZZPAR 
NZZPAR 
NZZPAR 
NZZPAR 
NZZPAR 
TIZROS 
TIZR6S 
TIZROS 
TIZROS 
NZZHND 


NZZCAS 
NZZSYM 


NZZSYN 


NZZSYM 


NZZPAR 
NZZSYM 


NZZSYM 
NZZSYM 
NZZSYM 
NZZSYM 


N2ZSYN 
N2ZSYN 
TIZR6S 


TIZROS 
TIZROS 
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F3920 
F3997 
F3C61 
F 390F 
F3923 
F39D2 
F3BAC 


F28A1 
F70E5 
F712A 
F7198 


F4ER3 
F5O01C 
FSA2?7 
FORZ3 
F3D86 
F7256 
FOSBF 
F3D5E 
F4033 
F4250 
F7OF5 
FOCOB 
FOCE2 


F2FAD 
F 3669 
F 368A 
F 369A 
F36D0 
F 3994 
F3C6E 


FOSB9 
FIF6A 
F357D 
FOSA3 
F3DF5 


NZZDSP(002F6) Type=0.0 
NZ2ZDSP(00360) Type=0.0 
NZZBUT(O006A) Type=0.0 
NZ2ZDSP(002D8) Type=0.0 
NZZDSP(OO2EC) Type=0.0 
NZZDSP(0039B) Type=0.0 
NZZDSP(00575) Type=0.0 


SCZENT(0096D) Type=1.1 
NZZFKQ(OO2(C) Type=1.1 
NZZF XQ(00311) Type=1.1 
NZZFKQ(O037F) Type=1.1 


NZZCAS(00C10) Type=1. 
NZZCAS(00D89) Type=1. 
NZZHND(OO90C) Type=1. 
NZ%GPR(00261) Type=0. 
NZZBUT(0018F) Type=0. 
NZ%FXQ(0043D) Type=0. 
NZZGPR(OO1FD) Type=0. 
N2ZBUT(00167) Type=0. 
NZZBUT(0043C) Type=0. 
NZZBUT(00659) Type=0. 
NZZFXQ(OO2DC) Type=0. 
NZZGPR(00443) Type=0. 
NZZGPR(O04R0) Type=0. 


NZ2%BIF(000D6) Type=0. 
NZZDSP(00032) Type=0. 
NZZDSP(00053) Type=0. 
NZ~DSP(00063) Type=0. 
NZZDSP(OOOARE6) Type=0. 
NZZDSP(0035D) Type=0. 
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1 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

NZ%BUT (00077) Type=0.0 


NZZGPR(001F7) Type=0.0 
SCZENT(00036) Type=0.0 
NZZBIF(O06A6) Type=0.0 
NZ~GPR(OO1E1) Type=0.0 
NZZBUT(OO1FE) Type=0.0 


Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=4 Offset= 
Nibs=5 Offset= 
Nibs=5 Offset= 


Nibs=4 Dist=01B3A 
Nibs=4 Dist=0637E 
Nibs=4 Dist=06303 
Nibs=4 Dist=06431 


Nibs=4 Dist=00DD0 
Nibs=4 Dist=00(57 
Nibs=4 Dist=O0FEA 
Nibs=2 

Nibs=2 

Nibs=2 

Nibs=2 

Nibs=2 

Nibs=3 

Nibs=2 

Nibs=2 

Nibs=1 Offset= 
Nibs=1 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


Nibs=1 Offset= 
Nibs=1 
Nibs=1 
Nibs=1 Offset= 
Nibs=1 
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ENABLE 
ENABLd 
ENABLp 
END 
ENDALL 
ENDBIN 
ENDFN 


ENDING 
ENDST 


ENDSUB 
ENDTAP 


ENTER 
ENTERp 
ENTUSG 
EQLCK 


EOLCKR 
EOLOC 
EOLLEN 


EQLSCN 
EQLSTR 
EOLXC* 
EOLXCK 
ERR# 
ERRADR 
ERRLA 
ERRLCH 
ERRNSF 
ERROR 


ERROR! 
ERRORP 
ERRORR 
ERRORX 


ERRRIN 
ERRSUB 
ESCSEQ 
ESCSTA 
EX-115 
EX12 
EX15N 
EX1§8 
EXABI1 
EXAB2 
EXACT 
EXCAL+ 
EXCHRe 
EXC PRR 
EXDCLP 
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F23DF 
F?D22 
F?B4? 
FO877 
0769A 
07648 
FO855 


10040 
FO84B 


195R8 
F456E 


F1F58 
F751D 
F2561 
O2A7E 


O2A7A 
05402 
2F 956A 


O8AA?7 
2F 95B 
O52EC 
05405 
2F 7E4 
2F 688 
2F 7EC 
2F 97C 
09806 
F34E5 


F34D8 
F34CE 
F34CB 
F34C1 


074ED 
2F 683 
0231 
2F47B 
OCF4& 
0p5C6 
ODSCA 
ODSCE 
ON3E7 
OD40E 
12880 
08631 
O2E81 
1&7E8 
0592E 


SCZENT 
NZZDEC 
NZZPAR 
NZZGPR 
TIZRES 
TIZRES 
NZZGPR 


TIZRES 
NZZGPR 


TIZRES 
NZZCAS 


SCXENT 
NZZPAR 
SCZENT 
TIZRES 


TIZRES 
TIZRES 
TIZROS 


TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZROS 
TIZROS 
TIZRES 
TIZROS 
NZ4BIF 


NZZBIF 
N2ZBIF 
NZZBIF 
NZZBIF 


TIZROS 
TIZROS 
TIZR6S 
TIZR6S 
TIZROS 
TIZR6S 
TIZROS 
TIZRES 
TIZRES 
TIZR6S 
TIZROS 
TIZRE6S 
TIZR63 
TIZR6S 
TIERGS 


FO1B8 
F2905 
F290A 
F39CC 


F1B8A 
F1C63 
F26F8 
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F13E8 
FS5C2A 
FO143 
FIF53 
FO75D 
F79BF 
F7BB4 


F110D 
F2DB1 


FIF46 
F5CB9 
F7591 
F76CO 
F7B0D 
F1607 
FIF?4 
F2038 
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F3EED 
FS2FE 
FeDBC 


F372F 


NZZTBL(001B0 ) 
SCZENT(OOAAI ) 
SCZENT (OOARE ) 
NZZDSP (00395 ) 


NZZBRS(OOBFO ) 
NZZBAS(OO0CC9) 
SCZENT (00704 ) 
NZZBAS (006R8 ) 
NZZUTL(OQO0DRA ) 


NZZBAS(0044E ) 
NZZHND( OOBOF ) 
NZZTBL(001 3B) 
SCZENT(0001F ) 
NZZDIR(OO0OR8 ) 
NZZPAR(004C2 } 
NZZPAR(006B7 ) 


NZZBAS(00173) 
NZZUTL(0011B) 


SCZENT (00012) 
NZZHND(O0B9E ) 
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Type=1.1 Nibs=4 Dist=0314F 
Type=1.1 Nibs=4 Dist=O02ERE 
Type=1.1 Nabs=4 Dist=0313F 
Type=1.1 Nibs=4 Dist=02F 38 
Type=1.0 Nibs=4 Dist=02702 


16 


20 
20 
28 
36 
56 
20 
56 
28 
28 
16 
36 
$6 
56 
32 


20 
20 


56 
32 
40 


SENDd 
SENDp 
SETALN 
SETALR 
SETFNT 
SETLP 


SETSB 
SETTNO 
SETTSR 
SETUP 
SFLAG? 
SFLAGC 
SFLAGS 
SFLAGT 
SHF 10 
SHF LAC 
SHF RAC 
SHFRBD 
SHRT 

SIGCHK 
SIGTST 
SIN12 
SIN15 
SKIP 

SKIPDC 
SLEEP 
SNAP BF 


SNAPR* 
SNAPRS 
SNAPSY 
SNOWD+ 
SPACE 
SPLITA 
SPLITC 
SPLTAC 
SPLTAX 
SPOLL 
SQR15 
SQR17 
SQR70 
SQRSAV 
SRLEAS 
ST!NOd 
STINOp 
STRB1 
STRB2 
STRNBY 
STANDd 
STANDp 
STANd+ 
STANp+ 
START 


OF hee et 


8d RR RR a ata 
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F7D29 N2ZDEC 
F76C8 NZZPAR 
12900 TIZR6S 
12917 TIZRES 
OFOTF TIZRES 
F3C12 NZ2ZBUT 


TIZRES 
13158 TIZR6S 
OFDO1 NZZSYM 
F3DC8 N2ZBUT 
1364C TIZR6S 
13601 TIZR6S 
135FA TIZRES 
13608 TIZR6S 
0C486 TIZRES 
ODB46 TIZR65 
ODB51 TIZR6S 
ODBSF TIZR6S 
OF96C TIZRES 
OBD98 TIZRES 
O£636 TIZRES 
OD716 TIZR6S 
OD?71A TIZR6S 
F7B36 NZZPAR 
O57F6 TIZRES 
O06C2 TIZRES 
2F7FO TIZRES 


00641 


01578 
01571 
015A? 
17E1F 
OADSD 
OC6BF 
00940 
00934 
0E62B 
F1B9D 
0C534 
0[553 
OC5C3 
00629 
O15EC 
F7D83 
F782C 
0D3D9 
00400 


TIZR6S 
TIZRES 
TIZROS 
TIZRES 
TIZRES 
TIZRES 
TIZR6S 
TIZRES 
TIZROS 
NZZBRS 
TIZROS 
TIZROS 
TIZR6S 
TIZRO6S 
TIZR6S 
NZZDEC 
NZZPAR 
TIZR6S 
TIZRES 
FI6AF NZXBAS 
F7C74 NZZDEC 
F75CD NZZPAR 
F?C6C NZZDEC 
F75BC NZZPAR 
FO&7D NZZGPR 
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F2C96 NZZUTL(Q0000) Type=1.2 Nibs=5 


F2C9B 


FO87F 
F367A 


FOESC 
FO98B 


F345E 
F3492 


F52F7 


FOOEO 


FO1C1 
F16A5 
F16RA 


F1029 
FI4EA 
F1D11 
F22B6 
F2324 
F2A1D 
F3691 


NZZUTL(00005) 


NZZGPR(OOOBD ) 
N2ZDSP (00043) 


NZZF XQ(00083) 
NZZGPR(001C9) 


NZXZBIF (00587) 
NZ2ZBIF (OO5BB) 


NZZHND(001 DC) 


N2ZTBL(000D8) 


NZZTBL(001B9) 
NZZBAS (00708) 
NZZBAS(00710) 


NZZBRS (O008F ) 
NZZ%BAS(00550 ) 
NZZ%BAS(00D77) 
SCZENT (00382) 
SCZENT(003F0) 
SCZENT(OORES) 
NZ2ZDSP(0005A) 


Type=1.2 


Type=1.1 
Type=1.1 


Type=1.0 
Type=0.1 


Type=0.0 
Type=0.0 


Type=0.1 


Type=1.2 


Type=1.2 
Type=1.2 
Type=1.2 


Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 


Nibs=5 


Nibs=4 
Nibs=3 


Nibs=4 
Nibs=5 


Nibs=5 
Nibs=5 


Nibs=5 


Nibs=5 


Nibs=5 
Nibs=5 
Nibs=5 


Nibs=3 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 


Dist=05093 
Dist=04A2D 


Dis t=03393 
Dis t=00598 


Dist=03004 


Of fset= 33 


Dist=01ABD 


Dist=014EE 
Dis t=O6SCF 
Dist=05F23 


Dist=007AC 
Dist=00C6D 
Dis t=01494 
Dist=01A39 
Dis t=01AA?7 
Dist=021A0 
Dist=02E14 


START+ 
START- 


STATAR 
STRTRS 
STATSY 
STATUS 
STCD2 

STKCHR 
STKCHD 
STKVCT 
STABCL 
STMBUF 
STMTDO 


STMTD4 


STATRO 


STMTR1 


STORE 

STREOO 
STRESB 
STRASN 
STREQL 
STRGCK 
STRHDR 
OTRHED 
STRNGP 
STRTST 
STSAVE 


STSUR 
STUFF 


Woe ak Dat Ea 


HA 


FO883 NZZGPR 
FO886 NZZGPR 


2F7AD 
172F3 
1732F 
FIDEF 
0042? 
18504 
155ED 
1470C 
O%E? 
O%DF 
2F891 


TIZRES 
TIZROS 
TIZRES 
NZZBAS 
TIZRES 
TIZR6S 
TIZRES 
TIZRES 
TIXRES 
TIZROS 
TIZR6S 


2F896 TIZR6S 


2F871 TIZR6S 


2F881 TIZR6S 


OFSF8 
1815C 
18149 
OF 6B3 
IBIEF 
036BA 
OFOSA 
14C2E 
03790 
1B1C7 
cF OBE 


TIZROS 
TIZROS 
TIZR6S 
TIZROS 
TIZROS 
TIZR6S 
TIZRES 
TIZR6S 
TIZRES 
TIZROS 
TIZR6S 


TIZROS 
TIZR6S 


OE92C 
1BOBO 


ty tine eee + 
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F4R85 
F542D 
F5F4? 
F5FB6 
F6ES3 
FecAc 
FISRE 
FIRGE 


FOOFB 


F2258 


F15D8 
F1692 
F186D 
F26RE 
F282A 
F32D4 
F 3300 
F3328 
F333F 
F2850 
F28c4 
F32EA 
F3313 
F73CD 
F1118 
F1689 
F3354 
F3385 
F54R2 
FIOC4 
FIOF? 
F336B 
F 3399 
FSIE8 
F5453 
F5499 
F59BE 
FSASD 
F218B 


F264B 


F32R3 
F32BE 


NZZCAS(007F 2) 
NZ2ZHND (00312) 
NZZCAT(000B6) 
NZZCAT(00125) 
NZZFXQ(0007A) 
NZZUTL(00016) 
N2ZBAS(00A14) 
NZZBAS(O0AD4 ) 


NZZTBL(OO0F 3) 


SCZENT(00324 ) 


NZ%BAS(0063E ) 
NZ2%BAS ( O06F 8) 
NZ%BAS(008D3) 
SCZENT(0077A) 
SCZENT (OO8F 6) 
NZXBIF (003FD) 
N2%BIF (00429) 
N2ZBIF (00451 ) 
NZ“%BIF (00468) 
SCZENT(0091C) 
SCZENT (00990) 
NZ%BIF (00413) 
N2“%BIF (0043C ) 
NZ%F XQ(005B4 ) 
NZ2%BAS(001 7) 
NZ%BAS( OOGEF ) 
N2%BIF (00470) 
NZZBIF (OO4RE ) 
N2ZHND (00387) 
NZ%BAS(0012A) 
NZ%BAS(0015D) 
NZ“ZBIF (00494) 
NZZBIF (00402) 
N2ZHND(O00CD) 
N2%HND (00338) 
NZZHND(0037E ) 
N2%ZHND(008A3) 
NZZHND (00922 
SCZENT (00257) 


SCZENT (00717) 


NZZBIF(O03CC) 
NZZBIF (003E7) 


Type=1.0 
Type=1.0 
Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 
Type=1.1 


Type=1.2 


Type=0.1 


Type=0.0 
Type=0.0 


Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=5 


Nibs=5 


Nibs=2 
Nibs=5 
Nibs=2 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=4 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=2 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 
Nibs=5 


Nibs=5 


Nibs=5 
Nibs=5 


Dist=04208 
Dis t=04BB0 
Dist=056CA 
Dist=05739 
Dist=06616 
Dis t=02429 
Dist=01128 
Dist=O11E8 


Dist=O1CF4 


Offset= 2 


Of fset= 11 


Of Fset= 
Of fset= 
Of fset= 


nmorm— 


Of fset= 
Of fset= 
Of fset= 
Of fset= 
Of fset= 


&hwonr om 


SUBONE 
S¥DOD1 
SVINF+ 
SVINFO 
SVTRC 

SWAPO1 


SWAPDO 


SUPBYT 
SYNTXe 
SYSEN 
SYSFLG 
Sav Lvl 
Seek 
Seeka 
SendBf 
Set AVN 
SetBP 


SngDev 


SpChar 
Star0k 


StrOK 


TALK 
TANI2 
TAN15 
TASTK 
TBLINC 
TBLJMP 
TBNSG$ 
TER/LF 
TERCHR 


TFHDLR 
TFORN 
TGSBS 
TINAF 
TIMER1 
TIMER2 
TINER3 
TIMLAF 
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shh kh 


wos wat aaa 


uk oh aa 


0C327 
F7R93 
08457 
0845A 
OF A35 
FO5FB 


F331F 


17R24 
O2E2B 
2F 58A 
2F 6D9 
00005 


FS5C2E 
F 39DF 
1B9FA 
00003 


00002 
QOOOA 


O000R 


FOD44 
0D? 2F 
00733 
2F599 
02426 
0242A 
039AB 
F24FD 
2F 970 


1702F 
2F59E 
2F 5A3 
2F 787 
2E 3F8 
2E2F8 
2E1F8 
2F77B 


TIZRES 
NZZPAR 
TIZRES 
TIZRES 
TIZROS 
NZZCAT 


NZ2ZBIF 


TIZRES 
TIZR6S 
TIZRES 
TIZRES 
TIZR6S 
NZZSYM 
NZZHND 
NZZDSP 
TIZRES 
NZZSYM 


NZ2ZSYN 


NZZPAR 
NZZPAR 


NZZPAR 


NZZGPR 
TIZR6S 
TIZRES 
TIZRES 
TIAROS 
TIZRES 
TIZR6S 
SCZENT 
TIZRES 


TIARES 
TIZRES 
TIZR6S 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZROS 
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F2201 SCZENT(0039D) 
FO93B NZZGPR(00179) 
FO94C NZZGPR(0018A) 
F1185 NZZBAS(OO1EB) 
F2956 SCZENT(OOAZ2 ) 
F2D05 NZZUTL(OQOO6F ) 
F2D42 NZZUTL(OOOAT ) 
F2D77 NZZUTL(QO0E1 ) 


F42CF NZZCAS(0003C ) 
F637E NZZCAT(OO4ED) 


F130B NZZBAS(00371) 
F4896 NZZCAS(00603) 
F4EB2 NZ2ZCAS(OOC1F) 
FS02B NZZCAS(00D98) 
F3D4A NZZBUT(00153) 
F3E61 NZZBUT(0026A) 
F3EDF NZXBUT(002E8) 


F?623 NZZPAR(00126) 
F78B4 NZZPAR(003B7) 
F78CR NZZPAR(003CD ) 
F79B2 NZXPAR(004B5 } 
F79B9 N2ZPAR(O048C ) 
F7B8B NZZPAR(O068E ) 
F7739 NZZPRR(0023C ) 
F77DD NZZPAR(O02E0 ) 
F7811 NZZPAR(00314) 
F7848 NZZPAR(0034B) 
F7B63 NZZPAR(00666 ) 


F2A38 SCZENT(00B04 ) 


FSBC9 NZZHND(OOARE ) 
F22EF SCZENT(003BB) 
F27F8 SCZENT(008C4 ) 
F2F5? NZZBIF (00080 ) 


Type=0. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=0.0 
Type=1.14 


Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 


Type=0. 
Type=0 
Type=0. 
Type=0. 
Type=0. 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 
Type=0.0 


SOS900 SCo005000 


Type=1.1 


Type=1.0 
Type=0.0 
Type=0.0 
Type=0.0 


Nibs=5 

Nibs=4 Dist=05C(0 
Nibs=4 Dist=O5CAF 
Nibs=4 Dist=054 76 
Nibs=4 Dist=00909 
Nibs=3 Dist=0061A~A 
Nibs=3 Dist=005D0 
Nibs=3 Dist=005A8 


Nibs=1 
Nibs=3 Dist=00750 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


Nibs=4 Dist=O1CF4 


Nibs=4 Dist=036CC 
Nibs=5 
Nibs=5 
Nibs=4 


TINLST 
TIMOFS 
TKSCN+ 
TKSCN? 
THRADI 
THRADZ 
THRAD3 
THRINI 
TNRINZ 
TNRIN3 
TODT 
TONE 
TRACOC 
TRACEN 
TRC90 
TRES2C 


TRE SDO 


TRE SD1 


TRF MBF 
TRF ROM 
TRIGER 
TRIGd 

TRIGp 

TRKDON 
TRMNTR 
TRPREG 
TRSFMu 
TRIO+ 

TSAV2C 


TSAVDO 


TSAVD1 


TST12A 
TST15 
TSTAT 


TSTATA 
TSWAD1 


Tr | ec | | | YY 


“ 
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2F 76F 
2F 763 
O8R6B 
08A99 
2F 697 
2F69C 
2F 6A 
2F 6RG 
2F 6RE 
2F 686 
13229 
OEBEB 
OS2FC 
2F 780 
ODAI1 
F3446 


F33D2 


F33E5 


2F 805 
OFESS 
F1558 
F?CC? 
F761E 
ICFAC 
OF 1DD 
2F 6F9 
16B84 
OFE7B 
F3429 


F33A6 


F33BC 


0D4 76 
004 7A 
F4293 


TIZROS 
TIZRES 
TIZRES 
TIZROS 
TIZRES 
TIZRES 
TIZROS 
TIZRES 
TIZROS 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZROS 
TIZR6S 
NZZBIF 


NZ“ BIF 


NZZBIF 


TIZROS 
TIZRO6S 
NZ“BAS 
NZADEC 
NZZPAR 
TIZR6S 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
NZ BIF 


NZXBIF 


NZ*BIF 


TIZROS 
TIZROS 
NZZCAS 


NZZCRS 
N2“BIF 
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F5476 NZZHND(0035B) 
F55C6 NZZHND(O04AB ) 
F5B54 NZZHND(00A39) 
F6211 NZZCAT (00380 ) 
F16A1 NZZBAS(00707 ) 
FIF9D SCZENT(00069) 
F65F5 NZZCAT (00764 ) 
F74BE N2ZFXQ(006RS ) 
F74ED NZZFXO(006D4 ) 
FOFE6 NZZBAS(0004C ) 
F214C SCZENT(00218) 


FO1RG 
F1551 
F1556 


NZ2ZTBL(0019E ) 
NZZ%BAS(005B7 ) 
NZZBAS(O05BC ) 


F546A 
F55B4 
F5B1D 
FOIFE 
F169B 
F639B 
F6E85 
F74A1 
F74E0 
FOFA3 
F1SDE 
FICDA 
F2138 
F544) 


NZ%ZHND (0034F ) 
N2ZHND (00499) 
NZ%HND(00A02 ) 
NZZCAT (0036D) 
N2%BAS(00701 ) 
NZ2%CAT(O050A) 
NZZF XQ(O006L ) 
N2XFXQ (00688) 
NZXFXOQ(006C7) 
NZ2%BAS (00009) 
NZZBAS(0O0R44 ) 
NZZBAS(00D40 ) 
SCZENT (00204 ) 
N2ZHND (00332) 


FOB2E 
F165? 
FSC7E 
F6376 
FOB69 
F639) 
FIA8F 
FIRES 


NZZGPR(0036C ) 
NZZBAS(OO6BD ) 
NZZHND(O0B63) 
NZZCAT(O04E5 ) 
NZ2ZGPR(003A? ) 
NZZCAT (00500 } 
NZ%BAS(OORF5) 
N2ZBAS(OOB4B } 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1, 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 


Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
Type=1. 
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Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=5 
Nibs=5 
Nibs=5 


Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 


Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nibs=4 
Nihs=4 


Dist=0203 
Dist=02180 
Dist=0270E 
Dist=02DCB 
Dist=01031 
Dist=01435 
Dist=03223 
Dist=040EC 
Dist=04118 
Dist=023FF 
Dist=01299 


Dist=013B5 
Dist=06776 
Dist=060C8 


Dast=02041 
Dist=0218B 
Dist=026F4 
Dist=02DD5 
Dast=01D0B 
Dist=O02FF5 
Dist=O3ADF 
Dist=O40FB 
Dist=0413A 
Dist=02419 
Dist=019DE 
Dast=O16E2 
Dast=01284 
Nist=02091 


Dist=03765 
Dist=02C3C 
Daist=019EB 
Dist=020E3 
Dist=03731 
Dist=020F7 
Dist=01969 
Dist=01913 


TWO* 
Tinout 
Trace 
TstEnd 


UCRANG 


ULYL 


UNF NIB 
UNLPUT 


UNP 
UNT 


UPCPOS 
UPDIEN 
UPDIST 
UPD2EN 
UPD2ST 
UPDANN 
USGch+ 
USGch- 
USGrst 
USING 
USINGp 
USloop 
USnrO5 
USst03 
USst05 
UT LEND 


Ucrang 
Utlend 


VALOO 
VALCHK 
VARDC 
VARNB- 
VARNBR 
VARP 
VECTOR 
VIEWD1 
VRIABL 
ValSub 
Verify 
Vollbl 


WFTMDT 
WINDLN 


UL +t " 4 a8 ah 


tt da tae 
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0DB38 
00 7D0 
0O00F 
1COFF 


FOE66 


FOCEA 


2F 6FA 
FODOO 


00001 
F24E6 


13C6? 
2F599 
2F 55D 
2F 6RE 
2F 674 
13571 
18015 
1BCOB 
1BC63 
1B446 
03628 
1C014B 
1BDI2 
1BBCE 
1BBD4 
FO861 


F?4F? 
F4E6? 


1 AD8F 
{RE61 
05370 
OE 28D 
OE 289 
0350E 
2F 43 
1514? 
048BC4 
000A 
00008 
OOO5F 


085DD 
2F 473 


TIZROS 
NZZSYM 
TIZRES 
TIZR6S 


NZZGPR 


NZZGPR 


TIZRES 
NZZGPR 


TIZRES 
SCZENT 


TIZR6S 
TIZRES 
TIZR6S 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZROS 
TIZRES 
TIZROS 
TIZRES 
TIZRES 
TIZR6S 
TIZR6S 
TIZR6S 
NZZGPR 


NZZF XQ 
NZZCAS 


TIZRES 
TIZRES 
TIZR6ES 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZR6S 
TIZRES 
TIZRES 
NZZSYM 
NZ2ZSYM 


TIZRES 
TIZRES 
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FIAF8 
F16D5 
F2681 


FIRAS 
F1ABE 
F74F9 
F103A 
F12ZEB 


F1SE5 
FeA2F 


FO867 
FORRE 


F27R0 
FIFBE 
F752? 
F2790 


F10DC 
F459 
F469 
F5AD3 
FOF 6F 
F5F83 
F776A 
F7793 
F52EB 


FORE3 
F3D8F 
F?00E 
F7311 


NZZBAS(OOB5E) Type=1.1 
NZZBAS(0073B) Type=0.0 
SCZENT(0074D) Type=0.1 


NZZBAS(OOBOB) Type=1. 
N2ZBAS(00B24) Type=1. 
NZZFXQ(OO6EO) Type=1. 
NZZBAS(OOOARO) Type=1. 
NZZBAS(00351) Type=1. 


OE 


NZ%BAS(0064B) Type=1.1 
SCZENT(OORFB) Type=1.1 
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pACK 
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pBSCen 
pBSCex 
pCALRS 
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pCAT 
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pCLDST 
pCnd 
pChiPLx 
pCONFG 
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pCRDAB 
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pCRT=8 
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pFNOUT 
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pnRGE2 
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F230D 
F3051 
F319F 


F?42D 


NZZGPR(00080) Type=0.0 
SCZENT(O04F1) Type=0.0 
NZZHND(OOA99) Type=0.0 
NZZIOR(00056) Type=0.0 


NZZGPR(00086) Type=0.0 


SCZENT(000D7) Type=1.1 
SCZENT(00193) Type=1.1 


NZZHND(OO3AR) Type=0.0 


NZZGPR(0048A) Type=0.0 
NZ2ZBIF(0019D) Type=0.0 


SCZENT(OOC9R) Type=0.0 
NZ2ZBIF(002BA) Type=0.0 
NZZBUT(0067C) Type=0.0 
NZZHND(OO8E9) Type=0.0 
NZZHND(OOB3D) Type=0.0 
NZZHND(OOC8C) Type=0.0 
NZZHND(OOCDO) Type=0.0 
NZ%BIF(OOOAD) Type=0.0 
NZZBIF (00251) Type=0.0 
NZZBIF (00711) Type=0.0 
N2ZFXQ(00072) Type=0.0 
NZZFXQ(OOOAS) Type=0.0 


NZZIOR(000CO) Type=0.0 
NZZTOR(0042A) Type=0.0 
NZZHND(O0039F ) Type=0.0 
SCZENT(OOC5C) Type=0.0 
SCZENT(O03D9) Type=1.1 
NZZBIF(0017A) Type=1.1 
N2ZBIF(002C8) Type=1.1 


NZ%FXQ(00614) Type=0.0 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


Nibs=1 


Nibs=4 Dist=041A7 
Nibs=4 Dist=040EB 


Nibs=1 


Nibs=1 
Nibs=1 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=4 Dist=01984 
Nibs=4 Dist=026C8 
Nibs=4 Dist=02816 


Nibs=1 


sGOSUB 
sI/0BF 
sINFRD 
sINTR 


sINX 


sIRAM - 


sIX 
sInit 
sKEYS 
sLISTR 
sLOCKD 
sLoop? 


sMAINc 
sMANUL 
sNULT 

SNRPRS 
sNEGRD 
sNoChn 
sONERR 
sONTNR 
sOVERW 


sPCRD 
sPOLLE 
sPRGCF 
sPRIVT 
sRAD 
sRDX 
sREADI 
sRENAN 
sRENUM 
sRESTR 
sRETRN 
sRFILE 
sRNOTE 
sRUNBn 
sRUNDC 
sReadd 


sSCNTR 
SSIGN 
ssRQIN 
sSal 


tee ot Eh kt 
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00003 
QOO0R 
0OO0R 


00005 
00002 
00007 
00003 
00005 
00001 
0000B 
00005 


00005 
00002 
00008 
FO2F5 
0000B 
00002 
00004 
00006 
00008 


00008 
00006 
0000B 
00008 
00009 
00008 
00004 
00006 
00008 
OOO0R 
00000 
00008 
0O00R 
00004 
0000? 
00004 


00003 
00009 
00001 
00002 


TIZRES 
TIZRES 
TIZRES 
N2ZSYM 


TIZRO6S 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
NZZSYN 
N2ZSYM 
N2ZSYN 


TIZROS 
NZZSYN 
TIZROS 
NZZHND 
TIZRES 
TIZRES 
TIZRES 
TIZROS 
NZZSYN 


TIZR6S 
N2%SYN 
TIZROS 
N2ZSYN 
TIZR6S 
TIZR6S 
TIZROS 
TIZROS 
TIZR6S 
TIZR6S 
TIZROS 
TIZR6S 
NZ“ SYN 
TIZRGS 
TIZRE6S 
NZZSYM 


NZZSYM 
TIZR6S 
NZZSYN 
TIZR6S 


(++ + 


Ll_+ ++ e+e + 1 


F744) 
F 7453 
F747D 


F2B1B 
F3186 


F4736 
F473D 
F475D 
F47B5 
F479 
F5A12 
FSAB8 
F5B77 


FOC2C 


F360B 


F4BB3 
F52B8 
FS55BA 
F5775 


FSE2A 


F3196 


FO885 
FO8B8 
FO8FR 
FO929 
Fi9A9 
F1R6B 


N2~FXQ(00634) Type=0.0 
NZZFXQ(00640) Type=0.0 
NZ%FXQ(00664) Type=0.0 


SCZENT(OOBE7) Type=0.0 
NZ2ZBIF(OO2AF) Type=0.0 


NZZCAS(004A3) Type=0.0 
NZZCAS(O04AA) Type=0.0 
NZZCAS(O04CA) Type=0.0 
NZZCAS(00522) Type=0.0 
NZ2ZCAS(00536) Type=0.0 
NZ%ZHND(O08F7) Type=0.0 
NZ2ZHND(0099D) Type=0.0 
NZZHND(OOASC) Type=0.0 


NZZGPR(0046A) Type=0.0 
N2%BIF (00734) Type=1.1 


NZZCAS(00925) Type=0.0 
NZZHND(0019D) Type=0.0 
NZ~HND(0049F) Type=0.0 
NZZHND(0065A) Type=0.0 


NZZHND(OODOF) Type=0.0 


NZ%BIF(O02BF) Type=0.0 


NZZGPR(O00C3) Type=0.0 
NZZGPR(OO00F 6) Type=0.0 
NZ2ZGPR(00138) Type=0.0 
NZZGPR(00167) Type=0.0 
NZZBAS(OOROF) Type=0.0 
NZZBAS(OOAD1) Type=0.0 


Nibs=1 
Nibs=1 
Nibs=1 


Nibs=1 
Nibs=1 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


Nibs=1 


Nibs=4 Dist=01CER 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


Nibs=1 


Nibs=1 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


ssS$Tdc 
sSTAND 
sSTAT 
ssik 


sSTOP 
sSpecl 
sTALKR 
sUNCNF 
sUNDEF 
sUNSEC 
sXCPT 
sXQT 
sXWORD 


t! 
tz 


tADIGI 
tADIG2 
tADIG3 
tADIG4 
tADIGS 
tADIGE 
tADIG? 
tADIG8 
tADIGS 
tALL 
tAND 
tANGLE 
tARRAY 
tASIN 
tRTAN 
tAUTO 
tBASE 





wou ow ot 


eek eR 


weow 


feo Ea RP a aaa th ta 


00001 
00007 
00006 
00007 


00005 
00006 
00002 
00005 
00001 
QOOOA 


00009 


OOOFC 
00085 


00083 
00083 


00087 
00082 
00084 
OOOF4 
OOORZ 
0009A 
00005 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
QOOOF8 
0008B 
60183 
0007D 
00039 
0009B 
OOOEE 
QO0ES 


TIZRES 
NZZSYN 
TIZROS 
NZZSYN 


TIZRES 
TIZROS 
NZZSYN 
NZZSYN 
TIZROS 
NZZSYN 
TIZROS 
TIZRES 
TIZROS 


TIZRES 
TIZROS 


TIZROS 
TIZRES 


TIZROS 
TIZROS 
TIZROS 
TIZRES 
TIZROS 
TIZR6S 
TIZRES 
TIZRES 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
TIZRES 
TIZRES 
TIZR6S 
TIZRES 
TIZRES 
TIZROS 
TIZRGS 
TIZROS 
TIZRES 
TIZRES 
TIZROS 
TIZRGS 


tite ere +~eHeq—o~qeoeeee sei 


F19D5 
F1C8B 
F352k 
F3F1B 
F3F4A 
F3F64 
F3F94 
F3FC4 
F4007 
F4044 
F6E24 
F6ECS 
F73EC 


FS50D1 
FO901 


- F5508 


i+->+ ft t 


(++ +1 


F5E3B 


F7318 
F 7800 
F7DE3 


F7336 
F76AD 
F78BF 
F7DB8 


F7561 


NZZBAS (00A3B) 
NZ2ZBAS(OOCF 1) 
NZZBIF (00657) 
NZZBUT (00324 ) 
NZZBUT (00353) 
NZZBUT (0036D) 
NZ2ZBUT (0039D) 
NZZBUT (003CD) 
NZZBUT (00410) 
NZZBUT (0044D) 
NZ2ZFXQ(0000B) 
NZZFXQ(OOOAC ) 
NZZFKQ(005D3) 


NZZCAS(OOE3E) 
NZ%GPR(0013F ) 
NZ%HND(003ED) 
NZZHND(00D20 ) 


NZZFKQ(OO4F F ) 
NZZPAR(003E0) 
NZZDEC (00210) 


NZZFKQ(0051D) 
NZZPAR(001B0 ) 
NZ%PAR (0032) 
NZXDEC (O01E5) 


NZZPRR (00064 ) 


Type=0.0 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


Nibs=1 
Nibs=1 
Nibs=1 
Nibs=1 


Nibs=2 
Nibs=2 
Nibs=2 


Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 


Nibs=2 


tBEEP 
tBIG 
tCALL 
tCARD 
tCAT 
tCEIL 
tCFLAG 
tCHRS 
tC LOCK 
tCMPLX 
tCNTRL 
tCOLON 


tCONNA 


tCOPY 
tC05 
tCVAL 
4DATA 
tDATE 
tDATES 
tDEF 
tDEG 
tDEGRE 
tDELAY 
tDELET 
tDIN 
tBISP 
tbIV 
tDNYAR 
tDSTRY 
tDV2Z 
tEDIT 
tELSE 
tEND 
tENDOF 
tENDSB 
tENTER 
tEOL 
tEPS 
tERRL 
tERRN 
tERROR 
tEXOR 
tE XP 


heh th OP Oh a th RO th a a tha a aR a 


QO0E8 
00010 
QOOFS 
000D0 
OOOEC 
00072 
QOOFA 
OOOR4 
5O1EF 
0007A 
00023 
QOOE2 


OOOF 1 


00085 
00097 
OOOE1 
0o00te 
00077 
00078 
000B9 
QO06F 
00003 
00006 
000B7 
oooce 
000cS 
00086 
0007E 
OOOBE 
00081 
OOOBE 
OOOFS 
0OODA 
000BA 
0o00C? 
4FFEF 
OOOFO 
00071 
00075 
00076 
OOOE 3 
OOO8L 
00094 


TIZROS 
TIZRES 
TIZRES 
TIZR6S 
TIZR6S 
TIZR6S 
TIZR6S 
TIZR6S 
TIZRES 
TIZRES 
NZZTBL 
TIZRES 


TIZRGS 


TIZROES 
TIZROGS 
TIZRGS 
TIZRGS 
TIZROS 
TIZRGS 
TIZRGS 
TIZRGS 
TIZRGS 
TIZRGS 
TIZROS 
TIZRGS 
TIZRGS 
TIZRGS 
TIZRGS 
TIZROGS 
TIZRGS 
TIZRGS 
TIZRES 
TIZRGS 
TIZRES 
TIZRGS 
TIZRGS 
TIZRGS 
TIZRES 
TIZRGS 
TIZROS 
TIZRGS 
TTERGS 
TIZRAS 
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F7B7B 
F2D56 
F3F23 
F726E 
F72RA 
F7892 
F7BC6 
F7EE8 
F146B 
F1598 
F1710 
F2RO3 
F2CF6 
F2D4D 
Fedde 
F7614 
F 7832 
F79D8 
F7D85 
F EDD 


NZ%PAR(0067E) 
NZZUTL(00000) 
NZZ%BUT (0032C) 
NZZFXQ(00455 ) 
NZXFXQ(00491 ) 
NZ%PAR(00395) 
NZZPAR(006C9) 
NZ%DEC (00315) 
N2%BAS(004D1) 
NZZBAS(OO5FE) 
NZZ%BAS (00776) 
SCZENT (OOACF ) 
NZZUTL(00060) 
NZZUTL(000B7) 
NZZLOW (0007) 
NZ2ZPAR(00117) 
NZZPAR (00335) 
NZZPAR (0040B) 
NZZDEC (00182) 
NZZDEC (0030R) 


Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0. 
Type=0, 
Type=0. 
Type=0, 
Type=0. 
Type=0, 
Type=0. 
Type=0, 


oovooccoooncaoooocoooo oo oo 


Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 


F2570 SCZENT(0063C) Type=0.0 Nibs=6 
F2B6C SCZENT(O0C38) Type=0.0 Nibs=2 


tEXTIF 
tEXTND 
tFACT 
tFETCH 
tFFN 
tFLOW 
tFLT1 
tFLT10 
tFLT11 
tFLT12 
tFLT2 
tFLT3 
tFLT4 
tFLTS 
tFLT6 
tFLT? 
tFLT8 
tFLT9 
tFN 
tFOR 
tFP 
tG0SUB 
tG0T0 
tif 
tINAGE 
tIN 
tINF 
tINPUT 
tINT 
tINT10 
tINT11 
tINT12 
tINT2 
tINT3 
tINT4 
tINTS 
tINT6 
tINT? 
tINT8 
tINT9 
tINTEG 
tINTO 
tINTR 
tINTRR 


tINX 
t10 
tIP 
tIS$ 
tISuB$ 
tIVL 
tKEY 
tKEYS 
tKEYS 
tLBLRF 
tLBLST 
tLEN 
tLET 
tLINE# 


eh a eae atta at 


eb eek at 


OOOF 4 
6O1EF 
000R8 
00008 
000B4 
901EF 
00010 
00014 
00013 
00012 
00010 
00018 
0001A 
00019 
00018 
00017 
00016 
00015 
000 70 
000C3 
00068 
000DC 
00ODD 
OOODF 
OOOF F 
OOOF 2 
00070 
00009 
00030 
00004 
0000 3 
00002 
0000C 
00008 
0000R 
00003 
00008 
00007 
00006 
00005 
OOOCR 
EOVEF 
O1SFF 
00026 


O00B2 
00024 
QOO6A 
QOOE? 
000R7 
QOORE 
OOOES 
00073 
OOOCF 
0000E 
OOOF 6 
00OORI 
000C0 
OO0OF 


TIZRES 
TIZROS 
TIZROS 
TIZRES 
TIZRES 
TIZRES 
TIZRES 
TIZRO6S 
TIZR6S 
TIZROS 
TIZROS 
TIZROS 
TIZR6S 
TIZR6S 
TIZRES 
TIZRES 
TIZROS 
TIZROS 
TIZROS 
TIZRES 
TIZRES 
TIZR6S 
TIZRES 
TIZR6S 
TIZR6S 
TIZRES 
TIZR6S 
TIZROS 
TIZRES 
TIZR6S 
TIZRO6S 
TIXR6S 
TIZROS 
TIZROS 
TIZR6S 
TIZR6S 
TIZROS 
TIZRES 
TIZROS 
TIZROS 
TIZRES 
TIZRES 
TIZRES 
NZZTBL 


TIZRES 
NZZTBL 
TIZROS 
TIZROS 
TIZR6S 
TIZROS 
TIZRES 
TIZROS 
TIZROS 
TIZROS 
TIZR6S 
TIZRES 
TIZRO6S 
TIZR6S 


1 (+ + 3 
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F7650 NZZPAR(00153) Type=0.0 Nibs=2 
F7680 NZZPAR(00183) Type=0.0 Nibs=2 
F7?B4F NZZPAR(00652) Type=0.0 Nibs=2 
F7663 NZZPAR(00166) Type=0.0 Nibs=2 


F7503 NZZPAR(00006) Type=0.0 Nibs=2 


tLINPT 
tLIST 
tLITRe 


tLN 
tLOCKO 


tLOG 
tLOG10 
tLPRP 
tlk 
tMAIN 
tMATH 
tHRX 
tNAXRL 
tHEAN 
thIN 
thOD 
tNANE 
tNEAR 
tNEG 
tNEXT 
tNOT 
tNUN 
tOFF 


tON 


tOPT’N 
tOR 
tOVF 
TtPAUSE 
tPCRD 
tPI 
tPORT 
tPOS 
tPREDV 
tPRINT 
tPRMEN 
tPRNST 
tPURGE 
tRAD 
tROIAN 
tREAD 
tREAL 
tRELOP 
tREN 
tRES 
tRESTR 
tRETRN 


ek Ob aR BE DT aa aE 
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QOOBF 
000BB 
000C4 


00091 
00025 


00090 
00033 
OOORA 
000B6 
000D2 
601EF 
OOORD 
0006C 
00030 
OOORT 
000 74 
0OOBD 
CO1EF 
DO1EF 
000C4 
00081 
O00R3 
000E1 


OOOEO 


OOOED 
000 8D 
OOORF 
00007 
EOIEF 
00079 
00001 
201B3 
000 SF 
OOOCD 
OOOF 8 


OOOEB 
QOObE 
00014 
00007 
0OOBC 
0008A 
OOOE6 
000 7 F 
OOODE 
OOODB 


TIZRES 
TIZRES 
TIZRES 


TIZROS 
NZZTBL 


TIZR6S 
TIZR6S 
TIZRES 
TIZRES 
TIZR6S 
TIZROS 
TIZRES 
TIZRES 
TIZROS 
TIZRES 
TIZROS 
TIZROS 
TIZRO6S 
TIZRES 
TIZROS 
TIZR6S 
TIZRES 
TIZR6S 


TIXROS 


TIZRES 
TIZROS 
TIZRES 
TIZROS 
TIZRES 
TIZROS 
TIZROS 
TIZROS 
TIZROS 
TIZRGS 
TIZR6S 


3 TIZReS 


TIZROS 
TIZR6S 
TIZRES 
TIZROS 
TIZR6S 
TIZROS 
TIZR6S 
TIZR6S 
TIZR6S 
TIZRbS 


(++ ++ + 1 6 it 
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(i—->— +e +e +e 1 +e + + 1 


F355E 
F 3F 2F 
F7281 
F7866 
F?97F 
F7E19 


F1524 
F75F6 
F?C9B 


F16BD 
F75DA 
F7BR3 
F7C83 
F16C6 
FR8F 
F75D5 
F7BS9E 
F?C7R 


NZXBIF (00687) Type=0.0 
NZZBUT(00338) Type=0.0 
NZZFXQ(00468) Type=0.0 
NZZPAR(00369) Type=0.0 
NZ~PAR(00482) Type=0.0 
N2%DEC(00246) Type=0.0 
0 
0 
0 


NZX%BAS(0058A) Type=0. 
NZZPAR(O0OF3) Type=0. 
NZZDEC(O00C8) Type=0. 


NZ%ZBAS(00723) Type=0.0 
NZZPAR(000DD) Type=0.0 
NZZPAR(O06RE) Type=0.0 
NZZDEC(OOOBO) Type=0.0 
NZZBAS(0072C) Type=0.0 
SCZENT(QOB5B) Type=0.0 
NZZPAR(O00D8) Type=0.0 
NZZPAR(Q06A1) Type=0.0 
NZZDEC(OO0R7) Type=0.0 


Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 


Nibs=2 
Nibs=2 
Nibs=2 


Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 
Nibs=2 


tRFILE 
tRND 
tRND 
tROUND 
tRUN 
tSDEV 
tSENIC 


tSF LAG 
tSGN 
tSHORT 
tSIN 
tSMALL 
tSQR 
tSTAT 
tSTEP 
tSTOP 
tSTRS 
tSUB 
tSVAR 
tTAB 
tIAN 
tTHEN 
tlIne 
tTIMES 
tTINER 
tT0 
tTRACE 
tUNF 
tUPRCS$ 
tUSER 
tUSING 


tVAL 
t¥ARS 
tWAIT 
tXFN 
tXWORD 


tZ 
tZERO 
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QOODE 
0006D 
000 RO 
CO1EF 
QOOFE 
Q009E 
QOOF2 


QOOFB 
QOOAT 
OOO(B 
00096 
00011 
00092 
OOOCE 
OOOF6 
00009 
OOORE 
000C1 
0002D 
QOOF?7 
00098 
OOOF4 
00078 
00095 
OOOE4 
QOOF3 
OOOEA 
00080 
QOORB 
QOOE2 
OOOFD 


OOORS 
BO1EF 
00008 
00083 
OOOEF 


0005A 
CO1EF 
00080 


TIZRES 
TIZROS 
TIZR6S 
TIZRES 
TIZRES 
TIZROS 
TIZR6S 


TIZRES 
TIZRES 
TIZRES 
TIZRBS 
TIZRES 
TIZRES 
TIZRE6S 
TIZR6S 
TIZRES 
TIZR6S 
TIZROS 
TIZRES 
TIZROS 
TIZRES 
TIZR6S 
TIZROS 
TIZROS 
TIZR6S 
TIZROS 
TIZRES 
TIZRES 
TIZROS 
TIZROS 
TIZR6S 


TIZRES 
TIZRES 
TIZRES 
TIZROS 
TIZRES 


TIZROS 
TIZRES 
TIZRES 


-+71+ +e He +e He +e +H He HI 1 


(t+ + re erie +He~e es 


F2DF6 NZZUTL(00160) 
F?2FF NZZFROQ(O04E6) 
F735D NZZFKQ(00544 ) 
F7534 NZZPAR(00037) 
F7556 NZZPAR(00059) 
F7744 NZZPAR(00247) 
F7753 NZXPAR(00256) 
F7894 NZ2ZPAR(00397) 
F7927 NZXZPAR(0042A) 
F7D41 NZZDEC(0016E) 
F7E44 NZZDEC (00271 ) 
F7ESD NZZDEC(0028A) 


FIFAS SCZENT(00075) 
F754D NZZPAR(00050 ) 


F1520 NZZBAS (00586) 
F1930 NZZBAS(00996 ) 
F7SF2 NZZPAR(OOOFS) 
F764C NZZPAR(0014F ) 
F765F NZZPAR(00162) 
F767C NZZPAR(001 7F ) 
F7B4B NZZPAR(O064E ) 
F7B77 NZZPAR(0067A~) 
F709? NZZDEC (00004) 
F7CDB NZZDEC (00108) 


Type=0.0 
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xPCRD 
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F260E SCZENT(OO6DA) 
F259E SCZENT(OO66A) 
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F25E1 SCZENT(OO6AD) 
F25FF SCZENT(006CB) 
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F2604 SCZENT(OQO6D0) Type=0.0 Nibs=2 
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Saturn Hex Code Listing 


FOOOO - 00000000 840594(4 
FOO4O - 50270280 C12C12C1 


FOO8O - 20120120 46106730 
FOOCO - OF27061B 10F290B6 
FO100 - FECO2531 00450874 
FO140 - 1(051E10 03213782 
FO180 - 3135010D 4A1E8720 
FO1CO - 1£E410D1 609A820D 
FO200 - 41464441 0B2494E4 
FO240 - 34€45414 25EOD34F 
FO280 - 54659444 42700449 
FO2CO - 45941404 D0794E44 
FOO - 545525F4 6464013F 
FO340 - 70514353 50200525 
FO380 - B2554D4F 44554E1D 
FO3CO - 554E4446 193505F4 
FO400 - 45425F11 FF103401 
FO440 - 25(8050E 15C8060E 
FO480 - ED24(803 1D21CF04 
FO4CO - D21C91C1 73596A75 
FOSOO - 457C6C6C 8002E04C 
FO540 - B6S6E6C3 14200445 
FOS80 - 64602004 (8082042 
FOSCO - 3556(666 02475637 
FOGOO - 75646041 S3ECED14 
FO640 - B3E81C71 C3625543 
FO680 - 36560202 12450456 
FOBCO - BS6O6EBO 7690F4A4 
FO?00 - £2000750 78000280 
FO740 - 1A4008B4 O6EB405C 
FO780 ~- 603BED31 908B5400 
FO7CO - 20R4680F F5602F03 
FO800 - 190E340B 873A30B8 
FO840 - O2803B2 ADZ78208 
FO880 - 83384476 834007FS 
FO8CO - BB34C189 17164(03 
FO900 - 65200846 6318E717 
FO940 - 20188E4C 738EBACS 
FO980 - O3DF134D B8DC4631 
FOSCO - 196734AE 92330670 
FOROO - 00368A02 09799000 
FOR4O - O073RE40 OC6CERE6 
FOR8O - £914A325 ROFS23AC 
FOACO - 31D076B1 40088450 
FOBOO - S9AF524A 83AB3203 
FOB40 - 72080F04 B5DO8ES7 


25F4D402 
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0C301B4B 
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34040520 
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94644554 
25541555 
C4049003 


00484059 
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B1220148 
42727F 62 
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47026616 
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545F4255 
46965706 
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B40544 20 
O7DCF 247 
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00089042 
CF2FO108 
3542968B 
50930F08 
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3107540E 
6741DB31 
B2400884 


909BF RFF 
4B5F 3088 
3F 7B4720 
56989160 


30106F 7F 
73590891 


802E0000 21421048 
127FOC12 €12A1193 
ECDIOFE1 O61E10FD 
6B10FED1 DBAIOF 28 


810DR11C 08100201 
20058106 C60D061D 
0D5313D3 10080258 
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B2494E45 4F42530B 
40432044 54651444 
49591854 £41424(4 
F4427049 43545219 


55450555 45310051 
25810255 41444444 
543545C1 92554355 
54514644 42495228 


4(402C51 10514353 
B4C8001E 03071116 
D24C8061 £9308071 
2EREC8OE 1£83032F 


£4F64702 25561646 
70805204 20806204 
3D4F 6465 6C80A2D3 
96065646 C11F 2014 


6C8063EF 1C8083EB 
40340610 47045637 
CA134902 9AF402E4 
6704B000 2817034E 


88001A55 OD4650E0 
7300040E 1007(9C5 
20EC720A 7820E882 
6A200B80 D25752B0 


8836029 38826026 
75001180 172108EB 
131F 7963 2131F996 
E8726400 75005R00 


72795F5E 4866728 
606781FO 77913400 
F7967F02 FIO3AC7D 
B20B84A0 BB47DFF2 


SOFEAFF2 031F 3963 
OD380C5AR B225A9 78 
31CO07ED1 40088423 
20307220 231F5967 


7AABF3F3 7£514008 
B402228E 56064008 
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75810D1F O2R610DA 212BFOOD 
FFOODIAO 2DFOODA4 10€11009 
310D551F 482002B0 728200BE 
00081435 359474E4 FOB2494E 


2494E494 F4254052 49445509 
44256084 45465149 44480844 
5412954E 44554254 1D94£494 
C4F43414 C4D1DC4F 434B84F45 


42581705 1434B4A1 
54144494 £44525R0 
543545F4 25541173 
5535C0D4 52594747 


43484449 
434B0F 25 
44571025 
35451445 


J4C8030E E4C8040E 
F46602D2 4CB021EC 
D21C8091 D21C80A1 
7563647F 62797026 


59474E4D 
54664602 
D2108081 
1BD44962 


C4FOF607 022427F6 
56656870 75636475 
2C80C2E7 1C72D2BF 
60414361 426F6274 


97(C132R 
2CF172A5 
2C80B203 
34597075 


OC41936E 4F602C4F 6F 607080 
37167656 02041146 44566796 
56564656 46CFF20D 23161048 
207A7500 D9504CD4 OABRAOFF 


F5000R50 00550004 
C5C9D513 706147C1 0713509 
08E72093 92066920 25320023 
386R8024 0B030B80 D2880D32 


81046000 


03884602 70388160 25038858 
7014007E 84821018 CE7338EF 
39030922 026AB03? 46131EF7 
28CB3F58 E72F5400 874620B8 


5431RE70 50311752 28ECBC53 
88452AC3 20310E0E FFB66461 
250331F9 967A02F3 O459E31F 
80D480F2 REZA36A3 G0E3FD72 


6066B07E C240031B O8EE6164 
£63E5400 94BB4970 EORFB80D 
613F8E43 A1400203 00220220 
OFADB3BO 20202020 20280DEA 


849A8E16 73571881 OO80F 088 
ED27347E 35800008 8EC1D540 


FOB80 
FOBCO 


FOCOO 
FOC4O 
FOC8O 
FOCCO 


FODOO 
FOD40 
FOD80 
FODCO 


FOEOO 
FOE4O 
FOE80 
FOECO 


FOFOO 
FOF40 
FOF 80 
FOFCO 


F1000 
F1040 
F1080 
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F1100 
F1140 
F1180 
F11CO 


F120 
F1240 
F1280 
F12CO 


F1300 
F1340 
F1 380 
F13C0 


F1400 
F1440 
F1480 
F14(O 


F100 
F1540 
F1580 
FI5CO 


F1600 
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F1680 
F16CO 


FIFOO 
F1740 


i) 1 4 4 


39167170 
62061 361 


0338002 
F6REE86C 


EOOB1340 78720003 
E7DB5400 08870020 
F2747040 07580400 
AEAS7E20 038969F8 


61FF8C53 
O46CAF AF 
883B01A8 
E470E557 


2033F 341 
F 4003300 
55F0D136 
F22005R2 


10€411A? 
1B0656F 8 
56900330 
OOD880CE 


97060040 
57FR7043 
AO33314—A 
14764E40 


10810810 
12812018 
95F2017A 
5F396003 


81081081 
16816816 
EF 147137 
B2454377 


B15C20B8 
866CORBB 
O68E 76B2 
F96R4188 


1 BBB8F 20 
0761644A 
91367116 
DO1D3814 


4951F ASS 
25121500 
55518AFA 
8F041A60 


59A7R557 
6034D87F 
71286274 
C0230765 


OORF 9108 
DD8E 3683 
AF OSFOF6 
77%400A 


78E10634 
6F28AAR76 
F 28375F 3 
FO8ER473 


00237D53 
EF 493118 
AOE4S 7 3E2 
34RO 7830 


C8574534 
OF 666066 
7F604F48 
1OR8ED32 


110701B1 
E903EE76 
161DB135 
0871 5AAF 


O28COFC3 
7F 221094 
AF 100426 
78EBCE11 


F6BFO18? 
103906E3 
04107001 
8E133175 


480el3te 
416F 5034 
£ 9060344 
E45854F 3 


BE178704 
004114F8 
F178F 201 
36602036 


1A0248CR 
8C902F 33 
S8CEDC11 
6211310E 


67F14A314 
74DSREOS 
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EO97R50B 


832B914C ORC3B476 3FE71714 00278E80 0640024B 074606F4 


B244F215 


8ER2035D 
BO61BCA7 
61387890 
91002780 


E58C2DAS 
ABFABF4? 
£3059188 
F 3261023 


6A76R76A 
REGE 80DE 
3939E200 
01810810 


08100181 
81681681 
0177EF 63 
00500000 


46359844 
15025201 
DB1 35848 
290AF 277 


F215F61E 
8EB3E169 
588555AF 
OE7608EE 


AFB1098E 
DDS21AFF 
72404006 
F3766CDO 


400AF 970 
AF58EA15 
Do1OBiCB 
628F 6032 


1B746223 
0021608E 
8ED4E111 
88E7AE11 


607D060A 
06776080 
14514A31 
BO15D61D 


4?706AF 27 
Co6558(C 
1F198F 20 
4803400? 


1F 966F 31 
?C3920AC 


64134079 4ACOB464 


0028E450 34008E2E 
F215620B 85A0B154 
40000352 OOOOB8EA 
CO220280 D48821F5 


74EF 4007 ECF40033 
1BF400D6 96EEEO10 
2B01A460 05808816 
ROE400A3 156F AF 1A 


SERFIDCA 
80DE0379 
0114F171 
OOD880CE 


76560284 
O2AFOR7C 
F6BB6B62 
D67E2E40 


14814814 
3FO20202 
08651421 
41338CFF 


48148148 
68160120 
FFRCO661 
30713717 


94A50856 
60A7D7F7 
O7AF5071 
03428607 


45084907 
BBB8F 214 
8£11954F 
858E187F 


1CB31F 21 
93603449 
£B413334 
90630200 


C78F15D6 
E497R60E 
2A7EAC27 
3C57E004 


0D031850A 
14AFFFO6C 
8E8E5340 
24002473 


75634009 
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E?7FD4814 
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76031188 
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53F2C67R 
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874E1AF4 
202BR9CA 
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060 34808 
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FEFFS297 
00692016 
C2AC78E5 
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060147C6 
F8C8E728 
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05417286 
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18CBOD18 
00D731E1 
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3.3006F RE 


6117F 70 
B?3864 30 


60240203 0613618C 


B5872648 
27R00070 
RES77DF4 0088B518 
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E9R52400 


40026DCF 
42034017 
019A0136 
F2203010 


7CCF 4003 
20012490 
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02020202 02011F99 
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321BBB8F 21460A7A 


71584DB9 6B861879A 
00007DA3 441000CR 
360A0189 OOF 61557 
24608E72 D54141F3 


3F 716004 
95121368 
6ABEBDO2 
8EBFO340 


40161807 
7F21368E 
D87F28AR6 
06814400 


FB?7F44F6 
E8ARF 271 
0657F 860 
107CF 928 


8ARA7840 
SO400AF 9 
21AF 3708 


CD1038E6 
RE606970 
16AD28E6 


EAS76BE6 
7F ?04FOR 
§€34027B 


A7F20B15 
7DACSBO3 


30B30922 020803F2 


AC 20F OFO 
BBSCSBES 


32002 79B 
8ROC1 AOC 
C603D1F2 
7156F R80 


OCBF1B8A 
00310286 
01068148 
2F018108 


28128128 
5F2011F4 
DASEC2D2 
EF210D00 


07DAC670 
03D30000 
CC514F80 
88F2AFO1 


B9AGOOT3 
EC9C58E6 
0214587 
02334R8 


17315F3E 
7AF 3D58E 
3E9F 28AA 


79737053 400248CA 


21003R86 
F471ABD5 
92491119 


281347E6 09302790 O8AREDZ8 


7863DR10 ORF 85001 
O311F14R 96251110 
52B24C52 
BEF83F4A 18ERFD24 
60171613 41111014 
760 3B060 
66F 49581 3F 3F 3070 
F4B17650 44170908 


4718E6C5 29605017 
C9F828CB 45581262 
6032F508 EA371AC7 
DIFACB?7F 8F779040 


7RFODARF 
25300DB8 


BE46C1AC 
972EE4 3B 


197C32CE 
2CA800CS 


S8A88F SE 05611370 


118E62E2 
51658E93 


342929F6 41004 760 


70B6C008 
21709983 


17900470 
C881662D 
14A311€9 
F8E39C1D 


20BSF B70 
£8D3543A 


F1780 
F17CO 


F1800 
F1840 
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F1900 
F1940 
£1980 
F19CO 


F1A0O 
F1 R40 
F1A80 
F1ACO 


F1800 
F1B40 
F1B80 
F1BCO 


FICO 
F1C40 
F1C80 
FICCO 


F1D00 
F1040 
F1D80 
F1DCO 


F1E00 
F1E40 
F1E80 
FIECO 


F1FOO 
F1F40 
F1F80 
FIFCO 


F2000 
F2040 
F2080 
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F2100 
F2140 
F2180 
F21C0 


F2200 
F2240 
F2280 
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8D84A808 C8FS58E4 
301206F 3 E01560D8 


DDS8E3B5 FO4718E8 
7F3F9202 16373796 
36560232 1FB98F21 
10321AC3 8E58D420 


3772D0R0 FFI5D71D 
1455D21F CR7F2157 
EOFFOIFC A7F2D215 
54034360 4D(508E6 


EE8E9781 RF2A7E15 
AF22815C E16E0C56 
4E£189D5C D721C8E5 
SF4F48ER 54°F 78984 


4£931029 6680A6D5 
AC38ABBO 8E14D447 
SOBS6AOE 8E7CCE7D 
6DC44A19 4BFDAF22 


7BB681E8 EFAIFO42 
4048AB92 8E640F42 
36389153 7857B04A 
30018F 13 DBO137D7 


188ECD2F 4617F9F8 
5€880170 6044F31B 
F2REG8EB CF470198 
25224320 220028 


8F2F2C65 50850065 
65508550 BDA8EE73 
FO88227D GOOEFEGF 
GO564FC6 BAF88227 


5D02662E E2859FAF 
35808CF9 51607288 
F28E3CE1 8C6F 7FAC 
4B18FDeD 31460651 


8641704 
75066410 7660488A 
ECE8B201 13117179 
874808E? E041 71AF 


68E3A141 


31E29627 18563102 
2618FFA1 61865921 
DE10C153 78F8F5FO 
B11FESSF 21431041 


564136A4 E400AR4E4 
SO8EFBE1 8F85E318 
C38FBD3B 17E2F785 
55379831 37135028 


9ACO1023 19E8E876 
B8147E394 8R187514 


79270FF4 00323000 
£5032018 8&039251 


E947F15D 521RC38E 
76661557 17739564 
§5717F33 02021503 
35D372A3 15D51751 


O6C5F 626 
15528E82 
15720B85 
7DBC8EAD 


B98FEOC 
20B85B0B 
DOSE2F 381 
45286781 


DD17D15D DD231A7D 
F14C1BCR 7F202154 
691118D7 7BCB5606 
118EC 6 4A08E1E4 


88258001 
4ACB80DF 
OB6CF16E 
77966680 


067R0007 
17F 89031 
6AC11 74E 
C1176A04 


OAF 2D6F 2 
38A8B1 AF 
64968F 27 
C21351CF 


F2RE98ED 
2D68E5FO 
EF978ER8 
8EED61DF 


E86BE490 396F41258 
F8458E42 FES4E883 
D612FO80 17D0041A 
CE4518B5 018161 7F 


50851C6C 6C655085 
1865A031 800EF E60 
DF88227D SOD8FEOE 
420D1ESC C4D0C558 


F781053F AFEAFFAF 
C50RC550 8EBBE443 
27D228EO BE13E134 
7705255A 78035808 


7F13779A 
F41CF151 
216E3F 77 
214781ED 


11351711 
78656068 
314606DD 
517D846C 


96250846 
11A108AF 
11C8E4BD 
33106133 


17153CAF 
8AC18669 
E1088EBR 
14113303 


BF69F215 
€0741873 
1B078F 21 
1AD31 856 


OOR4E011 
Fi2E318F 
61C615F6 
F53AFO8D 


E5B0112B 44102119 
87683703 £4137231 


SAIADGA3 6044017B 775908R8 40032802 


EAF21371 34135108 


F2E41712 03F44566 
6DOROFF1 50910198 
1138€C56 FOSE404D 
4696A831 45171F 6F 


E8B36022 05014A31 
9115720B 8480B155 
80B15528 54D38E4D 
91DB1087 C7C5D076 


D79114% 
7854841 
F5B131A3 
18EF 14F 4 


53201 88F 
2RC2BF 3E 
ORB8EDB3 
cDO8EFOS 


80D160EA 20320188 
101149BF 4BF40D5C 
04D0393F6 O65CO8ED 
55022031 FIOEF78E 


23F94A70 BF6EG97E 
58EEEBE? 43A6FO27 
£B932076 06000013 
135077A8 9071088E 


820080F0 
8D20DA86 
31CF8555 
8C93EE26 


88060030 
56196090 
CA700F 77 
6C188017 


70655085 2CeCecec 
2F88227D 800EF6D3 
FODCFCDB OEFGOEF8 
F28640FO EFSDO8AR 


E780053E 
196FD22F 
116114A3 
C8F 80845 


AF BO 38D3 
30594 302 
1DF96651 
84494CB0 
337A26D6 133EE716 
01740176 E5727113 
£7D11135 8548456A 
05218648 O7ECO02A 
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F6C80 
F6CCO 


F6D00 
F6D40 
F6D80 
F6DCO 


F6EOO 
FOE4O 
FHE8O 
FeECO 


FOFOO 
F6F40 
FOF 80 
FoFCO 


F 7000 
F 7040 
F 7080 
F70CO 


F7100 
F7140 
F7180 
F7100 


F7200 
F7240 
F7280 
F72C0 


F7300 
F 7340 
F7380 
F73C0 


F 7400 
F7440 
F 7480 
F74CO 


F 7500 
F7540 
F 7580 
F?5CO 


F 7600 
F 7640 
F7680 
F76CO 


FP? 700 
F #740 


i 1 ‘ t 


t 1 t 4 


2F2BF226 
32A4 16BE 


F6890279 
20520320 
10008744 
F540555E 


44950940 
D4(41440 
30520R81 
E4FO0368 


R431 8EBE 
331A3962 
2038ED15 
84886790 


1108030 
71450703 
54032031 
CRFS111F 


01071014 
56028021 
AF511903 
AO4550B3 


44271034 
34723348 
B4392DB0 
350E 3003 


BDE02523 
7C4F 4F40 
14(96260 
OOCD4E02 


F966217E 
37981788 
031309E1 
AO31 3706 


1O04FO2F 
04337F AG 
AFI942E0 
FB8C 3F DB 


6317E966 
8DB32307 
97644175 
B3EGAFO? 


47E847E5 
A21775BB 
62900006 
EOEB6654 


?24869R2 
20312F 71 


31012016 
F80FO213 


11111641 
EFOEF1FE 
14451400 
44504447 


59464 34B 
FO5D4451 
AOD15379 
OOAT214A 


3C4A08C1 
4131E296 
C8588ABE 
8506E6F8 


A15D3725 
28022502 
82966827 
2F 2AE621 


00D231F5 
12RF 8111 
AF 17R044 
50447077 


O1F1A889 
3F1A8892 
F158F 703 
AF17AC24 


6DEE8158 
57D0031F 
64 70783F 
190D7020 


BE400023 
17251 8EC 
9OD9CES6 
1371F 698 


3027F 10D 
5E08 7032 
81181184 
8C 309980 


366CR47E 
5F531DF 9 
78025808 
764FO7B6 


4205(R78 
7745F EFF 
CEFI857E 
70707990 


70C4AF 63 
73791 342 


68702108 
2C416CDF 


36809136 
OEF20EF9 
28554644 
4514C4B4 


94050405 
400000AF 
80400 304 
311F 9621 


79A2864A 
23187072 
E8E6E994 
E8ROR143 


3400D7739 
75454 7F?7 
5F 0400 7F 
0D5D331A— 


400109AF 
816310E0 
05723440 
C34D07FE 


29RE2802 
SAE 724 34 
IDORE48E 
£2712343 


1554F 8E0 
956031F 3 
4007E7F4 
5(028027 


1F 552431 
FCC40014 
0280210A 
F215D307 


40333020 
74704C18 
651FB240 
2FACO?7DA 


9471 3080 
620031 2F 
C74FB831 
17EB50E7 


94311F 64 
62420007 
A48588DB 
5BF 86316 


554F4C49 
1312F 966 


15E0OB87 O5S05EC84 
AF570000 71360613 


5ED8OFFD 10018315 
320EF DDS 01RO65A0 
40068594 4435F 340 
06445351 4440R445 


44104057 44504404 
ABE580RR F997RO02 
BO4B0496 €7117115 
18E422D4 5S38EEABB 


F8ERFOD4 
727670F0 
OOs8CC2FC 
02314105 


00877D07 
67007831 
8£370040 
8EOROA13 


6F 400068 
€954977C 
F441B319 
29667002 


£160A153 
65726245 
29668AD3 
5F 231529 


910A7974 
E6AB6631 
1F1A8895 
354F 7EE3 


4(€531A39 
2F 2F24C0 
9RE 28023 
AF48EE 7C 


31E29626 O79A3AF4 
937A634E 205A0455 
BCB9RE53 1F19E16C 
2RE88158 15960317 


34FC533A 
20172324 
174F1453 
8E620013 


OF CSOO8E 
0297520D 
505E5722 
3F 101133 


18178718 
66200741 
B1371098 
18F BAF 21 


58966717 
AQ6312F9 
1378EB6F 
135AF98C 


2DA1188A 
40AE 8315 
18C7CAC8 
O7DEOG8E 


A400 3002 
815A4E94 
E1OFB8FE 
2CEBS8F BO 


4A5 30 7F 8 
96240073 
80246121 
D31E2D30 


472208F8 
14F 74556 
7C958E13 
07635660 


A4 7DF 485 
00474 35F 
7B207BBF 
70514R5? 


884A6893 
EFF42E00 
70E35F 17 
8F 757172 


TA4REECS 
0754 364C 


76611757 
90706 356 


1642FF2F 2F2BF26E 
220346A0 00CA1321 


E323A065 BOREGRE1 
20A86A81 BED210D1 
BE5E4C40 24480494 
4444C40C 44544444 


05354434 00485340 
FBF20D94 A8FBF6AB 
3717F100 15370502 
8E25EC46 2AF227% 


83407555 O28A8048 
4007R26D 74113102 
077358EC 60A11C2B 
7ES8B6A5 14513511 


717F1001 438E7EF9 
E78A2460 6F90109A 
CE490219 OACO2802 
6600789) 4F1608F 7 


66F 47850 40031309 
C6C60E3A O3F 2RB60 
TE2966E2 75E34B27 
9DIRED8A E2B31F 10 


22E SAF 5D 
A?74234B1 
9BB96968 
D256E4CD 


8E93C98E 
08650445 
8118119E 
ER242176 


C4C47220 
962606E3 
27F1276E 
FDF2F2RE 


F237E455 
DO20312E 
312E9668 
38E 3ROCA 


6COF 3138 
70617721 
66902502 
A8332F 30 


ES5ECC400 
51617350 
ES5EFB12A 
08867708 


502850AC A8E72B9A 
E4DRA054 17950RA0 
3F8007DF O6DBOG8E 
F8O8E1EE BSCEOCCS 


71312F 71 
17756AF6 
572B44D0 
S5FEFFS2 


26304501 
3B527605 
90500710 
F7355AF6 


7EF47C095 AF637840 
00208053 03018503 
59431389 66AR07(05 
4154F1C1 14B9627F 


75305798 
7O54REE1 


7DA37AF 3 
37A8D400 


SF 80F 021 
56780008 


473A0653 
36071 360 
354554£4 
50058525 


44420F05 
280F 0200 
26805070 
815C8752 


407B564E 
96280250 
ASE10420 
815571 7F 


10417313 
F910A781 
72150211 
3D47AF06 


£190D9CE 
3715411A 
00440205 
JAF 17993 


1E57A534 
7C435FE7 
D2REDFSA 
03700297 


31F 75003 
114A1613 
18E350C4 
66050312 


96660020 
8E49C040 
1ORAF 912 
87E20RF4 


F5ACE 785 
R2C86050 
ACAS8EO1 
(D699 7F3 


85858849 
3594A554 
626577A4 
976F 1 7EC 


59404976 
77 15F EFF 
6204258 
$E370147 


4AO37 353 
33101133 


F7780 
F77CO 


F7800 
F7840 
F7880 
F78CO 


F7900 
F7940 
F 7980 
#790 


¥7R00 
F7R40 
F7A80 
F7ACO 


F7B00 
F7B40 
F7B80 
*7BCO 


£7000 
#7040 
F7C80 
F7CCO 


F 7000 
F7D40 
F7D80 
F7DCO 


F7E00 
F7E40 
F7E80 
F7ECO 


F7FOO 
F7F40 
F 7 F 80 
F7FCO 


: t 1 4 


AC281481 48461711 
4F4E5110 ACAR8O0F 1 


41445149 76808598 
08737086 A4003795 
62D231E2 96602171 
89667125 86AC0207 


73517361 4EC31922 
7F417FO1 7F114R28 
C76312F3 O87F H4F 
7A205B18 786060CB 


96650171 79RE4808 
CAAE4007 3701717F 
26027800 74DF 8738 
BEC208DD FC2OAFR8 


90870400 3268CEBS 
8DB39407 840F EFF6 
00671A18 584A8586 


~ 6ASF312E 62FE8D3B 


/SLOAD: 


6268507C D2572779 
54022718 1798E8F9 
0311E966 46671215 
ER1679F7 0025917 


C066A173 CO64DE37 
12F96600 72213383 
E03311F9 6600 7ED0 
8117131A 261F C732 


274CF756 0319278B 
B1312F96 6£018131 
4525F4C4 O22F 764C 
01055039 94644525 


00000000 00000000 
00000000 00000000 


4B716D5C E80DFOD8 
19809135 AF 684A84 


F 7CB26(0 
92246065 
222F 3067 
60031589 


5RACE80D 
27502027 
332E2F7B 
8E164D06 


74223183 
0C114B72 
A1685F 21 
1F 700003 


4966320 
3150577 
0948A076 
77412031 


312162BB 
BO4EE031 
10313713 
DS51D20AF 


667B7D6E 
37108135 
58679491 
R8D62450 


F301F FC6 
7A1857BD 
20 75F FOE 
5027DEE1 


B14B8D96 
29000060 
D2E8DAZC 
F 3035943 


173C2171 
57507082 
B5AF 635F 
1698F 69 


96690 78B 
4C014B8D 
EFF52976 
F31FE966 


2778BD6D 
11480374 
E3060FF7 
F31C26BE 


840594(4 
O274AF1? 
77415A07 
F310263F 


FREES643 
E2DA59D7 
74405901 
0229610C 


14096642 
610312F9 
7160CD60 
14B311F9 


00000000 00000000 
00000000 00000000 


10810005 7FR46A4E 
98489695 08582F 36 


31811191 
4120314C 
A8147094 
66A576D1 


35027362 
7F422F 30 
CF662F01 
7B617B71 


F7E81762 
14B17131 
82111403 
4606F 217 


36651312 
B155B1C1 
00007371 
77317090 


37DFO20A 
CEF873B0 
0111A134 
37135108 


6BEF84A0 
8D9DF 307 
3613410R 
77301181 


F2143131 
B84A74(C 
2101 ED0O 
4B 700357 


03203102 
4606F AF6 
0067DF 79 
178B177E 


14880054 
70617102 
81507822 
15607400 


15BE79A1 
#350171 
7284 98F9 
€0175700 


8F 70AR114 
81480027 
E20REEO3 
F3158966 


B72107D2 
35017114 
3137910 
F2315277 


R6640017 
A37B5F17 
014F 8001 
2E 962000 


17114806 
62400331 
4D8F2915 
62000131 


00000000 00000000 
00000000 00000000 


00000000 00000000 00000000 00000000 00000000 00000000 


00000000 00000000 


00000000 00000000 


End of Saturn Loader Execution 


00000000 00000000 


80DF A961 O8DO8E61 
53404449 72513874 


7422870E 
10431A39 
37382313 
662274C2 


311F 7382 
A74B1453 
7184A7B0 
46E 31829 


68607601 
F2120314 
5SAR4 B8FE 
622231A3 


17631486 
029623A7 
84R66008 
7313129 


CO7BD050 087100A4 
11B1 3559 08704003 
8E794913 SO1REE8D 
7C6F 8738 01181355 


10117114 B9627FO1 
99F 7C1OF EFF32900 
AR8FE7A2 0460702F 
25011717 EDI53E7F 


507B326A 
63EF 7700 
17196200 
6AGF 3394 


DF3794A5 
310E962B 
104172117 
F46ACD7B 


OSBF 7B40 
B8ECO195 
17114631 
DF 787070 


S4FOF1F3 
FE?350AE 
38966421 
£0506318 
1798C5DE 7ARO40C5 
18022950 3F34F4E4 
OC2045E6 64077008 
10000000 00000000 


00000000 00000000 
00000000 00000000 
00000000 00000000 
00000000 00001300 





Saturn Assenbler Roni start (header) <830927.141 Tue Jan 17, 1984 12:21 pn 


Ver. 3.39/Rev. 2306 Page 1 
1 k 
2 k N N 222272 & RRRR SSS. OTTTTT 
3 & N oN Z && R RS § T 
4 x NN ON Z && R RS T 
5 & NNN z & RRRR SSS T 
6 k N NN 2Z &&& RR Ss T 
? x N NZ & & RR S$ § T 
8 x N N 22722 8&& R R_ SSS T 
9 k 
10 & 
11 TITLE Ron start (header) <830927.1416> 
12 FOOOO ABS #FO0000 TIZHP6 address (fixed) 
13 FOQOOO =RONSTT 
14 FOQOOO BSS #8-((*)-(ROMSTT)) 8 nibble ron ID 


15 FOOO8 END 


Saturn Assenbler Ron start (header) <830927.141 Tue Jan 17, 1984 12:21 pn 
Ver. 3.39/Rev. 2306 Synbol Table Page 2 


=ROMSTT Abs 983040 #FO000 - 13 14 


Saturn Asserbler Row start (header) <830927.141 Tue Jan 17, 1984 


Ver. 3.39/Rev. 2306 Statistics 

Input Parareters 
Source file nane 1s NZ&RST::MS 
Listing file nane is NZ/RST:TI:ML::-1 
Object file name is NZZRST: TI: MS: 3-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neis 


12:21 pn 
Page 3 





Saturn Asserbler 
Ver. 3.39/Rev. 26 


Smwnr— 


8405 
944 
25F4 
D402 
5 00010 0000 
6 00014 00 
? 00016 0021 
8 OOOTA 4210 
48 
3 00020 0000 
0 
10 
11 00025 
12 00027 10 
13 00029 62 
14 0002B 0000 
0 


FF 


15 
16 
17 00030 0 
18 00031 000 
19 00034 FOO 
20 00037 450 
21 OOO3AR 270 
22 00030 2B0 
23 00040 (12 
24 00043 (12 
25 00046 C12 
26 00049 ECO 
27 OO04C C12 
28 QOO4F C12 
29 00052 1FO 
30 00055 (12 
31 00058 (12 
32 OOO5B A11 
33 OOOSE 931 
34 00061 (12 
35 00064 171 
36 00067 301 
37 OO06R BO? 
38 0006D C12 
39 00070 C12 
40 00073 (12 
41 00076 (12 
42 00079 (12 
43 0007 (12 
44 0007F 0 
45 00080 4610 
46 00084 0000 
47 00088 0000 
0 


5:39 prt 
1 


Lexical Analyzer Tables--ID=FF Tue Jan 24, 1984 
Page 
TITLE Lexical Analyzer Tables--ID=FF 
* This file was generated on Tue Jan 24, 1984 12:00 pn 
* File Header 
NIBASC \HPILRON \ File Nane 
CON(4) =f LEX File Type 
NIBHEX 00 Flags 
NIBHEX 0021 Tine 
NIBHEX 421048 Date 


REL(5) =Chain€ File Length 
k 
NIBHEX FF Id 
CON(2) 1 Lowest Token 
CON(2) 38 Highest Token 
NIBHEX 00000 End of lex table chain 
x 
* Speed Table 
NIBHEX © Speed table exists 
CON(3) 0 
CON(3) = 15 
CON(3) 84 
CON(3) 114 
CON(3) 178 
CON(3) (TxTbEn)-(TxTbSt) 
CON(3) (TxTbEn)-(TxTbSt) 
CON(3) (TxTbEn)-(TxTbSt) 


CON(4) 
REL(4) 
REL(5) 


206 
(TxTbEn)-(TxTbSt) 
(TxTbEn)-(TxTbSt) 

241 
(TxTbEn)-(TxTbSt) 
(TxTbEn)-(TxTbSt) 

282 

313 
(TxTbEn)-(TxTbSt) 

369 

467 

523 
(TxTbEn)-(TxTbSt) 
(TxTbEn)-(TxTbSt) 
(TxTbEn)-(TxTbSt) 
(TxTbEn)-(TxTbSt) 
(Ty ThEn)-(TxTbSt) 
(TxTbEn)-(TxTbSt) 


(TxTbSt)+1-(*) 
=PILNSG 
=PILPOL 


NXE CCAM DMOVO SA Ar KASH TOMmm™oowDyD 


Speed table exists 

Offset to text table 
Offset to nessage table 

Offset to poll handler 


Saturn Assernbler 
Ver. 3.39/Rev. 2306 Main 


48 

49 

50 00080 

51 

52 0008D FOO 

53 00090 0000 
0 

54 00095 F 

55 

56 00096 £10 

57 00099 0000 
0 

58 OOOSE F 

59 

60 OOO9F D20 

61 OOOAZ 0000 
0 

62 OOOR? F 

63 

64 OOOR8 CH 

65 OOORB 0000 
0 

66 O00B0 F 

67 

68 000B1 B40 

69 OOOB4 0000 
0 

70 OOOBS F 

71 

72 OOOBA 270 

73 OOOBD 0000 
0 

74 0002 F 

75 

76 00O0C3 2% 

77 OOOCE 0000 
0 

78 OOOCB F 

79 

80 OOOCE 380 

81 OOOCF 0000 
0 

82 000D4 F 

83 

84 000D5 £D1 

85 O0OD8 0000 
0 

86 OOODD F 

87 

88 OOODE 281 

89 OOOE1 0000 
0 

90 OOOE6 F 

91 

92 OWE? 171 


Lexical Analyzer Tables--ID=FF 


x Main 
=xronFF 
x 


Table 
STITLE Naan 
Table 

CON(3) 15 
REL(5) =BINAND 
NIBHEX F 


CON(3) Ww 
REL(S) =BINCMP 


NIBHEX F 


CON(3) 45 
REL(5) =BINEOR 


NIBHEX F 


CON(3) 60 
REL(5) =BINIOR 


NIBHEX F 


CON(3) 75 
REL(S) =BIT 


NIBHEX F 


CON(3) 114 
REL(5) =FIND 


NIBHEX F 


CON(3) 146 
REL(5) =DEVID 


NIBHEX F 


CON(3) 131 
REL(5) =DEVTYP 


NIBHEX F 


CON(3) 478 
REL(5) =SPOLL 


NIBHEX F 


CON(3) 386 
REL(5) =READIN 


NIBHEX F 


CON(3) 369 


Table 


01 


02 


03 


05 


06 


0? 


08 


09 


OA 


OB 


Tue Jan 24, 1984 5:39 pr 


Page 2 


BINAND ( <int.exp> , <int.exp> 


BINCHP ( 


<int.exp> ) 


BINEOR ( 


<int.exp> , <int.exp> 


BINIOR ( 


<int.exp> , <int.exp> 


BIT ( <int.exp> , <bit positio 


A=DEVADDR(<device spec>)(Retur 


AS=DEVID$(<device spec>) 


A=DEVAID(<device spec>) 


SPOLL ( <device spec> ) 


READINTR {read interrupt cause 


READDDC {read last 0.D. contian 


Saturn Assernbler 


93 OOOER 0000 
0 

94 OOOEF F 

95 

96 OOOFO CFI 

97 OOOF3 0000 
0 

98 OOOF8 F 

99 

100 OOOF9 ECO 

101 OOOFC 0000 
0 

102 00101 D 

103 

104 00102 450 

105 00105 0000 
0 

106 OO10R D 

107 

108 0010B 000 

109 OO10E 0000 
0 

110 00113 D 

114 

112 00114 A11 

113 00117 0000 


0 
114 OO11C D 
115 
116 0011D 2C1 
117 00120 0000 
0 
118 00125 D 
119 
120 00126 1F0 
121 00129 0000 
0 
122 OO12E D 
123 
124 OO12F R21 
125 00132 0000 
0 
126 00137 D 
12? 
128 00138 10 
1239 0013B 0000 
0 
130 00140 D 
131 
132 00141 321 
133 00144 0000 
0 
134 60149 C 
135 
136 0014R 301 


REL(S) =READDC 
NIBHEX F 


CON(3) 508 
REL(S) =STATUS 


NIBHEX F 


CON(3) 206 
REL(S) =INITXQ 


NIBHEX D 


CON(3) 84 
REL(5) =CLEAR 


NIBHEX D 


CON( 3) 0 
REL(5) =ASGNIO 


NIBHEX D 


CON(3) 282 
REL(S) =OFFIO 


NIBHEX D 


CON(3) 450 
REL(5) =RESTIO 


NIBHEX D 


CON(3) 241 
REL(5) =LISTIO 


NIBHEX D 


CON(3) 298 
REL(5) =OQUTPUT 


NIBHEX D 


CON(3) 193 
REL(5) =ENTER 


NIBHEX D 


CON(3) 291 
REL(S) =ONINTx 


NIBHEX C 


CON(3) 467 


Lexical Analyzer Tables--ID=FF 
Ver. 3.39/Rev. 206 Nain Table 


oc 


00 


OE 


OF 


10 


14 


12 


13 


14 


15 


16 


Tue Jan 24, 1984 5:39 pn 
Page 3 


STATUS [( <loop #> )] 


INITIALIZE [<volune>]<dev spec 


CLEAR LOOP[;<loop>} | <device 


ASSIGN 10 


OFF I0 


RESTORE I0 


LIST I0 


QUTPUT <dev spec> [USING] <lis 


ENTER <dev spec> [USING] <list 


ON INTR GOSUB/GOTO <line #>|<1 


SEND [;<loop>] {<Frane>}+ 


Saturn Asserbler 


137 00140 0000 
0 
138 00152 D 
139 
140 00153 5B1 
141 00156 0000 
0 
142 0015B D 
143 
144 O015C 061 
145 OO15F 0000 
0 
146 00164 D 
147 
148 00165 1A0 
149 00168 0000 
0 
150 00160 D 
151 
152 OO16E R41 
153 00171 0000 
0 
154 00176 D 
155 
156 00177 931 
157 0017A 0000 
0 
158 O017F D 
159 
160 00180 4A 
161 00183 0000 
0 
162 00188 D 
163 
164 00189 CFO 
165 0018C 0000 
0 
166 00191 D 
167 
168 00192 591 
169 00195 0000 
0 
170 0019AR D 
171 
172 0019B BOo2 
173 OO139E 0000 
0 
174 OO1A3 D 
176 
176 OO1R4 551 
177 OO1A7 0000 
0 
178 OO1AC D 
179 
180 OO1AD 2B0 


Lexical Analyzer Tables--ID=FF 
Ver, 3.39/Rev. 206 Main Table 


REL(5) =SEND 
NIBHEX D 


CON(3) 437 
REL(5) =RESET 


NIBHEX D 


CON(3) 352 
REL(5) =PRNTIS 


NIBHEX D 


CON(3) 161 
REL(S) =DISPIS 


NIBHEXK 0 


CON(3) 330 
REL(5) =PACK 


NIBHEX D 


CON(3) 313 
REL(5) =PACKD 


NIBHEX D 


CON(3) 420 
REL(5) =REQST 


NIBHEX D 


CON(3) 252 
REL(5) =LOCAL 


NIBHEX D 


CON(3) 405 
REL(S) =RENOTE 


NIBHEX D 


CON(3) 523 
REL(5) =TRIGER 


NIBHEX D 


CON(3) 341 
REL(5) =PASS 


NIBHEX D 
CON(3) 178 


1? 


18 


13 


1A 


1E 


1F 


21 


Tue Jan 24, 1984 5:39 pn 
Page 4 


RESET HPIL 


PRINTER IS code 


DISPLAY IS code 


PACK <Device specifier> code 


PACKDIR <Device specifier> cod 


REQUEST [<loop #>; ]<nun|str ex 


LOCAL [<dev.spec|loop #>],[<de 


REMOTE [<dev.spec>..] | { LOOP 


TRIGGER [<dev.spec>..] | [ LOO 


PASS CONTROL <dev. spec> | LOO 


ENABLE INTR <interrupt mask by 
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181 001B0 0000 
0 
182 00185 D 


184 001B6 BE 

185 001B9 0000 
0 

186 OO1BE D 


189 OO1BF 160 

19 O1C2 0000 
0 

191 001C7 D 


194 001C8 AEO 

195 Q1CB 0000 
0 

196 00100 0 


199 00101 901 

200 001D4 0000 
0 

201 00109 0 


204 OO1DR FDO 

205 O01DD 0000 
0 

206 OO1E? O 


Lexical Analyzer Tables--I0=FF 
Ver. 3,39/Rev. 23006 Main Table 


=tCNTRL 


=tI0 


=tLOCKO 


* 
=tINTRR 


REL(5) =ENABLE 
NIBHEX D 


CON(3) 491 
REL(5) =STANBY 


NIBHEX D 

EQU #23 
CON(3) 97 
REL(S) =CONTRL 
NIBHEX D 

EQU #24 
CON(3) 234 
NIBHEX 00000 
NIBHEX 0 

EQU #25 
CON(3) 265 
NIBHEX 00000 
NIBHEX 0 

EQU #26 
CON(3) 223 
NIBHEX 00000 


NIBHEX 0 


22 


23 


24 


25 


26 
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STANDBY [ON | OFF] or value 


CONTROL ON|OFF 


(See OFF, ASSIGN, and RESTORE) 


(See LOCAL) 


(See ON/OFF) 


207 
208 
209 OO1E3 
210 
211 OO1E3 
212 OO1E4 


213 0O1F0 
214 

215 OO1F2 
216 OO1F3 


217 OO1FF 
218 

219 00201 
220 00202 


221 OO20E 
222 

223 00210 
224 00211 


225 00210 
226 

227 OO21F 
228 00220 


229 W220 
23 

231 0022E 
232 OO22F 


233 00235 
234 

235 00237 
236 00238 


237 W242 
238 

239 00244 
240 00245 


241 00253 
242 

243 00255 
244 00256 
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B 
1435 
3594 
74E4 
FO 


B 
2494 
E414 
£444 
10 


2494 
£434 
D405 


2494 
£454 
F425 


2494 
£494 
F425 


2494 
45 


344 
5414 
25 
£0 


S4F4 
£445 
25F4 
C4 
32 


4454 
6514 
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* Text 
TxTbSt 
x 


Table 
STITLE Tex t 
Table 


NIBHEX B 

NIBASC \ASSIGN\ 
NIBHEX FO 
NIBHEX B 

NIBASC \BINAND\ 
NIBHEX 10 
NIBHEX B 

NIBASC \BINCNP\ 
NIBHEX 20 
NIBHEX B 

NIBASC \BINEOR\ 
NIBHEX 30 
NIBHEX B 

NIBASC \BINIOR\ 
NIBHEX 40 


NIBHEX 5 
NIBASC \BIT\ 


NIBHEX 50 
NIBHEX 9 
NIBASC \CLEAR\ 
NIBHEX EO 


NIBHEX D 
NIBASC \CONTROL\ 


NIBHEX 32 


NIBHEX D 
NIBASC \DEVADDR\ 
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Table 
Text table start 


ASSIGN 10 


BINAND ( 


<int.exp> , 


BINCMP ( 


<int.exp> ) 


BINEOR ( 


<int.exp> , 


BINIOR ( 


<int.exp> , 


BIT ( <int.exp> , <b 


CLEAR LOOP[;<loop>) 


CONTROL ON|OFF 


A=DEVADDR(<device sp 
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4444 
25 
245 00264 60 NIBHEX 60 
246 x 
247 00266 B NIBHEX B A=DEVAID(<device spe 
248 00267 4454 NIBASC \DEVAID\ 
6514 
9444 
249 00273 80 NIBHEX 80 
250 x 
251 00275 B NIBHEX B A$=DEVID$(<device sp 
252 00276 4454 NIBASC \DEVID$\ 
6594 
4442 
253 00282 70 NIBHEX 70 
254 x 
255 00284 D NIBHEX D DISPLAY IS code 
256 00285 4494 NIBASC \DISPLAY\ 
3505 
C414 
95 
257 00293 91 NIBHEX 91 
258 x 
259 00295 B NIBHEX 8 ENRBLE INTR <interru 
260 00296 54E4 NIBASC \ENABLE\ 
1424 
C454 
261 OO2A2 12 NIBHEX 12 
262 x 
263 OO2A4 9 NIBHEX 9 ENTER <dev spec> [US 
264 002A5 54E4 NIBASC \ENTER\ 
4554 
25 
265 OO2AF 41 NIBHEX 41 
266 x 
267 002B1 D NIBHEX D0 INITIALIZE [<volune> 
268 002B2 3464 NIBASC \INITIAL\ 
9445 
9414 
C4 
269 00200 DOD NIBHEX DO 
270 x 
271 002C2 7 NIBHEX 7? (See ON/OFF) 
272 00203 94E4 NIBASC \INTR\ 
4525 
273 O2CB 62 NIBHEX 62 
274 x 
275 OO2CD 3 NIBHEX 3 (See OFF, ASSIGN, an 
276 OO2CE S4F4 NIBASC \IO\ 
277 W2Dd2 42 NIBHEX 42 
278 x 
279 204 7 NIBHEX 7 LIST I9 
280 00205 (494 NIBASC \LIST\ 
3545 


281 OO2DD 21 NIBHEX 21 
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282 
283 OO2DF 9 
284 002E0 C4F4 
3414 
C4 
285 OO2ZER D1 
286 
287 OOZEC D 
288 OO2ED C4F4 
34B4 
F455 
45 
289 OO2FB 52 
290 
291 O02FD 5 
292 OO2FE F464 
64 
233 00384 01 
294 
295 00OW6 3 
296 00307 FAE4 
297 OOWB 51 
298 
299 OOWD B 
HO OOWE F455 
4505 
5545 
1 0031A 31 
He 
3 00310 D 
34 0031D 0514 
3484 
4494 
25 
35 0032B B1 
06 
37 00320 7 
38 0O32E 0514 
34B4 
3 00336 Al 
310 
311 00338 7 
312 00339 0514 
3538 
313 0031 02 
314 
315 00343 D 
316 00344 0525 
94E4 
4554 
25 
317 00352 81 
318 
319 00354 D 
320 00355 2554 


x 


Lexical Analyzer Tables--ID=FF Tue Jan 24, 1984 5:39 pn 
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NIBHEX 9 
NIBASC \LOCAL\ 
NIBHEX D1 


NIBHEX D 
NIBASC \LOCKOUT\ 


NIBHEX 52 


NIBHEX 5 
NIBASC \OFF\ 


NIBHEX 01 
NIBHEX 3 

NIBASC \ON\ 
NIBHEX 51 
NIBHEX 8B 

NIBASC \QUTPUT\ 
NIBHEX 31 


NIBHEX D 
NIBASC \PACKDIR\ 


NIBHEX B1 


NIBHEX 7 
NIBASC \PACK\ 


NIBHEX Al 


NIBHEX 7 
NIBASC \PASS\ 


NIBHEX 02 


NIBHEX D 
NIBASC \PRINTER\ 


NIBHEX 81 


NIBHEX D 
NIBASC \READDDC\ 
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LOCAL [<dev.spec|loo 


(See LOCAL) 


OFF 10 


ON INTR GOSUB/GOTO < 


OUTPUT <dev spec> (U 


PACKDIR <Device spec 


PACK <Device specifi 


PASS CONTROL <dev. s 


PRINTER IS code 


READDDC {read last D 


321 00363 
322 

323 00365 
324 00366 


325 00376 
326 

327 00378 
328 00379 


323 00385 
330 

331 00387 
332 00388 


333 00396 
334 

335 00398 
336 00399 


337 003A3 
338 

339 003A5 
340 003A6 


341 00384 
4e 

343 003B6 
344 00387 


345 0038F 


349 O003CC 
360 

351 003CE 
352 OO3CF 


353 00300 
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1444 
4444 
34 
BO 


F 
2554 
1444 
94E4 
4525 
AO 


B 
2554 
DAF4 
4554 
£1 


D 
2554 
1555 
5435 
45 
(1 


9 
2554 
3554 
45 
71 


D 
2554 
3545 
F425 
54 
1 


7 
3554 
£444 
61 


9 


2 3505 


F4C4 
c4 
90 


D 
3645 
1464 
4424 
95 
22 


Lexical Analyzer Tables--ID=FF 
Table 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 
NIBHEX 
NIBASC 
NIBHEX 


NIBHEX 
NIBASC 


NIBHEX 


BO 


F 
\READINTR\ 


AO 

B 
\REMOTE\ 
E1 

D 
\REQUEST\ 
C1 

9 

\RESET\ 
71 

0 
\RESTORE\ 


11 


? 
\SEND\ 


61 

3 
\SPOLL\ 
90 


D 
\STANDBY\ 


ee 





Tue Jan 24, 1984 


5:33 pr 
Page 9 


READINTR {read inter 


REMOTE [<dev.spec>.. 


REQUEST [<loop #>;)< 


RESET HPIL 


RESTORE 10 


SEND [;<loop>]) {<Fra 


SPOLL ( <device spec 


STANDBY [ON | OFF] o 
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354 
355 003DF 8 
356 003E0 3545 
1445 
5535 
357 O03EC CO 
358 
359 OO3EE D 
360 OO3EF 4525 
9474 
7454 
25 
361 OO3FD F1 
362 OO3FF 1FF 
363 00402 


x 


NIBHEX 8 
NIBASC \STATUS\ 


NIBHEX CO 


NIBHEX D 
NIBASC \TRIGGER\ 


NIBHEX F1 
TxTbEn NIBHEX 1FF 
END 


Page 10 


STATUS [( <loop #> ) 


TRIGGER [<dev.spec>. 


Text termination 
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ASGNIO Ext - 109 
BINAND Ext = 53 
BINCMP Ext - 57 
BINEOR Ext - 61 
BINIOR Ext - 65 
BIT Ext - 69 
CLEAR Ext - 105 
CONTRL Ext - 199 
ChainE Ext 7 9 
DEVID Ext - 7? 
DEVTYP Ext - 81 
DISPIS Ext - 149 
ENABLE Ext - 181 
ENTER Ext - 129 
FIND Ext - 73 
INITXQ Ext - 101 
LISTIO Ext - 121 
LOCAL = Ext - 165 
OFFIO Ext - 113 
ONINTx Ext - 133 
OUTPUT Ext - 125 
PACK Ext - 153 
PACKD Ext - 157 
PASS Ext - 17? 
PILMSG Ext - 46 
PILPOL Ext - 47 
PRNTIS) Ext - 145 
READDC Ext m 93 
READIN Ext - 89 
REMOTE Ext - 169 
REQST Ext - 161 
RESET = Ext - 141 
RESTIO Ext - 117 
SEND Ext - 13? 
SPOLL = Ext - 85 
STANBY Ext - 185 
STATUS Ext = 97 
TRIGER Ext - 173 


TxTbEn Rel 1023 HOOSFF - 362 23 24 25 2? 28 »” 31 
34 38 39 40 4 42 43 

209 23 24 25 ad 28 3” 31 
34 38 33 40 41 42 43 45 


TxTbSt Rel 483 HOO1E3 


f LEX Ext - 5 
=tCNTRL Abs 35 #00023 - = 188 
=tINTRR Abs 38 #00026 - = 203 
=tI0 Abs 36 #00024 - = 193 
=tLOCKO Abs 37 #00025 - 198 


=xronFF Rel 141 #OOO8D - 50 
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Input Paraneters 
Source file nane is NZ&TBL::NS 
Listing file name is NZ/TBL: TI: ML 
Object file nane is NZZTBL:TI:MS 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assembler Neus 





Saturn Rssenbler 
Ver. 3.39/Rev. 2306 


Tue Jan 17, 1984 12:05 pn 


see ek ee ne ee 
AMHWP-DOwWwoon nn awh —- 


17 00002 


myo 
—-Owo 


00006 
00008 
00009 


22 


rn 
Ww 


24 
25 
26 
27 
28 
23 
x” 


00013 


00014 
31 00016 
32 00018 
33 00019 


34 
35 
36 
37 
38 
39 00029 
40 00028 
41 00020 
42 0002E 
43 000% 
44 

45 

46 00031 
47 00033 
48 00035 
49 00036 
50 00038 
51 


00025 
00026 
00028 


01 


8405 
9404 
02 


51 
10 


1435 
3594 
74E4 


OS "se 


80 
40 
E 
0 
C 


Page 1 
& 
. NN ZZ22Z & EEEEE RRRR  RRRR 
- N ON 788 € R RR R 
* WN N 672 8BCOCE R RR R 
* NNN Z 8  EEEE RRRR  RRRR 
x NNN Z &88€E RR RR 
x N NZ & &® €E RR RR 
x N WN 72272722 8&& EEFEE R RR R 
& 
* 
* Date of last update <830929.1738> 
* 
* HPIL uses error numbers 1n the range 0-63 (0-3F Hex) 
* (Error nunbers between 64 and (end) are building blocks) 
x 
CON(2) 1 Min nessage # 
CON(2) 67 Max message # 
* 
=eHPIL EQU 00 (TITLE for my errors) 
CON(2) 16 
CON(2) 00 Message nuriber 00 
CON(1) 4 


NIBASC \HPIL \ 


CON(1) 12 


x 


* Errors 1-15 are parse errors 
k 


x 


=eNDASN EQU 01 ASSIGN I0 Needed 
CON(2) 21 
CON(2) 01 Message nunber 01 
CON(1) 5 


NIBASC \ASSIGN\ 


CON(1) 13 
CON(2) =eION 
CON(1) 12 

x 


=exCESS EQU 03 
CON(2) 8 
CON(2) 03 
CON(1) 14 
CON(2) =eEXCHR 
CON(1) 12 
=eNSPAr EQU 04 
CON(2) 8 
CON(2) 04 
CON(1) 14 
CON(2) =eNSPAR 
CON(1) 12 


Excess chars 


Message nurber 03 


Missing paraneter(s) 


Message nuriber 04 
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52 =eILPAr EQU 05 Illegal paraneter(s) 
53 00039 80 CON(2) 8 
54 00038 50 CON(2) 05 Message nuriber 05 
55 00030 E CON(1) 14 
56 OOO3E & . CON(2) =eILPAR 
57 00040 C CON(1) 12 
58 x 
59 =eILEXp EQU 06 Illegal expression 
60 00041 80 CON(2) 8 
61 00043 60 CON(2) 06 Message nunber 06 
62 00045 E CON(1) 14 
63 00046 00 CON(2) =eILEXP 
64 00048 C CON(1) 12 
65 x 
66 =eSYNTx EQU 07 Syntax Error 
67 00049 380 CON(2) 8 
68 0004B 70 CON(2) 07 Message nurber 07 
69 00040 E CON(1) 14 
70 OOO4E 00 CON(2) =eSYNTX 
71 00050 C CON(1) 12 
72 x 
73 * Errors 8-15 are reserved 
74 x 
75 * Errors 16-31 are tape errors 
76 x 
7? x 
78 =efPROT EQU 16 File Protect 
79 00051 8&8 CON(2) 2 
80 00053 01 CON(2) 1 Message nuriber 16 
81 00055 £ CON(1) c 
82 00056 OO CON(2) =eFPROT 
83 00058 C CON(1) 12 
84 x 
85 =eEOTAP EQU 1? End of nediun 
86 00059 71 CON(2) 23 
87 0005B 11 CON(2) 17 Message nuriber 17 
88 0005) 6 CON(1) 6 
89 OOOSE 54£6 NIBASC \End Of \ 

4602 
F466 
02 
90 OOO06C D CON(1) 13 
91 0006D 24 CON(2) =eNEDIA 
92 OOO6F C CON(1) 12 
93 =eINVAL EQU 18 Invalid mediur 
94 x 
95 =eSTALL EQU 18 Tape stall-Invalid rediun 
86 00070 BO CON(2) 11 
97 00072 21 CON(2) 18 Message nuriber 18 
98 00074 E CON(1) 14 
99 00075 00 CON(2) =eINVLD 
100 00077 D CON(1) 13 
101 06078 24 CON(2) =eNEDIA 
102 O007A C CON(1) te 


103 * 
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104 =eNOLIF EQU 19 Not LIF-Invalid nediun 
105 0007B 80 CON(2) 8 
106 00070 31 CON(2) 19 Message nurber 19 
107 O007F D CON(1) 13 
108 00080 21 CON(2) =eINVAL 
109 00082 C CON(1) 12 
110 a 
111 =eNOTAP EQU 20 No nediun 
112 00083 FO CON(2) 15 
113 00085 41 CON(2) 20 Message nuriber 20 
114 00087 2 CON(1) 2 
115 00088 E4F6 NIBASC \No \ 

02 
116 OQOO8E D CON{1) 13 
117 OOO8F 24 CON(2) =eMEDIA 
118 00091 C CON(1) 12 
119 x 
120 =eNFILE EQU 22 File not found 
121 00092 80 CON(2) 8 
122 00094 61 CON(2) 22 Message nuriber 22 
123 00096 E CON(1) 14 
124 00097 00 CON(2) =eFnFND 
125 00099 C CON(1) 12 
126 x 
12? =eNEWTA EQU 23 New mediun-Invalid nediun 
128 0009R 80 CON(2) 8 
129 OOO9C 71 CON(2) 23 Message nuriber 23 
130 OOO9E D CON(1) 13 
131 OOO9F 21 CON(2) =eINVAL 
132 QOOA1 C CON(1) 12 
133 x 
134 =eBLANK EQU 24 No data -Invalid rediun 
135 OOOR2 80 CON(2) 8 
136 OOOR4 81 CON(2) 24 Nessage nunber 24 
137 OOORE D CON(1) 13 
138 OOOR? 21 CON(2) =eINVAL 
139 OOORS C CON{1) 12 
140 x 
141 =eRECRD EQU 25 Record #-Invalid mediun 
142 OOORA 80 CON(2) 8 
143 OOORC 91 CON(2) 25 Message nunber 25 
144 OOORE D CON(1) 13 
145 QOORF 21 CON(2) =eINVAL 
146 00081 C CON(1) 12 
147 x 
148 =eCHSUN EQU 26 Checksun-Invalid rediun 
149 0OOB2 80 CON(2) 8 
150 000B4 At CON(2) 26 Message nurber 26 
151 000B6 D CON(1) 13 
152 OO0B7 21 CON(2) =eINVAL 
153 000B9 C CON(1) 12 
154 x 
155 =eTSIZE EQU 28 Size of file 
156 OOOBA 91 CON(2) 25 


157 QOOBC C1 CON(2) 28 Message nuriber 28 
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158 OOOBE 7 
159 OOOBF 3596 
A756 
O2F6 
6602 
160 OOOCF E 
161 OO0DO 00 
162 O00D2 C 
163 
164 
165 00003 80 
166 000D5 E1 
167 00007 E 
168 00008 00 
169 OOODA C 
170 
171 
172 OOODB 32 
173 OOODD F1 
174 QOODF B 
175 OOOEO D 
176 OOOE1 4496 
2756 
3647 
F627 
9702 
6457 
Cel6 
178 OOOFD C 
179 
180 
181 
182 
183 
184 
185 OOOFE 80 
186 00100 02 
18? 00102 E 
188 00103 00 
189 00105 C 
190 
191 
192 00106 B1 
193 00108 22 
194 OO10A D 
195 QO010B 14 
196 OO10D 8 
197 OO10E E4F6 
4702 
2556 
1646 
198 OO11E 97 
199 00120 C 
200 
201 


17? OOOF1 


CON(1) 
NIBASC 


CON(1) 
CON(2) 
: CON(1) 


=eEFILE EQU 
CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 
& 
=eDIRFL EQU 
CON(2) 
CON(2) 
CON(1) 
CON(1) 
NIBASC 


NIBASC 


CON(1) 
k Errors 32-47 
x 
=eNOFND EQU 
x 


=eTERMN EQU 
CON 


=eNORDY EQU 

CON(2 
CON(2 
CON( 
CON( 
CON( 
NIBAS 


-—n—or 


Oy ee ee ee ee 


NIBASC 
CON(1) 


x 


=eLTINO EQU 
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? 
\Size of \ 


14 
=eFILE 
12 


30 
8 
30 
14 
=eFEXST 
12 


File exists 


Message nuriber 


31 

35 
31 

11 

13 
\Director\ 


Directory full 


Message nuriber 31 


\y Full\ 


he 


are HPIL Errors 


32 Device not found 
32 (Terminator match) 
8 
2 Nessage nunber 32 
14 
=eDVCNF 
12 
34 Device not ready 
34 Message nuriber 34 
13 
=eDEVIC 
8 
\Not Read\ 
\y\ 
12 
35 Loop broken 
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202 00121 C1 
203 00123 32 
204 00125 A 
205 00126 C4F6 
F607 
0224 
27F6 
206 00136 B656 
E6 


207 00130 C 
208 
209 
210 0013D 31 
211 OO13F 42 
212 00141 D 
213 00142 04 
214 00144 4 
215 00145 5427 
27F6 
27 
216 OO14F C 
217 
218 
219 00150 80 
220 00152 52 
221 00154 D 
222 00155 42 
223 00157 C 
224 
225 
226 00158 80 
227 OO15R 62 
228 OO15C D 
229 OO15D 42 
230 OO1SF C 
231 
232 
233 00160 F1 
234 00162 72 
235 00164 A 
236 00165 55E6 
5687 
0756 
3647 
237 00175 5646 
02 
238 0017B D 
239 0017C 04 
240 OO17E C 
241 
242 
243 O017F 80 
244 00181 82 
245 00183 D 
246 00184 42 


=eF LOST 


=eQVRUN 


& 
=eLPERR 


x 
=eUNEXP 


x 
=eRXXXKK 


CON(2) 28 
CON(2) 35 
CON(1) 10 
NIBASC \Loop Bro\ 


NIBASC \ken\ 
CON(1) 12 


EQU 36 
CON(2) 19 
CON(2) 36 
CON(1) 13 
CON(2) =eFRANE 
CON(1) 4 
NIBASC \Error\ 


CON(1) 12 


EQU 37 
CON(2) 8 
CON(2) 37 
CON(1) 13 
CON(2) =eF LOST 
CON(1) 12 


EQU 38 
CON(2) 8 
CON(2) 38 
CON(1) 13 
CON(2) =eF LOST 
CON(1) 12 


EQU 39 

CON(2) 31 

CON(2) 39 

CON(1) 10 

NIBRSC \Unexpect\ 


NIBASC \ed \ 


CON(1) 13 
CON(2) =eFRANE 
CON(1) 12 


EQU 40 
CON(2) 8 
CON(2) 40 
CON(1) 13 
CON(2) =eF LOST 
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Message nunber 35 


Frane Error 


Message nunber 36 


Frane Overrun 


Message nunber 37 


Frane Changed 


Message nunber 38 


Unexpected Frane 


Message nunber 39 


Frane Lost 


Message nunber 40 
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247 00186 C 
248 
249 
250 00187 11 
251 00189 92 
252 0018B E 
253 0018C 00 
254 OO18E 3 
255 OO18F DAFE 
4656 
256 00197 C 
257 
258 
259 00198 80 
260 OO19A R2 
261 O019C D 
262 00190 32 
263 OO19F C 
264 
265 
266 OO1AO 80 
267 OO1R2 Be 
268 OO1A4 D 
269 GOTAS 32 
270 OO1R? C 
2? 1 
ere 
273 OO1R8 80 
274 OOTAR C2 
275 OO1RC E 
276 OO1RD 00 
277 OOIRF C 
278 
279 
280 OO1B0 72 
281 OO1B2 D2 
282 001B4 B 


283 OO1B5 F 

284 001B6 3556 
C666 
0247 
5637 

285 00106 4702 
6616 
96C6 
5646 

286 O01D6 C 

287 

288 


289 OO1D7 11 
290 001039 Fe 
291 OO1DB D 
292 OO1DT 14 
293 OOIDE 3 
294 OO1DF 4597 


=eBRDND 


=eFRTOI 


x 
=eFRTOL 


k 
=eSY¥Ser 


& 
=eTESTF 


=eDTYPE 
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CON(1) 12 


EQU 41 Invalid Mode 
CON(2) 17 

CON(2) 41 Message nunber 41 
CON(1) 14 

CON(2) =eINVLD 

CON(1) 3 

NIBASC \Mode\ 


CON(1) 12 


EQu 42 Frane Tineout (SCI) 
CON(2) 8 

CON(2) 42 Message nunber 42 
CON(1) 13 

CON(2) =eLTINO 

CON(1) 12 


EQU 43 Frarie Tineout (Loop) 
CON(2) 8 

CON(2) 43 Message nunber 43 
CON(1) 13 

CON(2) =eLTINO 

CON(1) 12 


EQU 44 Systen Error (Bad cur addr) 
) 8 

) 44 Nessage nunber 44 
) 14 

) =eMMCOR 

) 12 


EQU 45 Selftest failed 
CON(2) 39 

CON(2) 45 Message nunber 45 
CON(1) 11 

CON(1) 15 

NIBASC \Self-tes\ 


NIBASC \t farled\ 


CON(1) 12 


EQU 4? Device type 
CON(2) 1? 

CON(2) 47 Message number 47 
CON(1) 13 

CON(2) =eDEVIC 

CON(1) 3 

NIBASC \Type\ 
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0756 
295 OO1E7 C CON(1) 12 
296 x 
297 * Errors 48-50 are unused 
298 a 
299 & 
300 * Error 51 is reserved 
301 & 
302 . 
H3 =eRBORT EQU 52 Aborted operation 
304 OO1E8 41 CON(2) 20 
305 OO1ER 43 CON(2) 52 Message nunber 52 
306 OO1EC 6 CON(1) 6 
307 OOIED 1426 NIBASC \Aborted\ 
F627 
4756 
46 
308 OO1FB C CON(1) 12 
309 : 
310 =eDSPEC EQU 53 Invalid device spec 
311 OO1FC 41 CON(2) 20 
312 OO1FE 53 CON(2) 53 Message nunber 53 
313 00200 E CON(1) 14 
314 00201 00 CON(2) =eINVLD 
315 00203 D CON(1) 13 
316 00204 14 CON(2) =eDEVIC 
317 00206 3 CON(1) 3 
318 00207 3507 NIBASC \Spec\ 
5636 
319 OO20F C CON(1) 12 
320 2 
321 =eNNUNR EQU 54 Not nuneric 
322 00210 80 CON(2) 8 
323 00212 63 CON(2) 54 Message nunber 54 
324 W214 E CON(1) 14 
325 00215 00 CON(2) =eDATTY 
326 00217 C CON(1) 12 
327 : 
328 =eRANGE EQU 56 Invalid Arg 
329 00218 80 CON(2) 8 
33% 0021A 83 CON(2) 56 Message nurber 56 
331 OO21C E CON(1) 14 ; 
332 00210 00 CON(2) =eIVARG 
333 OO21F C CON(1) 12 
334 x 
335 =eNMBOX EQU 57 No loop 
336 00220 41 CON(2) 20 
337 00222 93 CON(2) 57 Message nurber 57 
338 00224 6 CON(1) 6 
339 00225 E4F6 NIBASC \No Loop\ 
02C4 
F6F6 
07 
340 00233 C CON(1) 12 


341 
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342 =eNORAM EQU 59 Insufficient nenory 
343 00234 80 CON(2) 8 
344 00236 B3 CON(2) 59 Message nuriber 59 
345 00238 E CON(1) 14 
346 00239 00 CON(2) =eNEN 
347 00238 C CON(1) 12 
348 x 
349 =eOFFED EQU 60 RESTORE 10 Needed 
350 0023C 71 CON(2) 23 
351 0023E C3 CON(2) 60 Message nunber 60 
352 00240 6 CON(1) 6 
353 0241 2554 NIBASC \RESTORE\ 

3545 
F425 
54 
354 0024F D CON(1) 13 
355 00250 34 CON(2) =eION 
356 00252 C CON(1) 12 
35? , 
358 * Errors 61-63 are reserved 
359 a 
360 * Error messages 64-end are building blocks 
361 ~ x 
362 
363 =eFRANE EQU 64 “Message” Building block 
364 00253 61 CON(2) 22 
365 00255 04 CON(2) 64 Message nuriber 64 
366 00257 7 CON(1) =? 
367 00258 D456 NIBASC \Nessage \ 
373? 
1676 
5602 
368 00268 C CON(1) 12 
369 , 
370 =eDEVIC EQU 65 "Device " building block 
371 00269 41 CON(2) 20 
372 00268 14 CON(2) 65 Message nuriber 65 
373 0026) 6 CON(1) 6 
374 OO26E 4456 NIBASC \Device \ 
6796 
3656 
02 
375 O27C C CON(1) 12 
376 s 
Jee =eMEDIA EQU 66 "Mediun" building block 
378 OO27D 21 CON(2) 18 
379 OOC?7F 24 CON(2) 66 Message nuriber 66 
380 00281 5 CON(1) 5 
381 00282 D456 NIBASC \Mediun\ 
4696 
5706 
382 OO28E C CON(1) 12 
383 
384 =eION EQU 67 " TQ Needed" building block 


385 OO2SF AT CON(2) 2 
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386 00291 


4 


387 00293 9 


388 00294 


3839 OO2A4 
390 002R8 
391 

392 OO2AI 
393 OO2RB 


0294 
F402 
£456 
5646 
5646 
C 


FF 
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CON(2) 67 Message nurber 67 
CON(1) 9 
NIBASC \ I0 Need\ 


NIBASC \ed\ 
CON(1) 12 


NIBHEX FF Table terrninator 
END 
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=eABORT 
=eBADND 
=eBLANK 
=eCHSUN 
eDATTY 
=eDEVIC 
=eDIRFL 
=eDSPEC 
=eDTYPE 
eDVCNF 
=eEF ILE 
=eEOTAP 
eEXCHR 
eFEXST 
eF ILE 
=eF LOST 
eF PROT 
=eFRAME 
=eFRTOI 
=eFRTOL 
eFnFND 
=eHPIL 
eI LEXP 
=eILEXp 
el LPAR 
=eI LPAr 
=eINVAL 
eINVLD 
=eION 
eIVARG 
=eLPERR 
=eLTINO 
=eMEDIA 
ellen 
eMNCOR 
eHSPAR 
=eMSPAr 
=eNEWNTA 
=eNFILE 
=eNIMBOX 
=eNNUMR 
=eNOASN 
=eNQFND 
=eNOLIF 
=eNGRAN 
=eNORDY 
=eNDTAP 
=eQFFED 
=eQVRUN 
=eRANGE 
=eRECRD 
=eSTALL 
eSYNTX 
=eS¥NTX 
=eS¥Ser 


Abs 
Rbs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Rbs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rhs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 


52 
41 
24 
26 


65 
31 
53 
47 


HD 
17 


64 
42 
43 


18 
67 
38 


35 
66 


Synbol Table 


#00034 
#00029 
#00018 
#00018 


#0004 1 
#0001F 
#00035 
#OOO2F 


#OO01E 
#0001 1 


#00024 


#00040 
#0002A 
#0002B 


#00000 
#00006 


#00005 
#00012 


#00043 


#00026 
#0002 3 
#0004 2 


#00004 
#00017 
#00016 
#00039 
#00036 
#0000 1 
#00020 
#00013 
#00038 
#00022 
#60014 
#00030 


7 #OO0?5 


#00038 
#00019 
#00012 


#OO00 7 


HOOO?L - 


03 
249 
134 
148 
325 
370 
171 
310 
288 
188 
164 

85 

42 
168 
161 
209 

82 
363 
258 
265 
124 

19 

63 

59 

56 

52 

93 

99 
384 
332 
225 
201 
377 
346 
276 

49 

45 
12? 
120 
336 
321 

29 
182 
104 


> 
¢ 


191 
111 
349 
218 
328 
141 

96 

70 

66 
Z?e 


195 


222 
213 


108 
253 
35 


262 
31 


232 


229 
239 


131 
314 
355 


263 
101 


316 


246 


138 


11? 
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=eTERN Abs 32 #00020 - =: 184 
=eTESTF Abs 45 #0002D - 279 
=eTSIZE Abs 28 #00010 - = 155 
=eUNEXP Abs 39 #00027 - 232 
=eXCESS Abs 3 #00003 - 38 
=eXXXXX Abs 40 #00028 - 242 


=ef PROT Abs 16 #OOO10 - 78 
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Input Paraneters 
Source file nane is NZ&ERR: 3 AS 
Listing file nane is NZ/ERR:TI:ML::-1 
Object file nane is NZZERR: TI:MS::-1 


1411111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 
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‘Dp cow OH MN BD Ww A 


12 FO6BS 


50 

51 FO6B5 20 
52 FO6B? D2 
53 FO6B9 31€1 
54 FO6BD 04 
55 FOOBF 8B5 


DIRECTORY SECTION <840106.1804 Tue Jan 17, 1984 12:03 pn 


Page 1 

& 

m N N 22222 & DODD §=III RRRR 
x N ON & & DDB TI R R 
: NN ON zZ 8% DDB IT R R 
x NNN 2 é D 0 TI __ RRRR 
a N NN 2Z &&& 0 DBD I RR 

* N N 2 && obOD TI RR 
‘ N N 222272 8&& DDDD III R R 
x 

x 


TITLE DIRECTORY SECTION <840106. 1804> 


RBS #FO6B5 TI“HP6 address (fixed) 
III TOTO IOI ICCC OIG OGIO TTT 


FOI I TOTO ITT TR TOO TIS OT ITI IK 
aK 


*x Nanie: PILPOL - Poll handler for HPIL ROM (calls others) 
ka 

** Category:  PILUTL 

ke 

** Purpose: 

aa Handle the POLL entry (check if this is a poll I 
ae respond to...1f so, jurip to the poll handler for that 
he specific poll 

a 

ee Ent eye 

wk BLA] is the poll nunber 

ah 

RE PERT 

ee If not handled: 

ak XN=1, carry clear 

xs If handled successfully: 

aR XM=0, carry clear 

mR If error during handling: 

a Carry set 

xe 

** Calls: None 

he 

PRS US OS ose icin 

** Inclusive: B[A],C{A] 

aa 


ee Stk lvls: 1 (internal GOSUB){Specific handlers nay be nore} 
ak 


*k History: 

th 

= Date Prograrmer Modification 

Rice Geeta ese Behn ako ee  eee O ume eee 
x 09/26/83 N2 Added docunentation 

ae 


FOO OOO IOI IO IOI III OI OIC OO TTI 
SOR UI OUI OR IOI OTT TTTTTITITE 


=PILPOL P= 0 
C=0 A 
LC(2) ((TENDJ-(TSTART))/5 Nunber of table entries 
SETHEX Just to be SURE 
°RB<C OA 
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; 56 FO6C2 60 GOYES POLCH1 Check if ROM entry point 
: 57 FO6C4 6EBO : GOTO  POLCHR ROM entry point 
| eo : Now compute the offset to the Poll handler 
et FO6C8 7690 POLCHI GOSUB POLCH2 Set RSTK=TSTART (to get address) 
3 7 : This 1s the junp table 
65 FO6CC TSTART 
66 FOBCC 0000 REL(5) =hVER$ #00 VERS 
67 FO6D1 oe REL(5) =DEVSPp #01 Device parse 
68 FO6D6 9000 REL(S) =PILDC #02 File deconpile 
69 FO6DB aes REL(5) =RTNSXM #03 Device execute 
70 FO6EO 3000 REL(5) =FILSPp #04 File spec parse 
71 FO6ES 9000 REL(S) =FILSPx #05 File spec XEQ 
72 FO6ER 9000 REL(5) =hCAT #06 CAT 
73 FOGEF 9000 REL(5) =hCATS #07 CATS 
74 FOOF4 9000 REL(S) =hCOPYx #08 COPY execute 
75 FO6F9 9000 REL(5) =hCREAT #09 Create XEQ 
76 FO6FE 9000 REL(S) =hDIDST #OA Device ID store (HPIL) 
77 FO703 en REL(S) =hFPROT #0B Private/Secure/Unsecure 
78 FO?708 7800 REL(5) =RTNSXN HOC LIST (File not in nainfrane) 
79 FO?700 Dae REL(S) =RTNSXN HOD MERGE (File not in nainfrane) 
80 FO712 5006 REL(5) =hPRTCL HOE Print class 
81 FO717 or REL(5) =PRTIS #0F Print (part 1) 
82 FO71C 9000 REL(S) =hPURGE = —- #10 PURGE 
83 FO721 9000 REL(5) =hRENAN #11 ReNANE 
84 FO726 9000 REL(5) =hENTER #12 Enter 
85 FO72B 4600 REL(S) =RTNSKM #13 HPIL poll 2 
86 FO730 F500 REL(5) =RTNSXN #14 HPIL poll 3 
87 FO735 ro REL(5) =RTNSXN #15 HPIL poll 4 


88 FO73A 5500 REL(5) =RTNSXM #16 HPIL poll 5 
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89 
% 
91 
92 
93 
94 
95 


96 
9? 
98 
99 
100 
101 
102 
103 
104 
105 
106 
10? 
108 
109 
110 
411 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
12 
124 
Te 
TZ 
12 
128 


12 


134 
132 
133 
134 
135 


FO?3F 9000 
FO744 9000 
FO?49 9000 
FO?4E 9000 
FO753 9000 
FO758 7300 
FO?75D con 


FO?62 


F0762 07 
FO764 C9 
FO766 C5 
FO768 C5 
FO76A C9 


D5 
137 
06 
147 
C1 
0? 
135 
b9 
06 
03 


FO76C 
FO76E 
FO??1 
FO?73 
FO?76 
FO?778 
FO?7—A 
FO77D 
FO? 7F 
FO781 


FO783 
FO?86 
FO78R 
FO?78D 
FO?8F 


BED 
31% 
8B5 
40 
00 


FO791 7DCF 


FQ795 
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REL(5) =hFINDF #17 Find file 
REL(5) =hRDCBF #18 Read current record to file bufr 
REL(5) =hRDNBF #19 Write bufr out & read next recor 
REL(S) =hWRCBF #1A Write file bufr to current recor 
REL(5) =hKYDF #1B Build key defn 
REL(5) =RTNSXN HIC HTKY - waiting for key in KEYRD 
REL(5) =ENTUSG #1D IMAGE execution starts 


x 


* End of polls 
i 


TEND 
i 


handled by HPIL ROM 


* REMAINING CODE FOR TABLE LOOKUP 
x 


POLCH2 


Check 


+ ho © MH 


POLCHR 


RTNSXN 
he 
t 


POLCH3 
x 


C=RSTK 

C=B+C A 

B=B+B A 

B=B+B A B*4 

C=B+C A C{A] 1s now address of junp address 
B=C A Save address in B[A] for offset 
CDIEX D1 @ address, D1 value in C[A] 
RSTK=C Push 01 value (to allow restore) 
C=DAT1 A Read offset to actual address 

B=C+B A B[A] is address of specific handler 
C=RSTK Restore D1 from RSTK... 

D1I=C ...to D1 

C=B A Copy address to C[A]... 

RSTK=C ... Push address onto stack... 

RTNCC ..,and jurnp to the routine 

for systen polls (#F0 through #FF) 


B=-B-1 B Ones conplerent of poll # in B[A] 
LC(2) ((TEND2)-(TSTAR2))/5 Load # of ROM entries 

*BeC OA In the range HPIL knous? 

GOYES POLCH3 Yes...conpute specific handler addr 
RINSXM No...return, carry clear, xXM=1 
GOSUB = POLCH2 Sane driver, given the table addr 


* This is the table for systen polls 
x 


TSTAR2 
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136 FO795 0000 


137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 


148 
149 


FO79A 
FO?9F 
FO7R4 
FO7A9 
FO?RE 
FO7B3 
FO7B8 
FO7BD 


FO?C2 
FO?7C2 


0 
0000 
0 
0000 
0 
0000 
0 
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REL(5) =PILCST 
REL(5) =PILWNK 
REL(5) =PILWKP 
REL(5) =PILPOF 
REL(S) =PILCNF 
REL(5) =PILMLP 
REL(5) =PILSRQ 
REL(S) =hEXCPT 
REL(5) =hZERPG 


x 


HFF 
HFE 
#FD 
#FC 
#FB 
HFA 
#F9 
#F8 
HF? 


Tue Jan 17, 1984 12:03 pr 
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CLOST Cold start address 

DSWNK Deep sleep wakeup-no key 
DSWKY Deep sleep wakeup 

PUROF Power off 

CONFG Configuration 

MNLP Main loop 

SREQ Service request 

Excpt Exception check after strit 


ZERPG The Math stack is collapse 


* End of polls handled by HPIL ROM 
x 


TEND2 
END 


Saturn Assenbler 
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DEVSPp 
ENTUSG 
FILSPp 
FILSPx 
PILCNF 
PILCST 
PILOC 
PILNLP 
PILPOF 
=PILPOL 
PILSRQ 
PILWKP 
PILWNK 
POLCH1 
POLCH2 
POLCH3 
POLCHR 
PRTIS 
RINSXIM 


TEND 

TEND2 

TSTAR2 
TSTART 
hCAT 

hCAT$ 

hCOPYx 
hCREAT 
hDIDST 
hENTER 
hEXCPT 
hF INDF 
hF PROT 
hk YDF 

hPRICL 
hPURGE 
nROCBF 
hRONBF 
hRENAN 
HVER$ 

hHWRCBF 
hZERPG 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 


Abs 
Abs 
Rbs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


984757 


984776 
984930 
984977 
984963 


984975 


984930 
985026 
984981 
984 780 
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#FO6B5 


HFO6C8 
HFO762 
#FO794 
#F0783 


#FO78F 


#F0762 
HFO?7C2 
HF0795 
HFOGCC 


67 
95 
70 
71 
140 
136 
68 
141 
139 
51 
142 
138 
137 
61 
103 
131 
124 
81 
128 
94 
99 
148 
135 
65 
72 
73 
74 
75 
76 
84 
143 
89 
77 
93 
80 
82 
® 
91 
83 
66 
32 
144 


56 
61 
Te? 
5? 


69 


53 
125 
125 

53 


131 


78 


79 
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86 


87 
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Input Paraneters 
Source file nane is NZ&DIR: 2S 
Listing file nane is NZ/DIR:TI:ML::~-1 
Object file name 1s NZZDIR: TI:MS::-1 


141111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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1 k 

9 k 

3 x N N 22222 & GGG PPPP RRRR 
4 % N ON z7 8&8 G GP PR R 
5 % NN ON z && G P PR R 
6 * NNN 2 & G GGG PPPP  RRRR 
7 x N NN 2 &&& G GP RR 

8 k N NZ && G GP R R 
9 & N WN 22222 8& & GEOG P R R 

10 & 

11 k 

12 TITLE GENERAL ROUTINES «<840106.1701> 


13 FO?C2 ABS #FO7C2 TIZHP6 address (fixed) 


14 OOO RRO TORO ROI ROO I 
15 JOG UII ISTO CII ETI 
16 ah 

17 x* Nare: FRAME+ - Evaluate an HPIL message, return type 
18 Nae: FRANE- - Evaluate a nessage, return type (not 3dat 
19 * 

20 **k Category:  PILUTL 

°4 ak 

22 ** Purpose: 

23 ak Parses a frane 

24 kk 

25 ak Entry: 

26 aR C[6:0] contains the input frane fron GET 

27 . $T[3:0] contains the HPIL handshake nibble 

28 

29 . FRANE+: C[S] 1s the status nibble fron DIAMOND 

30 

31 aX Exit: 

32 ax Frane type in P: MNENONIC: 
33 kk 0: ACKNOWLEDGE (pACK ) 
34 a 1: CURRENT PIL STATE (pSTATE) 
35 ae 2: DIAGNOSTIC (TEST RESULTS) (pDIAGR) 
36 ae 3: DIAGNOSTIC (LOCATION CONTENTS) (pDIAGL) 
37 aK 4: ADDRESS (pRDOR } 
38 has 5: IFC RECEIVED (NOT SYS CONTROLLER)  (pIFC ) 
39 aA 6: ETO RECEIVED (pEOT ) 
40 ak 7: CONVERSATION HALTED (COUNT, NOT L) (pHALTD) 
41 ak 8: TERMINATOR MATCH (pTERM ) 
42 Ae 9: ETE REVEIVED (pETE ) 
43 ak 10: UNRECOGNIZED TYPE (pUTYPE } 
44 ak 11: DATA/END FRAME (pDATA ) 
45 xk 12: COMMAND RECEIVED (pCMD ) 
46 er 13: READY FRAME (pRDY ) 
47 ak 14: IDY FRAME (pIDY ) 
48 a 15: THREE BYTE DATA TRANSFER (p3DATA) 
49 ri If illegal frame or error, sets carry; else clears it 
50 

51 ** Calls: None 

52 ah 

53 REMUS OS occa aan 

54 *k Inclusive: C[S],P (C[S] only for FRANE+) 


nn 
on 
» 
* 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
74 
72 
73 
74 
75 
76 
a7 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
Ge 
93 
94 
95 
96 
97 
98 
a3 
100 
1014 
102 
103 
104 
105 
106 
107 
108 
109 
110 


FO?C2 A46 
FO7C5 80FF 
FO?C9 560 


FO?CL 20 
FO?CE 03 


FO?7D0 
FO?D0 OB 
FO?7D2 86B 
FO?7DS 41 


FO7D? 86A 
FO?7DA 20 


FO7BC OB 
FO7DE 8002 
FO7E2 $75 


FO7E5 20 
FO?7E? 03 


FO?7E9 
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** Stk lvls: 0 
ak 
**X History: 
hk 
ag Date Programmer Modification 
GRO Sivouscan. Mavetieeeh Cuguzaedelecessce.<ccsuseeeesoees 
KK 09/22/83 NZ Updated docunentation again 
kK 01/03/83 NZ Updated docurentation 


aK 
FOI IIIT ITI ITT TT 
JORIS ITO TTT TT TO TOTO 


=FRAME+ C=C+C S$ If carry, 3 byte data transfer 
CPEX 15 
GONC FRANEO No carry...not 3 byte data 


* Three byte data transfer! 


P= =p3DATA 
RTNCC 
x. 
k. 
=FRAME- 
FRANEO CSTEX Put the frane into status bits 
?ST=0 11 Is the MSB clear? 
GOYES FROXXX Yes! 


* 


* (1XXX XXXX XXXX) 1s data class 

k 

® (1OXX XXKX XXXX) 1s DATA or END 

* (1100 KXXX XXXX) 1s COMMAND received 
*% (1101 XXXX XXXX) 1s READY received 

* (411K KXXX XXKK) 1s IDY received 


it 
FRIXXX ?S§T=0 10 Is bit 10 clear? 
GOYES FRI1KX Yes...DATA or END 
* 
* Carry clear: 
% (V1XX XXXX KXXX) is COMMAND, READY, or IDY 
* Carry set: 
% — (JOKK KKKX XKXX) 1s DATA or END 
x 
FRI1XX CSTEX Suap frane back into C[X] 
P=C 2 P is now the type! 
GONC — FREND Go if COMMAND, READY, or IDY 
*FRIOKX 
i 
* (1OKX XXXX XXXX) 1s DATA or END 
x 
P= =pDATA Data/End 
RTNCC 


te 
FROXXX 
& 


& (OXXX XXXX XXXX) 1s status, diagnostic, or address 
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111 t 
112 ® (0000 XXXX XXXX) 1s status nessage 
113 & (0001 KXXX XXXX) is current state 
114 * (QO1X XXXK XXXX) is diagnostic 
115 : (01SS SSSP PPPP) is address 
116 
117 FO7E9 86A 7$T=0 10 Is it an address? 
118 FO7EC 80 GOYES FROOXX No! 
119 FO7EE 20 P= =pRDDR Address 
120 FO7FO OB CSTEX 
121 FO?7F2 03 RTNCC 
122 i 
123 t. 
124 FO7F4 FROOXX 
125 * 
: 126 % (OOKX KXXX XXXX) is either status or diagnostic class 
: 127 x 
128 * (0000 KXXX XXXX) 1s status nessage 
129 ® (0001 KXXK XXXX) is current state 
13 % (001X XXXX KXXX) is diagnostic 
131 k 
132 FO7F4 OB CSTEX 
133 FO7F6 80D2 P=C 2 
134 FO7FA 880 ?PH 0 
135 FO?7FD D3 GOYES FREND Current state or diagnostic 
136 ‘ 
137 : (0000 2222 XXXX) 1s status message if Z=0, else error 
138 
139 FO7FF 21 P= 1 
140 FO801 90E CHO OP 
141 F0804 34 GOYES FRERR Error! 
142 FO806 OB CSTEX 
143 FO808 873 *ST=1 3 
144 FO80B A3 GOYES FRERRS Unrecognized frane! 
145 x 
146 ® (0000 0000 OXXX) is a status message... 
147 x 
148 FO80D OB CSTEX 
149 FO80F 80D0 P=C 0 Decode it! 
15) FO813 8% ?p= =pACK 
151 FO816 42 GOYES FREND NOP (Acknouledge) 
152 FO818 883 ?PH 3 Is it ETE? 
153 FO81B 60 GOYES FROO-3 No... 
: 154 FO81D 20 P= =pETE Yes... report it! 
155 FO81F 03 RINCC 
156 xe 
157 a. 
158 FO821 882 FROO-3 ?P#H 2 Is it now an EQT? 
159 FO824 60 GOYES FROO-2 No...check further! 
160 FO826 20 P= =pEOT Yes... 
161 FO828 03 RTNCC 
162 e 
163 x. 
164 FO82R 884 FROO-2 ?PH 4 Conversation halted? 


165 FO82D 60 GOYES FROO-1 No...check further 
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166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
194 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
elt 
ele 
Cag 
214 
215 
216 
217 
218 
219 
220 


FO82F 20 
FO831 03 


FO833 881 
F0836 60 
FO838 20 
FO83R 03 


FO83C 885 
FO83F 80 
FO841 20 
F0843 03 


FO845 OB 
F084? 20 
FQ843 02 
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p= =pHALTD 
RTNCC 
te 
* 
FROO-1 ?P# 1 IFC received? 
GOYES FROO-0 Check further 
P= =pIFC Yes...set P to value! 
FREND = RTNCC 
t 
io 
FROO-O ?PH 5 Terrninator natch? 
GOYES FRERR No...error! 
P= =pTERM 
RTNCC 
ke 
te 
FRERRS CSTEX Status back in ST, frame in C[X] 
FRERR = P= =pUTYPE This means unrecognized frane 
RINSC 
JO OU SISO IO II III III TTI TT IE 
JU III COI III IIIT TIT TTE 
tok 
** Nane: END - Clean up the loop 
** Wane: ENDST - Clean up the loop, exit through NXTSTM 
** Nane: ENDFN - Clean up the loop, preserve cfu} in RO 
xx Nane: UTLEND - Unaddress talkers&listeners, clean up 
tok 
** Category: PILUTL 
x 
xx Purpose: 
ae Clean up after accessing a loop 
en 
ek Entry: 
a NBOX® points to the mailbox used by this routine 
ke 
AA ERE? 
ris Carry clear: 
a DO at last mailbox used before call 
ae ENDST: Jumps to NXTSTM 
ak ENDFN: Restores value of C(W] (saved at entry) 
aK UTLEND: First unaddress talkers/listeners, then END 
is Carry set: 
ax Error (P, C(O] are error code) 
tok 
** Calls: END: GETMBX 
bs ENDST: END 
ae UTLEND: UNT, UNLPUT 
a ENDFN: UTLENO 
as 
** Uses... i... 
** Inclusive: C[W],00,P,ST[3:0] 
ae 
*F Stk lvis: END: O <GETNBX> 


ak 
ae 


Stk lvls: ENDST: 1 (END) 
Stk lvIs:  UTLEND: 1 (UNT)(UNLPUT)<END> 
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221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 


234 
235 
236 
237 
238 
239 
240 
241 
242 
243 


244 
245 
246 
247 
248 
249 
250 
251 


252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 


FO84B 7820 
FO84F 800 
0 


FO855 108 

FO858 7500 
FO85C 118 

FO8SF 01 


FO861 7210 
FO865 8E00 
00 
FO86B 400 
FO86E 7E84 
FO872 821 
FO875 01 


FO877 
F087? 8C00 
0 
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*X Stk lvls: ENDFN: 2 (UTLEND) 
kx 
** History: 
ok 
xx Date Progranner Modification 
Ph Aetoete pete hGes: “sie eeb eas aes ce, ene 
Kk 09/22/83 NZ Updated documentation again 
kk 61/03/83 NZ Updated docunentation 
ka 


FOOT I TOIT TO TOTO TO TIT TO TOO 
FORO ROI OORT IO ITO TT TK 


=ENDST GOSUB END 


GOLONG =nXTSTN Next basic statenent! 

ke 

ke 

=ENDFN RO=C Save value of C in RO! 
GOSUB UTLEND 
C=RO 
RTN (Preserve carry!) 

x. 

xe 

=UTLEND GOSUB Getnbx Get the mailbox address 
GOSUBL =UNT Unaddress talkers 
RTNC 
GOSUB UNLPUT Unaddress listeners 
xN=0 Clear XM" flag (for statenents) 
RIN 

xe 

xe 

=END 

Getrbx GOLONG =GETMBX Return, DO @ nailbox 


FOI OUI IIT TITTIES TT TTT TI TIT IK 
FOO JOO TTI TR TOIT IT IIIT IK 
xx 


x Nane: START - Set up entry conditions for the loop 

** Nane: START+ - Set up loop information (loop # in C{S]) 
** Nane: START- - Set up loop (loop # in C[S], sReadd=1) 
ak 


*X Category:  PILUTL 
kk 


**x Purpose: 


ae Set up the loop, given the device specifier 

** Entry: 

wk 0[3:0] contains the device address (if known). 

a If the address is not known, D[B)=#1F /3F /5F /7F /9F 
Kx #1F: (DevTyp) B[X] is the accessory ID 

xk 43F: (DevID) B[W] is the device ID 

wx #5F: (Vollbl) B[W] is the volure label 

wk #7F: (Null)  B[W] is “don’t care" 

ax #9F: (Loop) B[W] is "don’t care” 


oo D[2] is the sequence number for #1F and #3F 
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273 Kx If D[X] is an address, bits 8 and 9 are the mailbox # 
274 KK If D[X] is not an address, D[3] is the mailbox # 

275 xx 

276 Kk Exit: 

277 aK Carry clear: 

278 x Device address in D[X] (+railbox*1024) 

279 KK D[S] is 0 if address given, 1 if device type, 

280 wk 2 if device ID, 3 if volune label, 4 if NULL, 

281 ak 5 if LOOP 

282 ax Sets DO to the HPIL railbox 

283 Kx ST(sReadd) set 1f loop was readdressed, else clear 
284 a Carry set: 

285 ak Error (P, C[O] are error code) 

286 aK 

287 kk Calls: SETLP, FNDCH- ,GETDev, PUTGF-, PUTE, GETERR, GETST, 
288 aK SFLAG?, RESTRT, GETMBX , SWAPO1 , 1/OFND 

289 kK 

290 KK UseS....0.% 

291 xk Exclusive: C(Wj,0[15 J, DO,P,ST[4 J 

292 - Inclusive: A[W),C{W),D[15:13],0[5:0},00,P,ST[4:0] 

293 

294 ** Stk lvls: 3 (RESTRT)(FNDCH-)<GADDR> 

295 ax 

296 ** Algorithn: 

297 we START: Derive loop # from D[X] (anto C{S]) (SETLP) 
298 ae START+:Set flag (sReadd) to not force readdressing 

299 x START-:Find mailbox, check for reset, OFFED  (FNDCH-) 
300 he Check if controller...if so, goto STARTn 

1 x Check if NULL, LOOP, or zero (if not, error) 
H2 ate goto START3 

03 tok Shea 

4 wR (Controller) 

5 ak START: 

6 a If force readdressing (sReadd=1 ) 

HR? kK then send IFC to power up the loop 

H8 x else send power up the loop message (NOP frane) 
HI ae STARTS: Check if error powering up the loop (GETERR) 
310 ae START!:Get Diariond status bits 

311 ae If sReadd=1 then goto START2 

312 ak If loop 1s unconfigured (sUNCNF ) 

313 xx then 

314 xx If (supress readdress)=1 then goto START2 
315 kk Set all internal addresses=unknoun (RESTRT) 
316 xk Set DO to mailbox address (GETMBX ) 
317 ae goto START3 

318 aX wettest 

319 sas (Readdressing the loop) 

320 a START2: 

371 ae Set all internal addresses=unknonn (RESTRT) 
322 x If (extended address flag=0) or 

323 xk (an ASSIGNIO 1s active) 

324 x then readdress the loop, primary only 

325 a else readdress the loop, extended addresses 
326 ae Send readdress nessage, get result ( PUTGF-} 


32? —_ If address not returned by Diariond then error 
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328 aR (Check the device specifier) 
329 xk START3:If not (find device) 
330 ak then return (all OK) 
331 ak else goto GADDR (Get device address) 
332 xk 
333 ak History: 
334 ak 
335 aK Date Progranner Nodification 
336 PR everson. hoes eee || See it ee ee te 
337 Kk 09/22/83 NZ Updated docunentation 
338 KK 08/02/83 NZ Added check of =f1N24 to check if 
339 aS readdress the loop automatically 
340 xk 06/03/83 NZ Rerioved setting of IDY timeout 
41 a (now done in CHKSET) 
42 Kk 95/04/83 NZ Rerioved redundant code to set the 
343 xk device bit in LOOPST 
344 kk 03/29/83 NZ Added check of =flEXTD to decide 
345 kk whether to use extended addresses 
346 Kk 03/15/83 NZ Changed FNDMB-, CHKSTS to FNDCH- 
347 kK 03/09/83 NZ Changed code to call CHKSTS 
348 03/08/83 NZ Changed call to FNDMBX to FNDNB- 
49 : 01/03/83 NZ Updated docunentation 
- JI TIO II EOI OO IIT 
352 JOGO UIC OC I TO TTT TOR 
353 FO87D =START 
354 x 
355 : First set C[S] to be the mailbox #, minus 1 
356 
357 FO87D 8E0O GOSUBL =SETLP Set loop # into C{S] fron D[A] 
00 
358 x 
359 FO883 840 =START+ ST=0 =sReadd START does NOT force readdress! 
360 x 
361 * Set DispOK bit false (Display is NOT set up on loop) 
362 x 
363 FO886 =START- 
364 x 
365 * Get the nailbox address (search the device table for it) 
366 : (also clears DispO0K and other bits in that nibble) 
367 
368 FO886 7683 GOSUB FNDCH- Do all the above, FNDMBX,CHKSTS 
369 FO88A 400 RTNC 
370 x 
371 * Now DO points to the nailbox 
372 x 
373 * Check if I an the controller on this loop 
374 x 
375 FO88D 7F53 GOSUB GETDev Check if I an controller on loop 
376 FO891 542 ‘ GONC STARTn I Alt controller...continue 
377 
378 * If device is not "LOOP", "NULL" or zero then error, else 
379 * continue 
380 x 


381 FO894 36B 7D-0 «iB Zero? 
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382 F089? 
383 FO893 
384 FO89D 
385 FO8AO 
386 FO8R2 
387 FO8R6 
388 FO8R9 
389 
390 
391 
392 FO8AB 
393 FO8RE 
394 FO8BO 
395 
396 
397 FO8B2 
398 
399 
400 
401 FO8B2 
402 
403 
404 
405 
406 
407 FO8B6 
408 
409 
410 
411 
412 
413 FO8B6 
414 FO8B9 
415 FO8BB 
416 FO8BF 
417 FO8C3 
418 FO8&C6 
419 FO8C9 
420 FO8CB 
421 
422 
423 FO8CF 


424 FO8D? 


425 FO80D 
42b 
42? 
423 
429 FO8EO 
430 FO8E4 
431 FO8E? 
432 
433 
434 FO8E9 


B1 
3100 
963 
21 
3100 
963 
90 


300 
20 
02 


6RBO 


870 
61 
3100 
7BB3 
4C1 
890 
71 
6400 


3500 
0000 
8EO0 
00 
400 


7500 
5AO 
02 


8000 
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GOYES STRRTd Yes...OK 

LC(2) =Null 

7C=D) OB "NULL"? 

GOYES STARTd Yes... 0K! 

LC(2) =Loop 

*C=D «OB "LOOP"? 

GOYES STARTd Yes... OK! 


* Error...Dianond is not controller and not LOOP, NULL, or 0 
k 


LC(1) =eBRDND Illegal mode (not controller) 
p= =ePIL 
RTNSC 

k 


k 
STARTd 
* 


* IT an in device node! 


GOTO 3 START3 Continue following controller 


I an controller...continue 


ee ee 


STARTn 
& 


* Diariond status in C[X] 
x 


* Power up the loop (check if need IFC or just mPULOP) 
x 


?ST=1 =sReadd Force readdressing? 
GOYES START# Yes...power up the loop with IFC 
LC(2) =nPULOP Power up the loop 
GOSUB PUTGF- Put it, GET, FRANE+ 
GOC STARTS Error...get the error nessage 
?P= =pSTATE Status nessage? 
GOYES STARTS Yes...status nessage 
GOTO STARTS No...unexpected frane 
x. 
x 
STARTH LC(6) =nTAKET Take control with IFC 


GOSUBL =PUTE 


RTNC Carry if error 
x 


* Status message...check if error 
x 


STARTS GOQSUB Geterr Get error nessage 

GONC START! If no carry, loop is UP! 
STARtE RINSC Error...exit with carry set 
k. 


x. 


Geterr GOLONG =GETERR (P,C{O}] are error, Carry set) 
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00 

435 

436 

437 

438 

439 

440 FO8EF 8£00 
00 


441 FO8FS 400 

442 FO8F8 870 

443 FO8FB 62 

444 

445 

446 

447 FO8FD OB 

448 FO8FF 860 

449 F092 20 

450 F0904 OB 

451 F096 466 

452 F0909 3100 

453 FO9OD 7170 

454 FO911 SFO 

455 F0914 8E00 
00 

456 FO91A 795F 

457 FOSIE 5E4 

458 

459 

460 F921 8E0O 
00 

461 F0927 850 

462 FOS2R 3100 

463 FO9ZE 7050 

464 

465 

466 

467 F0932 3100 

468 F0936 522 

469 F0939 8E00 


00 
470 FO93F 3200 

0 
471 FQ944 8£00 


00 
472 FOS4A 8E00 
00 
473 
474 
475 


476 FO950 3100 
477 FO954 540 
478 F095? E6 
479 

480 FOQ959 06 
481 FO95B 781F 
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ke 
x 


» 


* Now the loop 
x 


START! GOSUBL 
RTNC 

STARTO ?ST=14 
GOYES 


a 


ls powered up! 


=GETST 


=sReadd 
START2 
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Get the Dianond status again 


If carry, ERROR! 
Force readdressing? 
Yes...do it! 


* Check if loop needs to be readdressed (not done now) 
* 


CSTEX 
?S$T=0 
GOYES 
START1 CSTEX 
GOC 
LC(2) 
GOSUB 
GONC 
GOSUBL 


GOSUB 
GONC 


xe 
+ 


START2 GOSUBL 


ST=1 
LC(2) 


GOSUB 
a 


=sUNCNF 
START1 


START3 
=f 1NZ4 
sflag? 
START2 
=RESTRT 


Getnbx 
START3 
=RESTRT 
=sReadd 


=f 1lEXTD 
sflag? 


Put Dianond status in ST bits 
Is the loop unconfigured? 
Set/Clear carry... 

If carry 1s set, loop is OK! 


Check if suppress auto readdress 
Save D[A} in DO0;SFLAG?; restore D 
Flag is clear...D0 readdress! 
Restart all devices! (unknown) 


Flag is set...just get nailbox 
Go aluays 
Set all devices to be restarted. 


Indicate loop was readdressed! 
Check if extended addressing 


* D[R} is the value of DO, which was saved there by SFLAG? 
k 


LC(2) 
GONC 
GOSUBL 


LC(3) 
GOSUBL 
GOSUBL 


k 
* Now carry is 
& 


STARTp LC(2) 
GONC 
C=C+1 

x 

STARTs RSTK=C 
GOSUB 


(=nAUTOR) +1 


STARTs 
=SWAPO1 


=bPILAI 
=i /OFND 
=SWAPO1 


Preset prinary only! 
If flag is clear, use simple addr 
Suap DO, D1 to save D1 


Find the buffer 


Restore D1 fron DO 


SET if assignio buffer found 


=nRUTOA 
STARTs 
R 


Getribx 


Loop needs to be reconfigured... 
If no carry, then no assignio 
If carry, then prinary only 


Save ressage on RSTK 
Get back the mailbox!!! 
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482 FOS5F 07 

483 F0961 7913 

484 FO965 400 

485 FO968 880 

486 FO396B 52 

487 FO36D AC3 

488 FO970 20 

489 FO9?2 310E 

490 FO976 OEFF 

491 FO97R Bebé 

492 FO97D 461 

493 FO980 03 

494 

495 

496 FO982 DF 

497 FO984 134 

498 F098? DB 

499 F0983 8D00 
000 

500 

501 

502 F0990 

503 FO990 6741 

504 

505 

506 

507 

508 

509 

510 

511 

§12 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

623 

$24 

525 

§26 

$2? 

528 

529 

530 

531 

532 

§33 

534 

§35 


GENERAL ROUTI 


C=RSTK 
GOSUB 
RTNC 
PH 
GOYES 
START3 = D=0 
p= 
LCHEX 
C=C'D 
C=C+1 
GOC 
RTNCC 
k. 
ke 
sflag? CDEX 
DO=C 
C=D 
=sFLAG? GOVLNG 
ke 
ke 
STARTS 
GOTO 
JK ISI IIIA TI I 
JI II II 
ik 
** Narie: 
ah 
xx Category: 
ok 
** Purpose: 
an Get dev 
aK device 
hk 
xk Entry: 
am DO poin 
xs D(B) as 
ae #1F: 
th 43F: 
a #5F: 
is H7F: 
th HOF: 
+ D{2] is 
ae D[3] 1s 
is D[S]=0 
ae 
RP ERIN 
an Carry c 
zh HPIL 
a Devic 
ah DS] 
ah 32y 
i b[3] 
ay Carry s 
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Restore nessage 
PUTGF - Put message, get last addr, decode 
=pRDOR (address frare) 
STARTS 
S Set initial value of source flag 
0 
EO 
A Check for address unknoun 
B (address renains in D[3:0}) 
GADDR Go if address unknown 
Address is valid or 0 
A Suap flag into D[A], D[A} to C 
Save Dial in DO (SFLAG? restores) 
A Restore flag fron D[A] 
=SF LAG? Go to SFLAG? now 
GADDRe Unexpected frare error! 


FOI III OT TOT TOT I TTI 
FOI OTTO TTT TTT ITOK 


GADDR - Get the address of a device fron loop 


PILUTL 


ice address, given search infornation for the 


ts to the HPIL nailbox 

the search type (#1F,3F,5F,7F,9F) 
(Device type) -B[B] is accessory ID 
(Device ID) -B[W] is device ID 
(Volune label)-B[W] 1s the label 
(Null) -B[W] 1s "don’t care" 
(LOOP) -B[W] 1s “don’t care" 
the sequence nurber 

the loop nurnber 

(for search type at exit) 


lear: 

handshake in ST[3:0] 

e address, (mailbox #)*1024 in D[X] 

is search type (l=device type, 2=device ID, 
colune label ,4=NULL, 5=LOOP) 

1s sequence nunber (was in D[2] at entry) 
et: P, C{S] are error code 
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536 &* Calls: PUTGF+, UNLPUT, PUTC+, GETERR, GETID, PUTGF-,UNT, 
537 “a TSTAT, SEEKA, DDT, TSTATR, READRG, ASRC4 ,ATYL, DDL 
538 a 
539 Bk Uses. ....0s 
540 tk Exclusive: A[AJ,C(W],D[15:14],D[5:0],P 
541 tk Inclusive: A{W],C(W],D[15:13],0[5:0],P,ST[3:0]} 

542 . (If volune label, blankfills B[W],uses B[15:12]) 
543 

544 tk Stk lvls: 3 (GETID) (TSTAT)(SEEKA) 

545 aK 

546 ** Algorithn: 

547 ak GADDR: if device type 1s not NULL then goto GADDRO 

548 at (Type=NULL) 

549 aX set D[S] to DsNull-1 

550 a GADDRN: set address to zero 

551 ae goto GADDR’ 

552 bk ee 

553 ax GADDRO:1if device type is not LOOP then goto GADDR1 

554 aX (Type=LOOP ) 

555 ak set D[S] to DsLoop-1 

556 i goto GADDRN (set address=0, goto GADDR’) 

557 ---- 

558 a GADDR1:1f device type is not Acc ID then goto GADDR3 
559 an (Type=Accessory ID) 

560 ak find that Acc ID (& sequence #) (PUTGF +) 
561 ax if not found then {Device Not Found} 

562 ase (Device found, address nessage fron Dianond in C[X]) 

563 aK GADDR’:increnent D[S] (search type) 

564 ax set D[X]=address + (loop nunber)*1024 {bits 889} 
565 ae set D[3]=sequence nurnber (D[2] entry value) 

566 aw return, all OK 

567 xk asi ata 

568 ak (Either Volune Label or Device ID) 

569 AE GADDR3: determine length of word in B[W] by searching 
570 ax fron B[15] toward B[O], check for first non- 
571 kk zero nibble (all unused nibbles of B[W]=0) 
572 ak set D[14]=length (WP length) 

573 ae if device type 1s not Device ID then goto GADDR6 
574 a (Type=Device ID) 

575 kk Hake a copy of sequence nunber in D[5] 

576 * unaddress all listeners on loop (UNLPUT ) 
57? ae reset Dianond current address (PUTC+) 
578 ae - check for Dianond error (if so, exit) (GETERR) 
579 ax if loop 1s unaddressed then {Device Not Found} 
580 ak GADDR4: get Device ID of the current device (GETIO) 
581 ax if no response then goto GADDRS 

582 = if response matches requested ID (for given length 
583 ak then 

584 ak decrenent sequence # in D[5] 

585 x if not right sequence nunber yet 

586 ae then goto GADDRS 

587 ax else 

588 ak set D[S]=0 (will be incremented twice) 
589 ak GADDR8&: increnent D[S] 


59 a get current address (PUTGF-) 
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591 ax if not address then {Unexpected Frarie} 
592 ax goto GADDR’ 

593 aK op hes 

594 ak GADDRS:increnent current address (PUTGF-) 
595 ax if valid address then goto GADDR4 

596 x if end of addresses then {Device Not Found} 

597 ae else {Unexpected Message} 

598 a nas Ea it 

599 am GADDR6:1f device type <> Volune Label 

600 aa then {Unexpected Frane} 

601 ax (Type=Volure Label) 

602 aw blankfill requested label (B[11:0]) 

603 aX set tape counter (D[4]) to first drive 

604 aK GADDRv: find D[4]th tape drive (PUTGF +) 
605 ax if not found then {Device Not Found} 

606 Rk check tape status (TSTAT) 
607 ak if status <> all OK and status <> new tape 

608 ak then goto GADDrn 

609 ax GADDR7: seek sector zero on the tape (SEEKA) 
610 ax if seek error then goto GADDrn 

611 ae GADDR8: read sector zero (DDT) 
612 x if read error then goto GADDrn (TSTATA) 
613 x read 8 bytes fron the tape (READRG) 
614 ae if tape is not LIF format then goto GADDrn 

615 ax if tape volume label matches requested label 
616 ee then 

617 ax set search type to 1 (will have 2 added) 
618 “ee goto GRDDR& 

619 aX (rewind the tape, goto next tape) 

620 ax GADDrn: rewind the current tape (MTYL) (DOL) 
621 ax incretient tape counter (D[4]) 

622 ne if tape counter is >16 then {Device Not Found} 
623 a goto GRDDRy 

624 ae 

625 ** History: 

626 a 

627 . Date Progranner Modification 

628 $i cette. “eaeeseees: ae Pole adel eiset eee ee 
629 ee 09/22/83 N2 Updated docunentation extensively 
630 kk 02/09/83 NZ Added LOOP to valid lists 

631 kk 01/03/83 NZ Updated docunentation 

5 ae 

ae FORO IOI FOI TOO IOI OO OIRO OOOO OIG IO IOI OIG 
634 FORO OO TO JOTI OOOO OI OI IO OT I TOI OTTO 
635 FO994 DB =GADDR C=0 A Copy D[2] (sequence #) 

636 ‘ 

637 % Decode what type it is 

638 * 

639 FO996 3100 LC(2)  =Null Is this a NULL assignment? 

640 FO99A 967 7CHD oi 

641 FO93D FO GOYES GABDRO Not NULL...continue 

642 * 

643 * NULL assignnent! 

644 . 


645 FOSSF 2F P= 15 
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646 FOSR1 30 LC(1) (=DsNull)-1 Code for NULL-1 
647 FOSR4 AC? GADDRN D0=C S 
648 FOSA? D2 C=0 A Clear "ADDRESS" 
649 FOSAI 503 ; GONC  GADDR’ Go always (Continue with coding) 
650 - 
651 x 
652 FOSAC 3100 GADDRO LC(2) =Loop Is this LOOP? 
653 FOSBO 967 CHD «BB 
654 FO9B3 AD GOYES GADOR1 Not LOOP. ..continue 
655 FO9BS 2F P= 15 
656 FO9B? 300 LC(1) (=DsLoop}-1 Code for LOOP-1 
657 FOSBA 59E GONC  GADDRN Go aluays 
658 x. 
659 x. 
660 FOSBD 3100 GADDR1 LC(2) =DevTyp Is this a device type? 
661 FO9C1 967 *cHD =«iB 
662 FOSC4 34 . GOYES GADDR3 No...check further! 
663 
664 * Accessory ID...search for it! 
665 x 
666 FOSC6 AES C=B B Type in C{B] for FIND Nth device 
667 FO9CS 23 P= 3 
668 FOSCB XO LC(1)  =nFIND1 FIND Nth device, type MN 
669 FOSCE 70B2 GOSUB PUTGF+ Put message, get address, decode 
670 FOSD2 400 RTNC 
671 FO9DS 880 ?PH =pADDR Check if address frane 
672 FO9DS B2 . GOYES GADDR2 Not address...error 
673 
674 ; Entry with C{X] = Diariond “address” nessage 
675 
676 FOSDA OB GADDR’ CSTEX Clear the opcode bit! 
677 FOSDC 84A ST=0 = 10 
678 FOSDF OB CSTEX 
679 x 
680 ; Now address is in C[X], Seq # in D[2], loop # in D[3) 
681 
682 FOSE1 B47 D=D+1 § Set type flag=flag + 1 
683 FO9E4 DF . CDEX A Copy address to rk] 
684 
685 * Now loop # in C[3], seq # in C[2] 
686 x 
687 FOSEG F2 CSL A Loop in C[4], seq in C{3] 
688 FOSE8 8004 P=C 4 
689 FOSEC 80F2 CPEX 2 Loop in C{2], seq in C[3] 
690 FOSFO AE2 C=0 B Clear lower bits of C[X] 
691 FOSF3 A36 C=C+C xX 
692 FOSF6 A36 C=C+C Xx Now (loop #)*4 in C[XS] 
693 FOSF9 OESF C=C'D X C[X] is address+loop*1024 
694 FOSFD 07 D=C A D[X] is address,loop; D[3] is seq 
695 FOSFF 20 P= 0 
696 FORO1 03 . RTNCC Rll done...exit, carry clear 
697 - 
698 xo 
699 FORO3 68AO GADDR2 GOTO  GADDRn Device not found 
x 


700 
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701 
202 
703 
704 
705 
706 
70? 
208 
709 
710 
711 
tie 
713 
714 
715 
716 
717 
718 
719 
720 
721 
fee 
723 
724 
725 
726 
72? 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 


741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
7§3 
754 


FORO? 


FORO? 


FOROS 
FOROC 


FOROE 
FOR1O 
FOR13 
FORTS 
FOR18 
FORIC 


FORIF 
FOR21 
FOR25 
FOR28 
FORA 


FOR2E 
FOR32 


FOR35 
FOR33 


FOR3F 


Fon42 
FORE 


FOR4S 
FOR4B 
FOR4D 
FOASO 


20 
979 


op 
93 
BF 
AFF 
80FE 
AFF 


3100 
963 


66B0 


7EC2 
400 


3100 
8£00 


400 


73RE 
400 


C6 
C6 
Rob 
485 
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x 
GADDR3 
x 
* Deterriine length of user-supplied string (store in D[14]) 
x 

P= 0 First tine through, P=15 
x 

7B=0) OW 

GOYES GADOR$ This SHOULD never happen!!! 
x 
GADDR? P=P-1 

7B=0 =P 

GOYES GADDR? Zero...continue checking 
GADDR$ CDEX WwW 

CPEX 14 Put length in D[14] 

CDEX WwW 


x 
* Now D[14] 1s user-supplied length 
* 


P= 0 

LC(2) =DevID Is this a device ID? 
C=) 6B 

GOYES GADDRd Yes...device ID 

GOTO GADDRE No...check volune label 


xD 
Ke 
x 


* Device ID...search for the device! 

k 

* First unaddress all listeners on the loop 
k 


GADDRd GOSUB UNLPUT 


RTNC 
x 


* Now search the loop, asking each device its device ID 
x 


* Set current address to the start of the loop 
r 


LC(2) =nRSTCA Reset current address to start 
GOSUBL =PUTC+ 
RTNC 
* 
* Read error wessage to clear the error flag (used to decide 
* when I’m done searching) 
* 
GOSUB Geterr Get error # 
RTNC If carry, had an error! 
x 
* Status bits are in C[X] now...check if addresses are valid 
x 
C=C+C A 
C=C+C A 
C=C+C B Check if loop is unaddressed 
COC GADDRn If so, say "Device Not Found" 
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755 

756 

757 

758 FOAS3 F3 

759 FORSS DB 

760 FORS? 8003 

761 FORSB 80C5 

762 FORSF AB2 

763 FOR62 25 

764 FOR64 AS? 

765 

766 

767 

768 FOR67 8E00 
00 

769 FOR6D 400 

770 FOR?70 94B 

771 FOR73 B4 

772 FOR75 970 

773 FOR78 EO 

774 FOR?7A AFB 

775 FOR?D 80DE 

776 FOR81 914 

777 FOR84 A3 

778 FOR86 25 

779 FOR88 ROF 

780 FOR8B 523 

781 FOR8E AC3 

782 

783 

784 

785 

786 FORS1 F7 

787 

788 

789 

790 FOA93 B47 

791 FOR96 20 

792 FORS8 3100 

793 FORSC 7ED1 

794 FORRO 400 

795 FOAA3 880 

796 FORR6 23 

797 

798 

799 

800 FORA8 61 3F 

801 

802 

803 FOARC 

804 

805 

806 

807 FORAC 8E00 
00 
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* Addresses ARE valid...continue search 
k 


x 


DSL A 
C=D R 
P=C 3 
c=P S 
C=0 x 
P= 5 
D=C WP 


Now seq # in D[3], loop in D[4] 
C{3] 1s seq # 

(Make a copy of seq # in D{5]) 
C{[5] 1s now a copy of the seq # 
Clear the address field 


Copy back to D[5) 


* Loop to check for the device ID! 
x 


GADDR4 


GADDR- 


x 


GOSUBL =GETID 
RTNC 

D0) SS 
GOYES GRDDRS 
7A=BO OW 
GOYES GADDR- 
C=D W 

P=C 14 
RRB OP 
GOYES GADDRS 
P= 5 
D=D-1 P 

CONC  GADDRS 
D=0 S 


Get ID of this device 


Error (not "NOT READY") 

ID response? 

No...try next 

Match exactly? 

Natch...check for Nth iten 

Not natch...check user-given len 


Not a natch...continue 
Decrenent copy of seq # 


Not Nth device...keep looking 
Set find flag=0 (+2 below=dev ID) 


* Exact length match, Nth device! 
* 


x 


DSR A 


Move loop # to D[3], seq to D[2] 


* Now D[2] is sequence #, D[3] is loop # 
x 


GADDR& = D=D+1 § 


x 


P= 0 
LC(2) 
GOSUB 
RTNC 

?7P# = =pADDR 
GOYES GADDRe 


PUTGF - 


=HGETCA 


Add 1 to current find flag 


Get current address 


Not an address? 
Error...unexpected frane! 


* GADDR’ adds 1 to flag value! 
k 


x. 


GADDRn 
& 


GOTO  GADODR’ 


* Device not found! 
x 


GOSUBL =UNT 


Corrion exit code 


Unaddress talkers on loop 
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808 FORB2 400 

809 FORBS 20 

810 FORB? 300 

811 FOABA 20 

812 FORBC 02 

813 

814 

815 FORBE 

816 

817 

818 

819 FORBE 20 

820 FOACO 3100 

821 FORC4 7681 

822 FORT8 400 

823 FORCB 880 

824 FORCE 50 

825 FORDO 569 

826 

827 

828 FORD3 890 

829 FORDE 6D 

830 

831 

832 

833 FOADS 

834 FORD8 20 

835 FOADAR 300 

836 FORDD 20 

837 FORDF 02 

838 

839 

840 FORE 

841 

842 

843 

844 FORE! 3100 

845 FORES 967 

846 FORES OF 

847 

848 

843 

850 

851 

852 

853 

854 

855 FOREA ADB 

856 FORED 3802 
0202 
0202 
02 

857 FORFB 80DE 

858 FORFF AQ9 

859 FOBG2 AFS 
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x. 


GRDDRS 
x 


RTNC 

P= 0 

LC(1) =eNOFND 
P= =ePIL 
RTNSC 
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Device not found! 


* Not found yet...keep looking 
* 


x. 
x. 


GADDRF 


k 
* Error. 
x 


GRODDRu 
GADDRe 


x. 
x. 


GRDDR6 
* 


P= 0 

LC(2) =nINCCA 
GOSUB PUTGF- 
RTNC 
?PH 
GOYES 
GONC 


=pADDR 
GADDRF 
GADDR4 


?P= 
GOYES 


=pSTATE 
GADDRn 


Increrient current address 


Error 

Address? 

No...check frarie further 
Yes...poll the device for ID 


Current state (error nessage)? 
Yes...end of table (not found) 


..other than "NOT FOUND" 


P= 0 

LC(1) =eUNEXP 
P= =ePIL 
RTNSC 


* Volune label? 
k 


x 


LC(2)  =VolLbl 
CHD) OB 
GOYES GRDDRu 


* Volune label!!! 


x 


Unknown device type...? 


Check if volune label 


Unknown conrand 


* Find the 1st through 16th tapes, check the volune label 


x 


* First blank-fill the volurne label!!! 
* 0[14] 1s first non-zero character in B... 
k 


C=0 n 
LCASC \ 
P=C 14 
C=8 WP 
B=C W 


Get length fron 0[14] to C[14] 
Blank-fill the volune label! 


Leave B{[11:0] blank-filled 
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860 
861 
862 
863 
864 
865 
866 


867 FOBOF 3300 


868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 


881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 


894 
895 
896 
897 
898 
893 
300 
901 


902 
903 


904 
905 


906 
907 


FOBOS 24 
FOBO? A83 
FOBOR RB3 
FOBOD 20 


00 
FOB15 F? 
FOB17 F? 
FOB19 RAB 
FOBIC F3 
FOBIE F3 
FOB20 7E51 
FOB24 400 
FOB27 880 
FOB2A 9A 


FOB2C 8E00 
00 
FOB32 571 


FOB35 880 
FOB38 00 
FOB3A 80FO 
FOB3E 880 
FOB41 20 
FOB43 80F0 
FOB4? 4B5 
FOB4A DO 
FOB4C 8£00 
00 
FOB52 590 
FOB55 890 
FOB58 B4 
FOB5A 02 


FOBSC 22 
FOBSE 8E00 
00 
FOB64 400 
FOB67 8E00 
00 
FOB6D 47E 
FOB70 3500 
0000 
FOB78 8£00 
00 
FOB7E 400 
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* 0[4] is the current sequence # we are on! 
k 


GADDRy 


x 


creo ClvU 
oOo 


mon uw ou 


(4) 


DSR 
DSR 
C=D 
DSL 
DSL 
GOSUB 
RTNC 
°PH 
GOYES 


—mOox vt 


=F INDD )+#10 


apawoxyDny 
o 


PUTGF + 


=pADOR 
GADDRF 


Start with Ist device 
Clear address of tape for TSTAT 


Find the Nth (Acc ID=16) drive 


Copy N fron D[4]} 

Restore D[4] 

Restore D[4] 

Find Nth device, type #10 

Return if error, else check addr 
Not address? 

No...either "NOT FOUND" or error! 


* Now current address is a tape device 


x 


* Check 
k 


GADDR+ 
GADDR? 


GADDr- 


xe 
x. 


GADDR8 


GOSUBL 
GONC 


=TSTAT 
GADDR? 


Check tape status first 


OK...seek record zero 


if "NEW TAPE" or other error! 


?P#H 
RTNYES 
CPEX 
PH 
GOYES 
CPEX 
GOC 
A=0 
GOSUBL 
GONC 
?P= 


GOYES 
RTNSC 


P= 
GOSUBL 


RTNC 
GOSUBL 


GOC 
LC(6) 


GOSUBL 
RTNC 


=eTAPE 


0 
=eNEWTA 
GADDR+ 
0 
GADDrn 
A 
=SEEKA 


GADORS 


=eTAPE 
GRDDrn 


2 
=DDT 
=TSTATR 


GADDr- 
(=nSDA)+8 


=READRG 


Not a tape error! 
New tape? 


Carry 1f NOT new tape 
Next iten! 


Seek record zero 
OK! 


Tape error? 
Tape error...goto next iten 


Read record zero 


Check status 


Not OK 
Send 8 bytes 


Read register (A[W]) 
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908 
909 
910 
911 
912 
913 
914 
915 


916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 


938 
939 
940 
941 
942 
943 
944 
945 
946 
94? 
948 
949 
950 
351 
952 
953 
954 
365 
356 
957 
958 
969 
960 


FOB81 3308 
00 
FOB8? 23 
FOB89 916 
FOB8C 71 


FOB8E 7083 
FOB92 2B 
FOB94 914 
FOB97 CO 


FOB99 AC3 
FOBSC B47 
FOBSF 63FE 


FOBA3 7171 
FOBA? 400 
FOBAR 20 
FOBAC 8£00 
00 
FOBB2 400 
FOBBS 24 
FOBB? BO? 
FOBBA 460 
FOBBD 6F4F 


FOBC1 


FOBC1 6REE 
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x 


* D[S] 1s # characters in A[W] (rest is zero) 

* (don’t even check count...if less than 8 for any reason, 
* will not match blankfilled volune label) 

k 


* Now AL3:0] is LIF ID (#8000), A[15:4] is volune label 
k 


LC(4) #0080 LIF ID, byte-reversed 

P= 3 

ARC OP 

GOYES GADDrn Tape not LIF...continue search 


x 


* This is an LIF tape...do the labels natch??? 
* 


GOSUB RASRC4 Shift to A[11:0] 

P= 11 

°RAHB WP 

GOYES GADDrn Label differs...try next! 


* This volune label natches...found the device! 


D=0 § 
D=D+1 S$ Set find flag=1(+2) for vol label 
GOTO GADDR& Get address, return! 


x. 
om 


GADDrn = GOSUB NTYL 


RTNC 

P= =Rewind Rewind the tape 

GOSUBL =DBL 

RTNC 

P= 4 

D=D+1 P Increnent tape counter 

GOC GADDRS If carry, have searched 16 drives 
GOTO GADDRv Continue volune label search 


ke 
GADDRS 
* 


* Device "NOT FOUND" 
k 


GOTG  GADDRn Device not found! 
JOR IOI IOI ISIS SIGS IIE IOI OIG 


JUGIIGOIIGEIOIIIGIGIIIIIESIGIEOID II TT TR TTA ITAA 
as 
a* Nanie: ATNCHK - Check if ATIN key has been hit tuice 


aa 


** Category:  PILUTL 

ak 

** Purpose: 

= Check 1f ATNFLG has been decrenented to "E" or less 
KK 


eREntry: 
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961 Rk None 
962 ak 
963 Rk Exit: 
964 ae Carry set: ATTN hit tuice 
965 ae Carry clear: ATIN hit 0 or 1 tines 
966 ak 
967 tk Calls: None 
968 a 
969 kk Uses.....0. 
; 970 - Inclusive: C{S],P (P only if carry set) 
971 
972 ** Stk lvls: 1 (Internal push) 
973 tk 
974 &* History: 
975 a 
976 ak Date Progranner Modification 
977 Oe soot, “Goer, Soest et eee eran, 
978 &K 02/08/83 NZ Wrote routine 
979 aK 
980 JOU OI TO TO TOU CII TT RIT OK 
981 JOGO III IGITI OUI ICO ISCO TORE TTR 
982 FOBC5 860 =RINCHK ?ST=0 =Attn 
983 FOBC8 62 ; GOYES ATNCHc Not aborting! (RTNCC) 
934 
985 * Attn set...check if ATNFLG true 
986 x 
987 FOBCA 06 RSTK=C Save C[A] on RSTK 
988 FOBCC 136 CDOEX Save DO in C[A] 
989 FOBCF 1800 DO=(5) =ATNFLG 
00 
9% FOBDE6 1564 C=DATO $ 
991 FOBDA 134 DO=C Restore DO 
992 FOBDD 07 C=RSTK Restore C[A] 
993 FOBDF 948 70-0) 8 
994 FOBE2 CO GOYES ATNCHc Not abort... (RTNCC) 
995 FOBE4 B46 C=C+1 § Check if "F" 
996 FOBE7 460 GOC ATNCHc Yes...not abort (RTNCC) 
997 FOBEA 20 P= =eABORT No... ABORT! 
998 FOBEC 02 RTNSC 
999 ae 
1000 a 
1001 FOBEE 03  ATNCHc RTNCC 
1002 JOU II O ISO ICICI OIG OC TOT TOK 
1003 JI UII IIIT ICITICO ISCO III IIR TIOK 
1004 bk 
1005 kk Nane: GETDev - Get device status bit fron LOOPST 
1006 xr 
1007 tk Category:  PILUTL 
1008 ak 
10093 ** Purpose: 
1010 ak Indicate whether the last call to CHKSTS found Diarond 
1011 x in device or controller rode 
1012 aK 
1013 tk Entry: 


1014 ax None 
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1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
103? 
1038 


1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
104? 
1048 
1043 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
105? 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
106? 
1068 


FOBFO 06 
FOBF2 136 
FOBF5 1800 
000 
FOBFC OB 
FOBFE 15£0 
FOCO2 OB 
FOCO4 134 
FOCO? 07 
FOCOS 870 
FOCOC 00 
FOCOE 03 
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kk 
BREA: 
ax LOOPST in ST[3:0] 
aK Carry set 1f device, clear if controller 
kk 
** Calls: None 
ae 
BR USBS si. i0.e 
tk Inclusive: S1T[3:0] 
te 
*k Stk lvls: 1 (internal push) 
ae 
** History: 
tk 
x Date Prograrner Modification 
WE: Couteds) oe Satetbent °  aaetethee ein eee econ 
kk 03/17/83 NZ Added code to save C[A] on RSTK 
** 02/02/83 NZ Rdded docunentation 
ak 
JOIST III IUIGUCIGSI ISOS III OO IIOK 
JE III TISGISUG ISOC IOC IOUGIIGGIOGIO ISOC TOK 
=GETDev RSTK=C Save C[A] on RSTK 
CDOEX Save DO in C{A] 
DO=(5) =LOOPST 
CSTEX 
C=DATO 1 Read status into C[0] 
CSTEX 
DO=C Restore DO 
C=RSTK Restore C(A] 
?ST=1 (=Device)-8 (Device is set up for XS read) 
RTNYES Carry set if device 
RINCC Carry clear if not device 
JO III IIIS IO IGG UG OG IC IIR 
JOO IOI IOC ICICI IC TO TIOK 
ae 
** Narie: CHKSTS - Check Dianond status, errors, etc 
** Narie: FNDCHK - Find a mailbox, CHKSTS 
x* Narie: FNDCH- - Check OFFED, Find a mailbox, CHKSTS 
be 
** Category:  EXCUTL 
ae 
** Purpose: 
aK Check that the status 1s OK for messages (ie NOT in 
ad nanual mode), clear the error bit in Dianond, set/clear 
$x bit for device/fcontroller 
th 
ae Entry: 
a FNDCH-:C{S] is mailbox desired 
as FNDCHK:C({S] 1s ttailbox desired 
A CHKSTS:DO points to nailbox 
an 
ee Exit: 
x? Carry clear: 
ta 


P=0, C[X] 1¢ Dianond status 
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1069 
1970 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1083 
109 


1091 
1092 
1093 
1094 
1095 


1096 
1097 
1098 


1099 
1100 
1101 


1102 
1103 
1104 
1105 


1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 


FOC1O 


FOC16 
FOC19 


FOC1B 


FOC21 
FOC 24 
FOC24 


FOC2R 
FOC2D 
FOC2F 


FOC35 
FOC38 
FOC3C 
FOC 3F 


FOC45 
FOC48 


FOC4A 
FOC4D 


FOC4F 
FOCS1 
FOC5S3 


2306 


8E00 


500 
02 


8E00 


8E00 


870 
64 
8£00 


7DAC 
5B0 
8E00 


400 
OB 


870 
D2 


OB 
06 
1B00 
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Rx CHKSTS: DO unchanged 
am FNDCH-,FNDCHK:DO points to mailbox 
KK Carry set: error (P, C[{O0] are the error #) 
tok 
*k Calls: GETHS2, CHKSET, GETERR, GETST, GETMBX 
ka 
AX USOS 5 p5008 


** Exclusive: 


xk 


&*& Stk lvls: 
ak 


xk History: 
xk 


a Date 
KX: scewcuweeiwe 
Kk 09/22/83 


kk 03/09/83 
kk 


C{x],P 
kk Inclusive: A[W],C{W],P,ST[3:0], bit(Device) of LOOPST 


2 (GETS 


T)(GETERR) (CHKSET) (pushed status; GETMBX) 


Progranner Modification 


NZ 
NZ 


Updated docunentation 
Wrote code and docunentation 


ORI JO ROTI TOTO OOO TOK 
FOI TO IO TOT TTT TTI IK 


=FNDCH- GOSUBL 


CONC 
RTNSC 


Oe Oe 
Nt ot 


NDCHK GOSUBL 


RTNC 
=CHKSTS 
GOSUBL 


?ST=1 
GOYES 
GOSUBL 


RTNC 
GOSUB 
GONC 
GOSUBL 


RTNC 
CHKST. CSTEX 
x 


* Now check if 
x 
2ST=1 


GOYES 
k 


* I an in device node.. 
x 


CSTEX 
RSTK=C 
bo=(5) 


=FNDMB- 
CHKSTS 


=FNDMBX 


=GETHS2 
=sMANUL 


CHKST+ 
=CHKSET 


Geterr 
CHKST. 
=GETST 


I an th 


=sCONTR 
CHKSTn 


=LOOPST 


Find the mailbox, check it 


If no error, continue 


Find the mailbox first 


Error (not found) 


Manual node? 
Yes..Illegal mode (not auto node) 
Check if RESET: if so, initialize 


Error during initialize! 

Get Genstone status! (&clear err) 
If no carry, all is fine 

If carry, get status bits 


Error! 
Put C[X] in the status bits 


e controller 


An I the controller on loop? 
Yes...done 


.set the Device bit of LOOPST 
Restore status bits, PILST-->C[x] 


Save PILST on RSTK 
Set =Device bit in LOOPST 
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1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
112? 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1184 
1155 
1156 
115? 
1158 
1169 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 


FOCSA 
FOCSE 
FOC60 
FOC63 
FOCES 
FOCES 
FOC6D 
FOC6F 


FOC?1 
FOC?73 
FOC 76 
FOC 78 


FOC?A 
FOC7C 


000 
1862 
OB 
850 
0B 
1542 
7ROC 
07 
03 


0B 
03 
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C=DATO KS 
CSTEX 
ST=1  =Device Set Device Status bit 
CSTEX 
DATO=C XS Write it out to LOOPST 
GOSUB Getnbx Get DO back at nailbox 
C=RSTK Restore PILST fron RSTK 
RTNCC Return, status in C[X} 
x 
ke 
x 
* Error...Dianond is in nanual rode! 
x 
CHKSTe CSTEX 
CHKST+ LC(1) =eBADND Illegal node (not controller) 
P= =ePIL 
RTNSC 
Kk. 
ke 
CHKSTn CSTEX Restore status bits 
RTNCC 


FORO IOI IOI IOI CIO III ICICI OOOO OO TOR 
FO IIIT OOO II IOI COICO OOO OOO OTT IK 


kk 
** Nane: PUTGF- - CSLA,CSL A, call PUTC, GET, FRANE+ 
** Nane: PUTGF+ - call PUTC, GET, FRANME+ 

** Nane: PUTGF - check carry, call GET, FRANE+ 
kk 

** Category: LOCAL 

kk 

** Purpose: 

ee Save code by grouping connonly called subroutines 
aK 

x* Entry: 

xe DO points to mailbox 

xe PUTGF-:C[B] 1s the nessage to send 

aX PUTGF+:C[3:0] 1s the nessage to send 

ae PUTGF: Carry set if previous error 

ka 

Ae ERT: 

BR DO unchanged 

x Carry clear: P is frane type, C[X] 1s frane 
a Carry set: Error (P, C{O0] are error code) 

aA 

**& Calls: PUTC, GET, <FRAME+> 

uk 

ae ee 

** Inclusive: C({W],P,ST[3:0] 

aK 

** Stk lvls: 1 (PUTC)(GET) 

&k 

** History: 

at 

re Date Progranner Modification 
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1173 RR nnn nen een nnn een ern nn ne en ne een ene reer renner ne 
1174 KK 09/22/83 NZ Updated docunentation 
1175 RR 02/28/83 NZ Added PUTGF- entry point 
1176 we 12/05/82 NZ Added routine and docunentation 
pele FORREST TOO 
11793 FOI III OI ITT IIT ITT 
1180 FOC7E F2 =PUTGF- CSL A 
1181 FOC80 F2 CSL A 
1182 FOC82 7470 =PUTGF+ GOSUB Putc Put the nessage... 

1183 FOC86 400 =PUTGF RTNC 
1184 FOC89 7580 GOSUB Get ...Get the response... 
1185 FOC8D 400 RTNC 
1186 FOCSO 6138 GOTO FRANE+ Exit through FRANE+! 
1187 JIS IDO IT III I IIIT STI ISIS IT ADIT ASI III III AA 
1188 JG ICICI COO SII III SOT OI ITI IIIS: 
1189 ak 
1190 ax Nane: GTYPE - Get the device type (Acc id) fron loop 
1191 ak 
1192 *k Category:  PILI/O 
1193 aR 
1194 ** Purpose: 
1195 - Get the accessory id of a device (address in D[X]) 
1196 
1197 aX Entry: 
1198 aa DO points to the HPIL nailbox 
1199 : D[X] contains the address of the device to be checked 
1200 
1201 4% Exit: 
1202 ay Carry clear: 
1203 aR P=0 
1204 at Device type in A[B] (if 2 byte response, A[3:2] is 
1205 xk first byte received, A[B] 1s second) 
1206 ax If device does not respond to Acc ID, A[A}=0 
1207 aK Carry set: error (P, C(O] are error code) 
1208 ak 
1209 ** Calls: YTAL, PUTE, PUTGF 
1210 a 
1211 ek Uses....... 
1212 kk Exclusive: A[A],C[W],P 
1213 kk Inclusive: A[A],C({W],P,ST[3:0] 
1214 ak 
1215 RK Stk Ivis: 2 (YTML)(PUTGF) 
1216 ae 
1217 ** History: 
1218 - 
1219 sos Date Programmer Modification 
1220 a a aaa aaa teat 
1221 Ak 09/22/83 NZ Updated docunentation 
1222 ek 05/17/83 NZ Reurote to fix early EOT error 
1223 kk 01/03/83 NZ Updated docunentation 
hk 
ie JOO ICO IO ISI CCCI IIIT IIIS I OT IIIS TITAS SIA 
1226 FOO ISO JOJO JO IDO IT TO III IO 


1227 FOC94 7890 =GTYPE GOSUB YIML YOU TALK, ME LISTEN 
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1228 FOC98 400 
1223 FOCSB DO 
1230 FOC9D 3500 
0000 
1231 FOCAS 8E00 
00 
1232 FOCAB 77DF 
1233 FOCRF 400 
1234 
1235 
1236 
123? FOCB2 880 
1238 FOCB5S 51 
1239 FOCB? 8AC 
1240 FOCBA 20 
1241 FOCBC FO 
1242 FOCBE FO 
1243 FOCCO AEA 
1244 FOCC3 57€ 
1245 FOCCE6 20 
1246 FOCC8 03 
1247 
1248 
1249 FOCCAR 890 
1250 FOCCO 9F 
1251 FOCCF 890 
1252 FOCD2 CO 
1253 FOCD4 20 
1254 FOCD6 800 
1255 FOCDA 20 
1256 FOCDC 02 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1209 
1270 
Vee 
1272 
1273 
1274 
1275 
1276 
127? 
1278 
Te7s 
1280 


FOCDE 8004 
FOCE2 880 
FOCES 1F 

FOCE? 5ED 
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GTYPE- 


k 
* Now P 
k 


GTYPEO 


GTYPE1 


xe 
x. 


GTYPE2 


GTYPE3 


ae 
xe 


GTYPE4 


RTNC 
A=0 A 
LO(6) (=nSAI)+#2 


GOSUBL =PUTE 


GOSUB PUTGF 
RTNC 

is frarie type 
?PH =pDATA 
GOYES GTYPE2 
7AHO OR 

GOYES GTYPEO 
ASL A 

ASL A 

A=C B 

GONC GTYPE- 
P= 0 

RTNCC 

?P= =pEQT 
GOYES GTYPE1 
?P= =pSTRTE 
GOYES GTYPE4 
P= =eUNEXP 
C=P 0 

P= =ePIL 
RTNSC 

P=C 4 

7 PH =eNORDY 
GOYES GTYPE3 
GONC GTYPE1 
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RETURN IF ERROR (CARRY SET) 
Clear value of acc id first 
LIMIT OF TWO BYTES 


START ACCESSORY POLL 


Do a GET, FRANE+ 
If carry, error 


Is this a data byte? 
No...check if EQT 


Set carry 1f AHO before this byte 


Save any previous data in A[3:2] 
Copy data byte to A[B) 

If no carry (R=0) then get next 
Reset P=0 

Done...return! 


Is this an EOT frare? 
Yes...done 

Is this an error nessage? 
Yes...must mean error! 
No...unexpected frane 

Put the error message into C[0] 


Read error code 
Is it other than "NOT READY"? 


Return, clear carry, P=0 


FORO OOO OT IO IG IIT IIT 
FORO IOI OOO III IOI ITT TT TIT TIM 


ax 


xX Narie: 
kt Nane: 


** Category: 


a 


ULYL - Unaddress listeners, address D[X] as Listen 
LISTEN - Address D[X] as listener 


PILUTL 


** Purpose: 
Unaddress all listeners, address D[X] as listener 


ag 
ak 


a* Entry: 
Desired listener address in D[X] 


Kk Exit: 


DO points to Hailbox 


Carry clear: Ok, P=0 


Carry set: error (P=error #) 
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1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 


1300 
1301 


1302 
1303 
1304 
1305 


1306 
1307 
1308 
1309 


1310 
4311 
1312 


1313 
1314 
1315 
1316 
131? 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 


FOCER 7210 
FOCEE 400 
FOCF1 3300 
00 
FOCF7 ABB 
FOCFR 8000 
00 


FODOO 20 

FODO2 3300 
00 

FODO8 61FF 


FODOC 8C00 
00 


FODI2 8000 
00 
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ak 


** Calls: PUTC 
ah 


AK Uses....... 
*k Inclusive: C[W],P,ST[3:0] 


* Stk lvls: 1 (PUTC) 
*X History: 
a Date Programmer Modification 


kk 01/03/83 NZ Updated docunentation 
kk 


FORO IO TOTTI TTT TTT TK 
FOI IIIT TI TI ITT ITI III IIR IIT TIT 


=ULYL GOSUB UNLPUT 
RTNC 
=LISTEN LC(4) =nADDRL Address ( ) as listener 
PUTC=D C=D x Fill in ( ) 
Putc GOLONG =PUTC Carry indicates return status 
k. 
k. 
=UNLPUT P= 0 
LC(4) =nUNL Unaddress all listeners 
GOTO Putc 
ke 
k. 
=Putd GOLONG =PUTD 
‘ 
Get GOLONG =GET 


FORTIS TTT II 
FOOT OTTO TOO IIT III 
xk 


xk Narie: MTYL - Unaddress listeners, ne talk, D[X] listen 
*k Narie: MTYLL- Address ne as talker, D[X] as listener 
kk 

** Category:  PILUTL 

kk 

*x Purpose: 

ne Address ne as talker, D[X] as listener 

aK 

ek Entry: 

kk D[X] is the address of the device to be listener 

a DO points to mailbox 

kk 

ak Exit: 

a Carry clear: OK, P=0 


ax Carry set: error (P=error code) 
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1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
134? 
1348 
1349 
1350 
1351 


1352 
1353 
1354 
1355 
1356 
+357 
1358 
13593 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
136? 
1368 
1369 
1370 
13714 
1372 
1373 
1374 
1375 
1376 
137? 
1378 
1379 
1380 
1381 
1382 
1383 


138 


FODI8 74EF 
FODIC 400 
FODIF 7ECF 
FOD23 400 
FOD26 3300 
00 
FOD2C 6DCF 


xk 
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Calls: UNLPUT, LISTEN, <PUTC> 
Uses....... 
Inclusive: C{W],P,ST1{3:0] 
Stk lvls: 1 (UNLPUT)( LISTEN) 
History: 
Date Prograriner Modification 
01/03/83 NZ Updated docunentation = 


FOI OI III ITO OT II TIKI IIIT II 
JOR IIIT OT TOI TTT TTS ITI IIIT IN 


=MTYL  GOSUB UNLPUT Unaddress all listeners 
RTNC RETURN IF ERROR (CARRY SET) 

=NTYLL GOSUB LISTEN Address D[X] as listener 
RTNC RETURN IF ERROR (CARRY SET) 

=MTYLC LC(4) (=nADDRM)+#4 = / ADDRESS ME AS TALKER 


GOTO = =Putc \ (carry=status) 


FORK IOI IIIT II IO ITI IK 
FOI III OTTO IIIT TIO TO TOTO OI TOI 


xk 
xk 
aK 
xx 
ae 
ak 
ak 
ak 
ax 
ax 
aK 
xk 
aK 
xk 
ak 
ae 
xx 
ak 
ak 
xk 
as 
x 
ak 
as 
aK 
xk 
x 
xk 
kt 


Narie: YIML - "You" (D[X]) talk, "nme" listen 
Category:  PILUTL 


Purpose: 
Address D[X] as talker, ne as listener 


Entry: 
DO points to mailbox 
D[X] contains the address of the device to be talker 


Exit: 
Carry clear: P=0 


Carry set: Error # in P 
Calls: UNLPUT, PUTC, <PUTC=0> 
USOS seve: 

Inclusive: C(W],P,ST[3:0] 
Sth lvls: 1 (UNLPUT)(PUTC) 
History: 
Date Progranner Modification 

01/03/83 NZ Updated documentation 


FO EFI II RO ITO ok 
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1385 JOO OIC ISIG UC TTT 
1386 FOD30 7CCF =YTML GOSUB UNLPUT Unaddress all listeners 
1387 FOD34 400 RTNC Return if error (carry set) 

1388 FOD37 3300 =YTMLL LC(4) (=nADDRN)+#2 Address ne as listener 
00 
1389 FOD3D 79BF GOSUB Putc 
139 FOD41 400 RTNC Return if error (carry set) 
1391 FOD44 3300 =TALK LC(4) =nADDRT 
00 
1392 FOD4A 6CAF GOTO ©PUTC=0 Address D[X] as talker 
1393 JIG IO IOC COT TTI TT RTT 
1394 JOIST III ITO TTT RI 
1395 ak 
1396 tk Nane: PRNSGA - Output nessage fron C (uses A) 
1397 kk 
1398 tk Category: PILI/0 
1399 RK 
1400 *k Purpose: 
1401 xk Qutput nessage from C (ASCII) (use A[W) to store it) 
1402 aK 
1403 ** Entry: 
1404 ak C{W] has an ASCII string, C[B] 1s the first character 
1405 kk Message 1s terminated by a #00 character 
1406 ak DO points to riailbox 
1407 ak 
1408 tk Exit: 
1409 ax Carry clear: OK, P=0 
1410 ak Carry set: error (P,C{0] are error code) 
1411 ak 
1412 ** Calls: PUTD 
1413 ax 
1414 ak Uses. ..... 
1415 tk Inclusive: AW], C(W),ST[3:0] 
1416 ak 
1417 Rk Stk lvls: 1 (PUTD) 
1418 ax 
1419 ** Algorithn: 
1420 kx PRMSGA:Copy C{W] to AW] 
1421 ak PRNSG1: shift A[W] right twice (next char in A[B] now) 
1422 ak output the character in C[B] (PUTD) 
1423 ak if next character (A[B]) <> #00 then goto PRNSG1 
1424 ak return 
1425 ak 
1426 ** History: 
1427 aK 
1428 - Date Progranner Modification 
1429 i 
1430 . 01/03/83 NZ Updated docunentation 
ae JOU IO TO TTI ITT IIT 
1433 JU II OO IOI III TT KEI 
1434 FOD4E AFA =PRNSGR A=C W First byte 1s still in C(B] 
1435 FODS1 BF4 PRNSG1 ASR W Get next char into A[B] 
4 1436 FOD54 BF4 ASR W 


1437 FOD5? 71BF GOSUB Putd Output the character 
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1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
144? 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
146? 
1468 
1469 


FOD5B 400 
FODS5E D6 
FOD6O 96E 
FOD63 EE 
FOD6S 01 


1470 


1471 
1472 
1473 
1474 
1475 
1476 
147? 
1478 


1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 


FOD6?7 04 
FOD69 20 
FOD6B 3401 
720 
FOD?2 01 
FOD?4 24 
FOR76 908 
FOD?79 RO 
FOD?7B C1 
FOD?7D AOC 
FOD&O 55F 


FOD83 OD 
FOD8S 136 
FODS8 883 
FODSB BO 
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RTNC Return if error (carry set) 
C=A A Get next byte 
7C#O) OO O#B Is this the end (NULL byte)? 
GOYES PRMSG1 No...output it! 
RTN Yes...return, carry clear 


JOTI OO TOIT TIO CC CO TIT II III TES 
JUICE IIIT COT TI IO 
ae 
** Nane: DTOH - Convert fron decinal to HEX 
i 
** Category:  PILUTL 
th 
** Purpose: 
ae Convert value in A[A] fron decinal to hex 
ak 
kk Entry: 
xe A[A] contains the BCD value 
re A[S] contains the sign of the value (for exit only) 
i 
aX Exits 
ak Hex value in C{R], sign in C[S] (copied fron A[S]) 
aK P=0, carry clear 
ax 
** Calls: None 
ak 
BR USES fw. 
** Inclusive: A[A],B[A],C[A],P 
tok 
** Stk lvls: 0 
ik 
** History: 
ah 
na Date Prograrmer Modification 
PR ete! Woke eee, * tee a Ss eee eee auras 
ek 01/03/83 NZ Updated documentation 
a 
$I IOI II ATI II SII III III IT IIIT IAI IIIS I IIIA II III SI IIIS IIA 
FOR IOI III IOI OI I OOO IIIT OOO IOI IOI OI IO 
=DTOH  SETHEX 
= 0 
LC(5) 10000 
B-0 
P= 4 
DTOHO = =?A=0 OP 
GOYES OTOH 
B=B+C A 
A=R-1 PP 
GONC DTOHO Go always 
y_ 
kL 
DTOH1 P=P-4 
CDOEX Use DO to set value! 
7PH 3 


GOYES DTGH2 
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1492 FOD8D 1A8E 


1493 
1494 
1495 
1496 
1497 
1498 


1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1513 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 


FOD93 


FOD96 
FOD99 
FODSB 


FODA1 


FODR4 
FODA? 
FODAS 


FODAD 
FODBO 


FODB3 
FODBS 
FODB? 
FODBA 


HR 
591 


882 
BO 
1R46 
00 
580 


881 
60 
19R0 


136 
56C 


D9 
C2 
AC6 
03 
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DO=(4) 1000 
GONC DTOH4 Go always 


x 
x. 


BIOH2 ?P# 2 
GOYES DTOH3 
DO=(4) 100 


GONC DTOH4 Go always 


k 

ke 

DTOH3 = ?P# 1 
GOYES DTOH4 
DO=(2) 10 


DTOH4 = CDOEX 
CONC DBTOHO If carry clear, not done yet 


* Done! (P=0, carry set) 
k 


C=B A 

C=C+R A Now HEX result in C[A]! 
C=A S$ (Copy sign fron A[S]) 
RTNCC 


FOI JOIST TTT OO TO TTT TTT TIO 
FOOT TTI TUTTI TTI OTTO 
x 


x* Nane: HTOD - Convert C[B] value fron hex to decinal 
ka 


** Category:  PILUTL 

dk 

** Purpose: 

a Convert C[B] from hex into decinal, use only B,C,P 
dk 

** Entry: 

Re C[B] contains a HEX value 
oe 

R* Exit: 

RA Decinal value in B[X] 

ne Decinal node set! 

ae Carry set, P=3 

tok 

** Calls: None 

dk 

RE USES. basis 

xx Inclusive: B{A],C(A],P 

tok 


**k Stk lvls: 0 
xk 


** History: 
xk 


es Date Prograntier Modification 
Pie uote eee Cuts Mal ete oe hile on ere 


Kk 91/03/83 NZ Updated docunentation 
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1545 
1546 
1547 
1548 
1549 
1550 
1551 
1562 
1553 
1554 
1565 
1556 
1557 
1558 
1559 
1560 
1561 
1562 


1563 
1564 
1565 
1566 
156? 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1677 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
158? 
1588 
1589 
1590 
1591 
1692 
1593 
1594 
1595 
1596 
159? 
1598 


FODBC 
FODBE 
FODCO 
FODC2 
FODC4 


FODCE6 
FODCS 
FODCC 
FODCE 


FODD1 


FODD6 
FODD8 
FODDB 
FODDE 
FODE1 


D1 
F2 
Fe 


05 


AZE 
470 
E5 

57F 


3261 


23 

AOE 
400 
A31 
56F 
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xk 
FOO III I IIIT OI TOIT IGT TIO 
FOR UIOIIOOOO T ITI ID TIT TITITIEK 


=HTOD =B=0 A Clear destination register 
CSL A 
CSL. OAR Save digits in C[3:2] 
P= 0 
SETDEC 


* Loop for the case of A-F 
x 


HTOD1 C=C-1 XS Is the least sig. digit zero? 
GOC HTOD2 Yes...next digit 
B=B+1 A No...increnent result 
GONC HTOD1 Go aluays 
x. 
ke 
HTOD2 LCHEX 016 Now the digit value is 16(DEC) 
P= 3 Point to the other digit 
HT0D3. -C=C-1 P Is the digit zero yet? 
RTNC Yes...done! 
B=B+C xX No...add another 16! 
GONC HTO0D3 Go always 


FOI III IOI IO TI TOTTI TIT ITT OTTO TOTO TO TOTTI IOI III 
FOI ORI IOI QI IOI III OI III 
ww 


** Nane: HTODX - Convert A[W] fron HEX to decinal 
kk 

** Category:  PILUTL 

tok 

** Purpose: 

xk Convert A[W] from HEX to DECIMAL 

ke 

** Entry: 

xm A[W] contains the HEX value 

re 

RK Exit: 

KR Carry clear: Decimal value in B[W], PHO 

xk Carry set: Error (range error) (P=Error #) 
kk 

** Calls: None 

ke 

MP USOSe bacaidar 

** Inclusive: A[W],B[W],C[W],P 

ax 

Ae Stk lvis: 0 

aa 

** History: 

kk 

aA Date Progranrer Modification 
MR ecw weoGeSekive>  -+bece toc seco oahu ele cee. 
kk 01/03/83 NZ Updated docunentation 
+k 


FOI IRR JO OI JU Sa tO OO 
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1599 

1600 FODE4 AF1 
1601 FODE? AF2 
1602 FODEAR 20 
1603 FODEC 301 
1604 FODEF 05 
1605 FODF1 AOC 
1606 FODF4 480 
1607 FODF7 A71 
1608 FODFA 56F 
1609 

1610 

1611 FODFD A80 
1612 FOEOO 97C 
1613 FOEO3 60 
1614 

1615 

1616 

1617 FOEOS5 04 
1618 FOEO?7 01 
1619 

1620 

1621 FOEO9 OC 
1622 FOEOB 411 
1623 FOEOE A76 
1624 FOE11 A76 
1625 FOE14 R76 
1626 FOE17 A76 
1627 FOEIR 56D 
1628 FOEID 20 
1629 FOEIF 45€ 
1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 
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FOO ROO IOI JO RJT ORI 


=HTODX 8=0 
C=0 
p= 
tC(1) 
SETDEC 

HTODX1 =A=A-1 
GOC 
B=B+C 
GONC 

xe 

x. 


HTODK2 A=0 
FARO 


GOYES 
X 


* Carry clear if fall through 
* 


HTODXr SETHEX 
RTN 


ke 
ke 


HTODX3 «=P=P+1 
GOC 
C=C+C 
C=C+C 
C=C+C 
C=C+C 
GONC 

HTODX4 =P= 
GOC 


W 


W 
0 
1 


p 
HTODK2 
W 

HTODX1 


Pp 
W 
HTODX3 


HTODK4 
W 

Wl 

W 

W 
HTODX1 
=eRANGE 
HTODKr 


Is this digit zero yet? 
Yes...continue mith next! 
No...add HEX place value to B[W] 
Go always! 


Clear digit when done with it! 
Done with uhole word? 
No...continue 


Done...return in HEX triode! 
(Carry is result) 


Go to next digit 
Error! 
Do a multiply by 16 in DEC node 


Range error (Overflow) 
Go always 


SOTO UIC OTITIS TI TOT 
FORO JO II TOO TIT TTI OEE TT 


ak 


xk Narie: 
ak 


*k Category: 
eh 


** Purpose: 
* 


A-NULT - Multiply A[A] by C{A}, result in A[9:0] 


ATHUTL 


Multiply 20-bit hex integers 


&* Entry: 

ae AA], C[A] are the operands 

mA If HEXMODE, does HEX multiply; if DECMODE, DECIMAL nult 
ah 

mA EMT: 

yi P has been preserved 

i A[9:0] = product 

a5 Carry set 

ak 

BX USCS iss ot 

** Inclusive: A[W],B[W],C(W) 

ah 

*k Stk lvls: 0 

ak 

xx Date Prograntier Nodification 
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1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
168? 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
170? 
1708 


FOE22 AF 1 
FOE2S DC 
FOE2? AFO 
FOEZA 8AR 
FOE2D 00 
FOE2F 80FE 
FOE33 20 
FOE35 570 


FOE38 OC 

FOE3A BF1 
FOE3D B8A 
FOE40 57F 


FOE43 R70 
FOE46 431 
FOE49 BO6 
FOE4C S6F 
FOE4F 8AE 
FOES2 6E 
FOE54 80DE 
FOES8 02 


FOESR AFO 
FOE5D A7C 
FOE6O 80DE 
FOE64 03 


GENERAL ROUTINES <840106.1701> Tue Jan 17, 1984 12:08 pn 


Page 32 
HM Scaewiten “Soeecccaeet ea oat eae e lated ae ec 
*X 09/22/83 NZ Updated docunentation 
aX 12/06/82 NZ Changed result to A[9:0] 
** 01/01/00 SA Wrote original (nainfrane) 
ie 


FOR ITO TO TTT TI IK 
FOR UI CIO OOO TOOT OTTO TIIOR A 


=A-MULT B=0 W 


ABEX A B[A] is multiplicand, B{15:5]=0 
A=0 W Clear result register 
*C=0) =A Zero riultiplier? 
RTNYES Yes...return, carry set 
CPEX 14 Save P in C{14] 
P= 0 
GONC 3 =A-STRT Go aluays 
ke 
ae 
NXTDGT P=P+1 Go to next digit 
BSL W Shift nultiplicand left one digit 
M-STRT C=-C  P Zero digit? 
GONC NXTDGT Yes...go to next digit 
x 
ADCYCL A=A+B OW ADD MULTIPLICAND TO RESULT 
GOC OVFLOW *AThis will NEVER happen! *** 
C=C+1 P Increnent digit 
GONC = ADCYCL No carry=not done...repeat ADCYCL 
*CHO OA More digits renaining? 
GOYES NXTDGT Yes...go to next digit 
P=C 14 No...restore P from C[14] 
RTNSC Return with carry set...OK 
x. 
ke 
OVFLOW A=O OW X**This code will never be used*** 
A=A-1 W RAS ; ‘ AED 
P=C 14 kk . KKK 
RTNCC aK aaK 


FORO I IIT OTTO III 
FOI IOUT III TOOT IOI TOIT IIIT III 
ar 


xk Narie: UCRANG - Convert to upper case, check if [A-Z] 
** Narie: CONVUC - Convert to upper case 

** Nane: RANGE - Check if in given range 

** Nane: RANGEN - Check if in [0-9] 

** Narie: RANGER - Check if in [A-Z] 

ae 

** Category:  PILUTL 

aX 

** Purpose: 

xk A[B] is aten to work with: 

- UCRANG: Determine if letter, convert to upper case 

*F CONVUC: Convert to upper case (if lower case) 

ae RANGE: Deterrine if in specified range of characters 
ae RANGEN: Check if in [0-9] 

xk RANGEA: Check if in [A-Z] 

xk 
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1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 FOE66 7910 

1738 FOE6A 500 

1739 

1740 

1741 

1742 FOE6D 3316 
A? 

1743 FOE73 7010 

1744 FOE7? 400 

1745 FOE7A 3102 

1746 FOE7E B6A 

1747 FOE81 03 

1748 

1749 

1750 FOE83 3314 
AS 

1751 FOE89 6900 

1752 

1753 

1754 FOE8D 3303 
33 

1755 FOES3 9E2 

1756 FOE96 00 

1757 FOE98 Fé 

1758 FOESR BB6 

1759 FOESD B62 

1760 FOERO 01 


ak 
ak 
ak 


=U 
& 
& 
k 


=C 


x. 
xe 


=R 


ke 
=R 


=R 
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a[B] contains the character to be checked 
P=0, HEXMODE 


/ Exit: 
P=0 
Carry set if not in range 
Carry clear if in range 
Calls: (UCRANG): RANGER, <CONVUC> 
Calls: (CONVUC): RANGE 
Calls: (RANGE): None 
Uses....... 


Inclusive: C[A] (CONVUC also changes A[B] if in [a-z] 


Stk lvls (UCRANG): 1 (RANGEA)<CONVUC > 
Sth lvls (CONVUC): 1 (RANGE) 
Stk lvls (RANGE): 0 
History: 
Date Progranner Modification 
01/03/83 N2 Updated docurentation 


FOUR RIOR IRR ROJO OI JI IIT TTI 
JOTI JOO I TOT TTT ITT TITER 


CRANG GOSUB RANGEA Check if in [A-Z] 
RTNNC If carry clear, Done! 
Fall through to convert to upper case 


ONVUC LCASC \za\ 


GOSUB RANGE 
RTNC 

LCHEX 20 
R=A-C OB 
RTNCC 


ANGER LCASC \ZA\ 
GOTO RANGE 


ANGEN LCASC \90\ 


ANGE ?AKC 
RTNYES 
CSR 
CSR 
C=C-A 
RTN 


ox »pD cw 
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1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

17 ?2 

1773 

1774 

1775 

1776 

1777 

1778 

1773 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

178? 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1796 FOER2 14F 
1796 FOERS 171 
1797 FOER8 BFO 
1798 FOERB BFO 
1799 FOERE REA 
1800 FOEB1 OD 

1801 FOEBI 880 
1802 FOEB6 CE 

1803 FOEB8 01 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 
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FORO TTR ITT TTT ITI IS TTR III TIT IK 
O00 RIO TOTO TOTTI 
ak 


** Narie: GETALR - Get data into A[W] fron @01,left>right 
xx 

*k Category: PILUTL 

kk 

** Purpose: 

aK Read data fron @ D1 into ALN], fron A[15:14] to ALB] 
kk 

*k Entry: 

ak D1 points to the data in RAN 

ak P is a count of bytes to be read into A[W] 

an Bytes are to be entered with the last byte in A[B] 
kk 

AX Exit: 

ak "P" data bytes in A[W] 

th P=0 

an 

k* Calls: None 

ke 

kk Uses....... 

kk Inclusive: A[W],C[B},01,P 

kk 

xk Stk lvls: 0 

aK 

*k History: 

kA 

a Date Progranner Modification 

$e GOS EeIS. estos San tentaiten een aaah Steen 
ak 01/03/83 NZ Updated docunentation 

xx 


FORT III ITI TTT IIT SOIT AI IK 
FOR II I OI TT TT TTT TTT III IK III ITS ITI TIT IDI K 


=GETALR C=DAT1 B 


B1=D1+ 2 
=ALRNOG ASL W 

ASL W 

A=C B 

P=P-4 

PH 0 

GOYES GETALR 

RIN 


FORO ITO III IO IOI TOI CITI GIGI III OI TOI IT 
FOI IO IOI I IIIT OO TI IIT II 
aa 


*k Nanie: PUTARL - Put data fron A[W] (Right to left) 
a* Narie: PUTALR - Put data fron A[W] (Left to right) 
th 

** Category:  PILUTL 

at 

%* Purpose: 

mm Output data fron A[W] to the HPIL loop 

xx 


** Entry? 
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1816 * DO points to mailbox 
1817 tx I an talker on loop 
1818 ax P is a count of bytes to be output fron A[W] 
1819 an PUTARL outputs bytes starting with A[B]} 
1820 ah PUTALR outputs bytes starting with A[15:14] 
1821 ak 
1822 tk Exit: 
1823 aK Carry clear: P=0, all OK 
1824 ak Carry set: error (P, C[O] are error code) 
1825 a 
1826 kk Calls: PUTD 
1827 ax 
1828 Rk Uses. ...... 
1829 ek Exclusive: A[W],C([A],P 
183% tk Inclusive: ALW],C{W],P,S1[3:0] 
1831 ak 
1832 tk Stk lvls: 1 (PUTD) 
1833 ak 
1834 kk History: 
1835 ax 
1836 ak Date Progranner Modification 
1837 BK wanna wenn nee e ne ene nnn nnn nnn nen re ner nner renner ee 
1838 < 01/03/83 NZ Updated documentation 
a JUGS SCCCOUOOCI TIT A TAD 
1841 JU I OT TSOTSI SII ISOS AISI SIS. 
1842 FOEBA D6 =PUTARL C=A A 
1843 FOEBC 814 ASRC 
1844 FOEBF 814 ASRC 
1845 
1846 * Put A[W] fron right to left, no shift 
1847 & 
1848 FOEC2 764E =ARLNOS GOSUB Putd 
1849 FOEC6 400 RTNC Return if error (carry set) 
1850 FOECS OD P=P-14 
1851 FOECB 880 7PR 0 
1852 FOECE CE GOYES PUTARL 
1853 FOEDO 01 RTN Done! 
1854 x 
1855 oe 
1856 FOED2 810 =PUTALR ASLC 
1857 FOEDS 810 ASLC 
1858 FOED8 Dé C=A A 
1859 , 
1860 : Put AW] fron left to right, no shift 
1861 
1862 FOEDA 7E2E =ALRNOS GOSUB Putd 
1863 FOEDE 400 RTNC Return if error (carry set) 
1864 FOEE1 OD P=P-1 
1865 FOEE3 880 ?PH 0 
1866 FOEE6 CE GOYES PUTALR 
1867 FOEE8 01 RIN Done! 
1868 JO IOC IOI I I TTI EI I IIIT IS 
1869 JOO IO TOI TITS OSI TITAS TIS SA 


1870 xe 
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1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
189 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
190? 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1S15 
1916 
1917 
1918 
1919 
1920 
1921 
Ace 
1923 
1924 
1925 


FOEER 7E1E 
FOEEE D2 
FOEFO 400 
FOEF3 OD 
FOEFS 880 
FOEF8 2F 
FOEFA 01 


ak 
ak 
ax 
xx 
ak 
aX 
aX 
ax 
ak 
ax 
ak 
ax 
ax 
ax 
ak 
ax 
ax 
ax 
ae 
ae 
RA 
ax 
ax 
ak 
aX 
ax 
ax 
ae 
aX 
ax 
ak 
aa 
ak 


=P 


ax 
ax 
xx 
ak 
xx 
xs 
ae 
aa 
a 
ae 
ax 
kx 
aR 
ak 
aa 
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Narie: PUTDX - Output multiple data bytes (P is count) 
Category:  PILI/0 
Purpose: 
Output data to the loop: first the contents of C[B], 
then P-1 zero bytes 
Entry: 
DO points to mailbox 
I an talker 
P contains the total number of bytes to send 
Exit: 
P=0 
Carry set if error (P is error #) 
Calls: PUTD 
Uses....... 
Exclusive: C[A],P 
Inclusive: C[W],P,ST[3:0] 
Stk lvls: 1 (PUTD) 
History: 
Date Progranner Modification 
01/03/83 NZ Updated docunentation 
JI IOI II III III III IIT I I III III IIB I II OT I III III III IIA 
JU III II TI TI IIIA IOI O SII SII II III IITA 
UIDX GOSUB Putd 
C=0 A 
RTNC Return af error (carry set) 
P=P-1 
PH 0 
GOYES PUTDX 
RIN Done! 
JI I IIE TI TOO TI ITS I ITI IT II TTA DIN 
JI II III II ITI TT III TI IIT ITE ITT 
Nane: ASLCn - Shift the A register n nibbles LEFT 
Nane: ASRCn - Shift the A register n nibbles RIGHT 
Category:  PILUTL 
Purpose: 
Shift the A register by a given nunber of nibbles 
Entry: 
None 
Exit: 
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1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
193? 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1965 
1956 
195? 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1368 
1969 
1970 
1974 
Sie 
1973 
1974 
1975 
1976 
197? 
1978 
1979 
1980 


FOEFC 
FOEFC 
FOEFF 
FOEFF 
FOFO2 
FOFO2 
FOFOS 
FOFO5 
FOFO8 
FOFO8 
FOFOB 
FOFOB 
FOFOE 
FOFOE 
FOF 11 
FOF 11 
FOF 14 


FOF 16 
FOF 16 
FOF19 
FOF 19 
FOFIC 
FOF IC 
FOF 1F 
FOF 1F 
FOF 22 
FOF 22 
FOF 25 
FOF 25 
FOF 28 
FOF 28 
FOF 2B 


810 
810 
810 
810 
810 
810 
810 


810 
01 


814 
814 
814 
814 
814 
814 


814 
Of 
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ax A[W}] 1s rotated the given # of nibbles 
kK 
kk Calls: None 
ok 
k* Uses....... 


*k Inclusive: A[W] (shifted as per instructions) 
xx 


KX Stk lvls: 0 
ax 


** NOTE: Does not alter P or carry!!! 
kk 


** History: 
ka 


ax Date Programmer Modification 
Ree uot lies. eeeeseeces. Wecetuew yer cos fol eae le! 


kk 91/03/83 NZ Updated docunentation 

kt 

KSI II II IIIT III IIS III ISIS II III I SID II II SII IIS ISI III AI I ASIII AS. 
JO OO IIIS TI IOI SO TT ISITE 


=ASRC8 
=ASLC3 = ASLC 
=ASRCI 
=ASLC7? ASLC 
=ASRC10 
=ASLC6 = ASLC 
=ASRC11 
=RASLC5 = ASLC 
=ASRC12 
=ASLC4 ASL 
=ASRC13 
=ASLC3 ASLC 
=ASRC14 
=ASLC2 ASLC 
=ASRC15 
=ASLC1 ASLE 
RTN 


ASRC7 
ASLCS ASRC 
ASRC6 
RSLCIO ASRC 
ASRC5 
ASLC11 ASRC 
ASRC4 
=ASLCE12 ASRC 
=ASRC3 
=ASLC13 ASRC 
=ASRC2 
=ASLCE14 ASRC 
=ASRC1 
=ASLC15 ASRC 
RTN 


FOI III OIRO TIO ITI III 
FID JOO I TOO ICO IIIT OI TI III TOK 


Po tk He He OOb HR 8 ee 
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1981 
1982 
1983 
1984 
1985 
1986 
198? 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
ewe 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
e022 
2023 
2024 
2025 
2026 
2027 
L028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 


FOF 2D 
FOF 2D 
FOF 30 
FOF 30 
FOF 33 
FOF 33 
FOF 36 
FOF 36 
FOF 33 
FOF 39 
FOF 3C 
FOF 3C 
FOF 3F 
FOF 3F 
FOF42 
FOF42 
FOF 4S 


FOF 4? 
FOF 4? 
FOF4A 
FOF4A 


B12 


816 
816 


Kx 
xk 
a 
xx 
xx 
ax 
xx 
xx 
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Nane: CStCn - Shift C[W] the given # of nibbles LEFT 
Nane: CSRCn - Shift C{W] the given # of nibbles RIGHT 
Category:  PILUTL 


Purpose: 
Shift the C register by a given number of nibbles 


xx 


eK Entry: 


xx 
a 


KK ExIt: 


xx 
ax 


None 


C(W] is rotated the given # of nibbles 


kk Calls: 


kK 
kk Uses 


kk Inclusive: C[W] (rotated as per instructions) 


ax 


* Stk lvls: 


wx 


** NOTE: Does not alter P or carry!!! 


ax 


** History: 


aK 


aK Date 


KK otc 


“<= 


*k 01/03/83 


aK 


wie we Re ew ew ee we ee ewe ewe ee 


Updated docunentation 


JOIIOITIO TIO III CII IOI III OI TOI TO IIT IO IOI SIO 
FOI IO UIC OOOO TTT TTT TIT TI IK 


=CSRC8 
=CSLC8 
=CSRC9 
=CSLC? 
=CSRC10 
=CSLC6 
=CSRC11 
=CSLCS 
=CSRC12 
=CSLC4 
=CSRCO13 
=CSLO3 
=CSRO14 
=CSLC2 
=CSRO15 
=CSLC1 


EE ER ee 


CSLC 
CSLC 
CSLC 
CSLC 
CSLC 
CSLE 
CSLC 


CSLC 
RTN 


CSRC 
CSRC 
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2036 FOF4D 

2037 FOF4D 816 

2038 FOF5O 

2039 FOFSO 816 

2040 FOFS3 

2041 FOF53 816 

2042 FOFS6 

2043 FOFS6 816 

2044 FOFSS 

2045 FOFSS 816 

2046 FOFSC 01 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 FOFSE 20 

2080 FOF6O 3F02 
0202 
0202 
0202 
02 

2081 FOF72 01 

2082 

2083 

2084 

2085 

2086 
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=CSRC5 
=CSLC11 CSRC 
=CSRC4 
=CSLC12 CSRC 
=CSRC3 
=CSLC13 CSRC 
=CSRC2 
=CSLC14 CSRC 
=CSRC1 
=CSLCE15 CSRC 


RTN 
FOI I TIT TT TTT TT TK 


FORO OIRO JRO OO TOIT 
ak 


ak Nane: BLANKC - Load C[W] with 8 blanks 

kt 

** Category:  GENUTL 

kk 

*k Purpose: 

ak Load 8 blanks into C[{W] 

ak 

** Entry: 

kk None 

kt 

ak Exit: 

os P=0, C[W]=" " 

ae Carry unchanged!!! 

ak 

xk Calls: None 

kk 

AX Uses.....5 

kk Inclusive: C{W],P 

xk 

** Stk lvls: None 

kt 

** History: 

aa 

ae Date Progranner Modification 
PE teen e: meee Seka ket eh oo ie et Det aes 
KK 12/06/82 NZ Added routine and docunentation 
kk 


FOI III IOUT TT TTI TOR TO TIT TOI TIT 
OOOO ITI IIT TOO TT TTT TT TTT INK 


=BLANKC P= 0 
LCASC \ x 
RIN 


FOI III III III IOI II SITIO 
FOO III OI IOI TTT TTI TIT IK 
xk 


xx Narie: D1=AVE, DI=AVS, DI@AVE ,DI@AVS - Set D1 to pointer 
aK 
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2087 

2088 

2089 

2090 

2031 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 FOF74 1F 00 
000 

2118 FOF?B 01 

211g 

2120 

2121 FOF?D 1F00 
000 

2122 FOF84 01 

2123 

2124 

2125 FOF86 7AEF 

2126 FOF&A 147 

2lc? FOF8D 13? 

2128 FOF 01 

2129 

2130 

2131 FOF92 77EF 

2132 FOF96 63FF 

2133 FOFSA 
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Page 46 
** Category:  PTRUTL 
aa 
xX Purpose: 
x Set D1 either at AVMEME/AVNENS or (RVMENE)/(AVNENS) 
ek 
AX Entry: 
ae None 
eh 
XR Exit; 
i 01 @ pointer, carry unchanged 
a (D1@xxx:C{AJ=pointer address) 
es 
kk Calls: None 
ah 
BRUSHES iced 


*k Inclusive: C(A],D1 
k 


kK Stk lvls: 
xk 


0 (D1@xxx uses 1 stack level) 


** NOTE: Does not change P or carry! 


ak 


** History: 
at 


ak Date 
kk 
KK 02/07/83 NZ 


eK 01/12/83 NZ 
ak 


wee we eee ee 


Modification 


Changed D1=C to CDIEX (Exit cond) 
Added docunentation 


FOI III IOI IIIT II I TION 
FOI I IIIT OTT TOTTI TT ITI IT TIO IO 


=D1=AVE D1=(5) =AVMENE 
RTN 


DI=AVS D1=(5) =RVMEMS 


k 

=DI@AVE GOSUB D1=AVE 

=ReadD1 C=DAT1 A 
CDIEX 
RTN 

DIGAVS GOSUB D1=AVS 
COTG = =Read?1 
END 


x 
* 


Leave pointer address in C{A] 
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=A-MULT Abs 986653 HFOE22 - 1661 
ADCYCL Abs 986691 HFOES3 - 1676 1679 
=ALRNOG Abs 986792 HFOEAR8 - 1797 
ZALRNOS Abs 986842 HFOEDA - 1862 
=ARLNOS Abs 986818 HFOEC2 - 1848 
2ASLC1 Abs 986897 HFOF11 - 1960 
sASLC10 Abs 986905 HFOF19 - 1967 
ZASLC11 Abs 986908 HFOFIC - 1969 
sRASLC12 Abs 986911 HFOFIF - 1971 
ZASLC13 Abs 986914 HFOF22 - 1973 
=ASLO14 Abs 986917 HFOF25 - 1975 
sASLC15 Abs 986920 HFOF28 - 1977 
=ASLC2 Abs 986894 HFOFOE - 1958 
sASLC3 Abs 986891 HFOFOB - 1956 
=ASLC4 = Abs 9986888 HFOFO8 - 1954 
=ASLCS Abs 986885 HFOFOS - 1952 
ZASLC6 Abs 986882 HFOFO2 - 1350 
=ASLO? Abs 986879 HFOEFF - 1948 
=ASLC8 = Abs 986876 HFOEFC - 1946 
2ASLC9 =Abs 986902 HFOF16 - 1965 
sASRC1 =Abs 986920 HFOF28 - 1976 
=ASRC10 Abs 986882 HFOFO2 - 1949 
=ASRC11 Abs 986885 HFOFOS - 1961 
ZASRC12 Abs 986888 HFOFO8 - 1953 
=ASRC13 Abs 986891 HFOFOB - 1955 
=ASRC14 Abs 986894 HFOFOE - 1957 

=ASRC15 Abs 986897 HFOF11 - 1959 

=ASRC2 Abs 986917 HFOF2S - 1974 

=ASRC3 = Abs 986914 HFOF22 - 1972 

=ASRC4 = Abs) 986911 HFOFIF - 1970 922 
ZASRCS Abs 986908 HFOFIC - 1968 

=ASRC6 =Abs 986905 HFOF19 - 1966 

sASRC? = Abs 986902 HFOF16 - 1964 

=ASRC3 = Abs 986876 HFOEFC - 1945 

=ASRC9 = Abs 9986879 HFOEFF - 1947 

=RATNCHK Abs 986053 HFOBC5 - 982 

ATNCHc Abs 986094 HFOBEE - 1001 9383 994 996 


ATNFLG Ext - 989 
AVMENE Ext - 2117 
AVMEMS Ext - 2121 
Attn Ext - 982 
=BLANKC Abs 986974 HFOFS5SE - 2079 
CHKSET Ext - 1101 


CHKST+ Abs 986227 HFOC73 - 1133 1100 
CHKST. Abs 986184 #FOC48 - 1107 1104 
=CHKSTS Abs 986148 #FOC24 - 1097 1091 
CHKSTe Abs 986225 HFOC71 - 1132 
CHKSTn Abs 986234 HFOC7A - 1138 1112 
=CONVUC Abs 986733 HFOE6D - 1742 
=CSLC1 Abs 986946 HFOF42 - 2028 
=CSLC10 Abs 986954 HFOF4A - 2035 
=CSLC11. Abs 986957 HFOF4D - 2037 
=CSLC12 Abs 986960 HFOF5O - 2039 
=CSLC13 Abs 986963 HFOF53 - 2041 
=CSLC14 Abs 986966 HFOF56 - 2043 
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=CSLC15 Abs 986969 HFOF59 - 2045 
2CSLC2 = Abs 986943 HFOF3F - 2026 
=CSLC3. Abs §=986940 HFOF3C - 2024 
=CSLC4. Abs «= 986937 HFOF39 - 2022 
=CSLC5 Abs 986934 #FOF36 - 2020 
=CSLC6 Abs 986931 HFOF33 - 2018 
2CSLC? = Abs )§= 986928 HFOF3O - 2016 
=CSLC8 Abs 986925 HFOF2D - 2014 
=CSLC9_ = Abs «986951 HFOF47 - 2033 
=CSRC1 «Abs 986969 HFOF59 - 2044 
=CSRC10 Abs 986931 HFOF33 - 2017 
=CSRC11 Abs 986934 HFOF36 - 2019 
=CSRC12 Abs 986937 HFOF39 - 2021 
=CSRC13° Abs 986940 HFOF3C - 2023 
=CSRC14 Abs 986943 HFOF3F - 2025 
=CSRC15 Abs 986946 #FOF42 - 2027 
=CSRC2 Abs «986966 HFOF5S6 - 2042 
=CSRC3 Abs 986963 HFOF53 - 2040 
=CSRC4 = Abs «986960 HFOF5O - 2038 
=CSRC5 Abs 986957 HFOF4D - 2036 
=CSRC6 Abs 986954 HFOF4R - 2034 
=CSRC7 = Abs = 986951 HFOF4? - 2032 
=CSRC&8 = Abs «= 986925 HFOF2D - 2013 
=CSRC9 = Abs «986928 HFOF30 - 2015 


=DI=AVE Abs 986996 HFOF 74 Zui? 2les 
=D1=AVS Abs 987005 HFOF 7D 2121 2131 
=DI@AVE Abs 987014 HFOF86 2125 


=DI@AVS Abs 987026 HFOF92 - 2131 


DBL Ext 93? 
DDT Ext 1 
=DTOH Abs 986471 #FOD67 1476 


DTOHO Abs 986486 #FOD76 - 1481 1485 1507 

DTOH1 Abs 986499 #FOD83 - 1488 1482 

DTOH2 Abs 986518 HFOD96 - 1496 1491 

DTOH3 Abs 986532 HFODAAa - 16502 1497 

DTOH4 = =Abs 986541 HFODAD - 1506 1493 1499 1503 


DevID Ext - 721 
DevTyp Ext - 660 
Device Ext - 1044 1121 
Dsloop Ext - 656 
DsNull Ext - 646 


=END Abs 985207 HFO877 - 250 = 232 
=ENDFN Abs 985173 HFO855 - 236 
=ENDST Abs 985163 HFO84B - 232 
=FNDCH- Abs 986128 HFOCIO - 1090 368 
=FNDCHK Abs 986139 HFOCIB - 1095 
FNDMB- Ext - 1090 
FNDNBX Ext =~ 4095 
FROO-O Abs 985148 HFO83C - 176 171 
FROO-1 Abs 985139 #F0833 - 170 165 
FROO-2 Abs 985130 HFO82A - 164 159 
FROO-3 Abs 985121 #FO821 - 198 153 
FROOKX Abs 985076 HFO?F4 - 124 118 
FROXXX Abs 985065 HFO?7ES - 108 80 
FRIIXX Abs 985052 RFOFDC - 97 90 
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FRIXXX Abs 985047 #FO7D7 - 89 

=FRAMNE+ Abs 985026 HFO7(2 - 67 1186 

sFRAME- Abs 985040 RFO7D0 - 77 


78 69 
173 99 135 = =151 
183 141177 


FRANEO Abs 985040 #FO7D0 
FREND Abs 985146 #FO83R 
FRERR Abs 985159 #F0847 


FRERRS Abs 985157 #FO845 - 182 144 
sGADDR Abs 985492 #F0994 - 635 492 
GADDR$ Abs 985621 HFORIS - 714 709 
GADDR& Abs 985747 HFOR93 - 790 931 
GAODR’ Abs 985562 #FOSDA - 676 649 800 
GADDR+t Abs 985923 HFOB43 - 8% 889 
GADDR- Abs 985734 #FOR86 - 778 773 
GADDRO Abs 985516 HFOSAC - 652 641 
GADDR1 Abs 985533 #FOSBD - 660 654 


GADDR2 Abs 985603 #FORO3 - 699 672 
GADDR3 Abs 985607 HFORO7 - 702 662 
GADDR4 Abs 985703 HFOR67 - 768 825 
GADDRS Abs 985790 HFORBE - 815 771 777 780 
GADDR6 Abs 985825 HFORE1 - 840 724 
GRDDR7 Abs 9859 #FOB4A - 892 881 


GADDR8 Abs 985948 HFOBSC - 300 894 
GADDRS Abs 986049 #FOBC1 - 945 941 
GRODR? Abs 985614 HFOROE - 711 713 
GADDRN Abs 985508 #FOSA4 - 647 657 
GADDRd Abs 985646 #FORZE - 732 723 
GADDRe Abs 985816 HFOAD8 - 834 503 796 
GADDRF Abs 985811 HFORD3 - 828 824 876 
GADDRn Abs 985772 HFORAC - 803 699 754 829 349 
GADDRu Abs 985816 #FOAD8 - 833 846 
GADDRy Abs 985869 #FOBOD - 866 942 
GADDr- Abs 985941 #FOB55 - 895 4 


GADDrn Abs 386019 HFOBR3 934 891 896 918 925 
GET Ext - 1312 

=GETALR Abs 986786 HFOER2 - 1795 1802 

=GETDev Abs 986096 HFOBFO - 1036 375 


GETERR Ext - 434 
GETHS2 Ext - 1098 
GETID §=Ext - 768 
GETMBX Ext a 251 
GETST = Ext - 440 1105 


=GTYPE Abs 986260 HFOC94 - 1227 

GTYPE- Abs 986283 #FOCAB - 1232 1244 

GTYPEO Abs 986300 HFOCBC - 1241 1240 

GTYPE1 Abs 986310 HFOCC6 - 1245 1250 1262 
GTYPE2 Abs 986314 #FOCCA - 1249 1238 

GTYPE3 Abs 986326 #FOCD6 - 1254 1261 

GTYPE4 Abs 986334 #FOCDE - 1259 1252 

Get Abs 986386 HFODI2 - 1312 1184 

Geterr Abs 985321 HFO8E9 - 434 429 746 1103 
Getribx Abs 985207 #F0877 - 251 242 456 481 1124 
=HTOD Abs 986556 HFODBC - 1548 

HTOD1 Abs 986566 #FODC6 - 1556 1559 

HTOD2 «Abs 986577 HFODD1 - 1562 1557 

HTO0D3) «=Abs 986584 #FODD8 - 1564 1567 
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SHTODX Abs 986596 HFODE4 - 1600 
HTODX1 Abs 986609 HFODF1 - 1605 1608 1627 
HTODX2 Abs 986621 HFODFD - 1611 1606 
HTODX3 Abs 986633 HFOEO9 - 1621 1613 
HTODX4 Abs 986653 HFOEID - 1628 1622 
HTODXr Abs 986629 #FOEOS - 1617 1629 
=LISTEN Abs 986353 HFOCF1 - 1299 1349 
LOOPST Ext - 1038 1118 
Loop Ext - 386 652 
N-STRT Abs 986685 #FOE3D - 1673 1668 


aNTYL Abs 986392 HFODI8 - 1347 934 
=MTYLC Abs 986406 #FOD26 - 1351 
aNTYLL «Abs 986399 HFODIF - 1349 
NXTDGT Abs 986680 #FOE38 - 1671 1674 1681 
Null Ext - 383 639 
OVFLOW Abs 986714 #FOE5SA - 1686 1677 
PRASG1 Abs 986449 #FOD51 - 1435 1441 
=PRISGA Abs 986446 HFOD4E - 1434 
=PUTALR Abs 986834 HFOED2 - 1856 1866 
=PUTARL Abs 986810 HFOEBR - 1842 1852 


PUTC Ext - 1301 
PUTC+ Ext - 740 
PUTC=D Abs 986359 HFOCF7? - 1300 1392 
PUTD Ext - 1309 
=PUTDX Abs 986858 HFOEEA - 1904 1909 
PUTE Ext - 424 1231 


1183 1232 

1182 669 = 873 

1180 416 483 793 821 
Pute Abs 986362 HFOCFA 1301 1182 136 1352 1389 
=Putd Abs 986380 #FODOC 1309 1437 1848 1862 1904 
=RANGE Abs 986771 #FOE93 - 1755 1743 1751 

=RANGEA Abs 986755 HFOE83 - 1750 1737 

=RANGEN Abs 986765 HFOE8D - 1754 


=PUTGF Abs 986246 HFOC86 
=PUTGF+ Abs 986242 HFOC82 
=PUTGF- Abs 986238 HFOC7E 


READRG Ext - 906 
RESTRT Ext - 455 460 
sReadDI Abs 987018 HFOF8A - 2126 2132 
Rewind Ext - 936 

SEEKA Ext - $893 

SETLP = Ext - 357 
SFLAG? Ext - 499 


START Abs 985213 RFO87D - 363 

START! Abs 985327 HFOREF - 440 430 

STARTH Abs 985295 HFOSCF - 423 414 

=START+ Abs 985219 HFO883 - 359 

ESTART- Abs 985222 HFO886 - 363 

STARTO Abs 985336 HFOSFS - 442 

STRART1 Abs 985348 #FO904 - 450 449 
START2 Abs 985377? HFOS21 - 460 443 464 
START3 Abs 985453 #FOS96D - 487 401 451 457 
STRRTS Abs 985488 HFO990 - 502 420 486 
STARTS Abs 985312 HFO8EQ - 429 417 419 
STARTd Abs 985266 HFO8B2 - 397 382 385 388 
STARTn Abs 985270 #FOSB6 - 407 376 

STRRTp Abs 985424 #FO950 - 476 


Saturn Assenbler 
Ver. 3.39/Rev. 2306 


STARTS 
STARtE 
SWRPO1 
=TALK 
TSTAT 
TSTATA 
=UCRANG 
=ULYL 
=UNLPUT 
UNT 
=UTLEND 
Vol Lbl 
=YIML 
=YTMLL 
bPILAI 
eRBORT 
eBRDMD 
eNEWTA 
eNGFND 
eNORDY 
ePIL 
eRANGE 
eTAPE 
eUNEXP 
FLEXTD 
f1NZ4 
i/OFND 
mMADDRL 
nRDORM 
nADDRT 
MRUTOA 
nF IND1 
nF INDD 
nGETCA 
nINCCA 
nPULOP 
nRSTCA 
nSAI 
nSDA 
nTAKET 
HUNL 
nxTSTM 
p3DATA 
pACK 
pRDDR 
pDATA 
pEGT 
pETE 
pHALTD 
pIFC 
psTATE 
plERN 
puTYPE 
sCONTR 
=sF LAG? 


Rbs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Abs 
Rbs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 


985433 #FO959 - 
985319 #FO8E7 - 
986436 #FOD44 - 


986726 HFOEG6 
986346 HFOCER - 
986368 HFODOO - 


985185 #FO861 - 


986416 #FOD30 - 
986423 #FOD37 - 


10 eS ae. eb) ME Re a tt 


985481 HFO989 - 


4% 
431 
469 
1391 
880 
903 
1737 
1297 
1304 
243 
242 
844 
1386 
1388 
470 
997 
392 
888 
810 
1260 
393 
1628 
885 
835 
462 
452 
474 
1299 
1361 
1391 
467 
668 
867 
792 
820 
415 
739 
120 
905 
423 
1305 
233 
73 
150 
119 
104 
160 
154 
166 
172 
418 
128 
183 
1111 
499 


468 
472 


245 
807 
237 


1227 


1133 


811 


895 
1253 


1388 
476 


485 
1237 
1249 


828 


477 


732 


836 


671 


1251 
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795 
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1386 


875 
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sMANUL 
sReadd 
sUNCHF 
sflag? 


Ext 
Ext 
Ext 
Abs 985474 #FO982 


Table 


1099 
359 
448 
496 


413 
453 


442 
463 
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Input Paraneters 
Source file nane is NZ&GPR: = MS 
Listing file name 1s NZ/GPR:TI:ML::-1 
Object file name is NZZGPR: TI:MS::-1 


141111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler News 
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N N 222772 & BBBB A 53S 

N ON zZ 88 B 8B RA S$ § 

NN ON 2 8&8 B BAR A S 

NNN Z & BBBB A A SSS 

N NN 2 &&& B 8B ARRAA S 

N WN Z && B BARA AS § 

N WN Z7Z7Z7ZZ 8& & BBBB A A SSS 


BASIC ROUTINES <840116.1657> 
HFOF9A TIZHP6 address (fixed) 


TITLE 


FOO IR RIO TR IT TTI IIIT ITT II III I IIIT IT IK 
FOO UTI TO TOTO TTI TI TTI ITN 


ak 
ak 
ak 
ak 
xk 
ak 
aK 
ak 
ak 
ak 
ak 
ak 
xk 
xk 
ak 
ak 
ar 
xk 
aK 
xk 
ak 
ak 
xk 
ak 
ak 
ak 
ak 
xk 
ax 
ax 
an 
xx 
xk 


Narie: PRTIS - Poll handler for the PRINT statenent 
Narie: PRTIS+ - Poll handler for pPRICL (D1 @ address) 
Nane: PRTISc - Address device as listener (D1 @ addr) 
Category: POLL 
Purpose: 

Handle pPRTIS/pPRICL/... (address device as listener, 

ne as talker, load address of routine to send data) 
Entry: 

P=0, HEXMODE 

PRTIS+, PRTISc: 

D1 points to the 7 nib device assignnent 
FUNCD1 contains the value to return in D1 

Exit: 

Carry clear 

If XM=0, ALA] is the address of the PRINT handler 

If XM=1, Did NOT handle the poll 

PRTIS+,PRTICc: 01 restored from FUNCD1 
Calls: TSAVD1, CHKASN, TRESD1, START, ULYL,MTYL 
Uses....... 
Inclusive: A,8,C,0[15:13,5:0], DO,P, FUNCDO[2:0], FUNCD1 
Stk lvls: 4 (START) 
NOTE: Does not alter D1 or status bits 
History: 

Date Progranner Modification 
11/29/83 NZ Updated docunentation 
07/21/83 N2 Rerioved check for mass storage 
device (not correct as it is} 

06/23/83 NZ Changed call to CHKMSD to inline 


code (only reference to CHKNSD) 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
63 
70 
71 
v2 


73 


74 
75 
76 
77 
78 


79 
80 
Bf 
82 
83 
84 
85 
86 
87 
88 
89 
90 
31 
92 
33 
94 


95 
96 
37 
98 
93 
100 
104 
102 
103 
104 
405 
106 


FOFSA ACO 
FOFSD 6610 


FOFA1 8£00 
00 
FOFR? 1F0O 
000 
FOFRE ACO 
FOFB1 RAC 
FOFB4 15F6 
FOFB8 DR 
FOFBR 8E00 
00 
FOFCO 5F3 


FOFC3 96C 
FOFC6 03 


FOFC8 B24 
FOFCB 543 


FOFCE 7700 
FOFD2 5000 
0 


FOFD? 03 


FOFDS 0? 
FOFDB 137 
FOFDE 174 
FOFE1 133 
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Page 2 
KK 02/23/83 JH Added A[S] flag for MeTalk status 
Rk 02/17/83 NZ Rerioved multiple devices 
Kk 02/03/83 NZ Changed MeTalk fron 4 to 9 (START 
aK destroys ST4) 
KK 01/20/83 JH Added NeTalk status, send MTA 
Kk 12/15/82 NZ Updated docurientation 


ak 
JOO OOOO OTTO OTT TIT I 
SOI IIIT TO TT TTT ETT TI ITI ITI III 


SaveIt EQU 6 Need to save this one after start 

MeTalk EQU 9 Address ne as talker 

k 

=PRTISc A=0 S Entry for CLEAR, clear A[S] so My 
GOTO PRTISe Talk Adr is not sent out 

k 

=PRTIS GOSUBL =TSAVD1 Save D1 in FUNCD1 


Di=(5) =IS-PRT 


=PRTIS+ R=0 S Set status to address me to talk 
A=A-1 $ A[S]=F 
PRTISe C=DAT1 7 
A=C A Save low 3 nibs in A[A] 
GOSUBL =CHKASN 
GONC = PRTIS2 This is assigned...do it 


k 
* If carry, check if this is "NULL" or "LOOP" 
x 


AHO OB 
GOYES PRTIS1 If A[B}<>0, NOT "NULL"... exit 


* A[BJ=0...either "NULL" or "LOOP" 
* 


A=A+1 XS Check if “NULL" 
GONC =PRTIS2 If no carry, this 1s "LOOP" 


* This is "NULL" 
x 


GOSUB  PRTIS- Get ny address 
REL(5) =PREXT (Address of part 3 handler) 
x 
* Following 1s the part 283 handler for "NULL" (Doesn’t use 
* anything, just clears carry) 
x 
=PREXT RINCC 
x 
ke 
PRTIS- C=RSTK Pop ny address back 
CDIEX 
Di=b1+ 5 Skip the REL(5) 
ADIEX Leave address in A[R] 


x 
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107 * Carry 1s CLEAR fron the D1=D1+ 5 above... TRESD1 doesn’t 
108 * affect the carry 
109 * 

110 FOFE4 8COO Tresd1 GOLONG =TRESD1 Restore D1, return “handled" 
00 

111 ae 

112 a 

113 & 

114 : Not assigned or error...return, carry Clear, XM=1 

115 

116 FOFER 1B00 PRTISO DO=(5) =FUNCDO 
000 

117 FOFF1 146 C=DATO A 

118 FOFF4 OA ST=C Restore status bits fron FUNCDO 

119 FOFF6 7AEF PRTIS1 GOSUB Tresdi Restore D1 from FUNCD1 

120 FOFFR 21 P= 1 

121 FOFFC OD P=P~1 Clear carry, P=0 

122 FOFFE 00 RTINSXM Return, not handled 

123 x. 

124 he 

125 F1000 1B00 PRTIS2 D0=(5) =FUNCDO Save status bits in FUNCDO 
000 

126 F1007 OB CSTEX 

127 F1009 15€2 DATO=C 3 

128 F100D OB CSTEX 

129 FIOOF 846 ST=0 = Savelt Initially say don’t save it 

13% F1012 859 ST=1— MeTalk Set up MeTalk status bit... 

131 F1015 B44 R=A+41  § ...MeTalk = 1 af A[S]=F 

132 F1018 450 GOC PRTIS, ...MeTalk = 0 if A[S]=0 

133 F101B 849 ST=O0 = MeTalk 

134 FIO1E D7? = =PRTIS, D=C A Put device specifier in D[A] 

135 F1020 94A 7t=0 «=§ Did CHKASN say to find it? 

136 F1023 50 GOYES PRTIS" No...don’t need to save it 

137 F1025 856 ST=1— Savelt Yes...need to save address 

138 F1028 7000 PRTIS" GOSUB =START Set up the device 

139 F102C 4DB GOC PRTISO Error...can’t handle the poll 

140 x 

141 * Now address listener, make me talker (conditionally) 

142 x 

143 F102F 968 7-0 —=B Is this "LOOP"? 

144 F1032 61 GOYES PRTSO1 Yes...don’t change addressing 

145 F1034 879 ?ST=1 MeTalk ; Should I be addressed as talker? 

146 F1037 AO GOYES PRTIS@ Yes...set it up 

147 F1039 7000 GOSUB =ULYL No...send UNL, LAD n 

148 F103D 6700 GOTO  PRTSOO (Check errors at PRTSOO) 

149 Re 

150 he. 

151 F1041 7616 PRTIS@ GOSUB Ntyl Address device as listener 

152 F1045 448 PRTSOO GOL PRTISO HPIL error...don’t handle it 

153 F1048 866 PRTISO1 ?ST=0 Savelt Do I need to write 1t out? 

154 F104B CO GOYES PRTIS4 No...continue 

155 F104D ABB C=D x Yes...copy address fron D[X] 

156 F1050 1502 DAT1=C 3 Write out the device address @ D1 

157 - 


158 * Following staterrent is a NOP...can be renoved to save 3 nibs 
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159 
160 
161 
162 


163 
164 
165 
166 
16? 
168 
169 
170 


171 
172 
173 
174 
175 
176 
177 
178 
173 
180 
181 
182 
183 
184 
185 
186 
18? 
188 
189 
1% 
191 
192 
193 
194 
195 
196 
197 
198 
199 


9, 
Ga 


201 
ede 
203 
204 
205 
206 
207 
208 
209 
210 


F1054 520 
F1057 1800 
000 
FIOSE 146 
F1061 OR 
F1063 7D7F 


F1067 7000 
FI06B 07 
F106D DA 
FIOGF 3444 
000 
F1076 CA 
F1078 03 


FIO?7A [1300 
0 
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* (It is a relic from old code) 
GONC PRTIS4 Go always 
PRTIS4 DO=(5) =FUNCDO 
C=DATO A 
ST=C Restore caller’s STatus bits 
GOSUB Tresd1 Restore caller’s D1 
i 
GOSUB PRTISS Get ny current address... 
PRTISS C=RSTK ...pop it off... 
A=C A ...Hove it to A[A]... 
LC(S) (PRASCI)-(PRTISS) ...0ffset of part 2 routine 
A=A+C A (Address of part 2 routine in A) 
RINCC Done, handled 
JIC IOC IIIT OTE IE TT TTR 
JU IOI IO ISG IT ICO TO I III TTI 
tk 
** Name: PRASCI - Send ASCII characters to the loop 
ik 
%* Category:  PILI/O 
xx 
** Purpose: 
xs Send the ASCII characters to the loop (already set up) 
re 
ex EAtry: 
= MBOX* points to the desired mailbox 
ax A[RA] contains the length of the string in bytes 
ak D[A} 1s the start address of the string 
ik 
SAVERIT: 
a If loop error, jumps to ERRORX 
xx P=0 
x D1 positioned following last character sent 
be 
** Calls: GETMBX, WRITIT, TSAVDO, TRESDO, <ERRORK> 
tok 
A® USCS. 244 a 
** Inclusive: A[A],C,01,P,FUNCDO, ST[8, 3:0] 
te 
** Stk lvls: 3 (pushed DO;WRITIT) (pushed 00; TRESDO) 
ae 
2 History: 
xX 
ee Date Progranner Modification 
£2), eoGueegie ehaceceeet’ Wei heaeee Mei aoe cae ee eee seeas 
ae APS / Be NZ Updated docunentation 
kK 01/27/83 NZ Modified entry, exit save nethod, 
a added exit condition on 01 
aR 
JOOS IEG ISIC SIGIR SIGUE GISISISIIEI SIE CISIIOGT OK 
JOIST IIIS ISIC GIS GIGI III I TK 


REL(5) =PREND Address of the final part 
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211 
212 
213 
214 
215 


216 
217 
218 
219 
220 
221 
222 
223 


224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
267 
258 
259 
260 
261 
262 
263 


FIO7F 
F1081 
F1084 
F1088 
F108R 


F1090 
F1092 


F1095 
F1098 


F1IOSE 
FIOAI 
F10R5 
F10A7 
FIOAR 
FIOAC 


FIORE 
F10B1 


F10B3 


09 
136 
7116 
06 
8E00 
O 
DB 
435 


840 
8£00 


4FO 
7RF5 
07 
136 
OR 
01 


8% 
OF 


6155 
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=PRASCI C=ST 

CDOEX ST into DO, DO value into C{A] 

GOSUB Tsavd0 Save status in FUNCDO 

RSTK=C Save DO on RSTK 

GOSUBL =GETNBX Get the nailbox address 

C=0 A 

b1=C Set D1 to the start of the buffer 


x 


* Nou D1-->buffer, ALR] 1s length in bytes, DO-->nailbox 
* Loop is addressed (Talker and Listener(s)) 
k 


ST=0 =Loop0k Do not abort with one ATIN hit 
GOSUBL =WRITIT Transfer the data to the loop 
GOC PRASER Error if carry set 

PRASEX GOSUB TresdO Get status back to DO 
C=RSTK Get old DO from RSTK 
CDOEX Now DO restored, ST in C{X] 
ST=C Restore the status bits 
RTN 

k. 

ke 

PRASER ?P= 0 Is this just an interrupt? 
GOYES PRASEX Yes...continue 


* 
: No need to pop RSTK...juriping directly to BSERR 


GOTO = Errorx Error... jump to ERRORX --> BSERR 
SIRI IITA III RI TIS IR IA III IIIS SIS III IIISTISISII IIIS IIIS SSSI IIIS ISA 


FOO II ITT TTT IT TTT IIK 
ax 


** Nane: PREND - Clean up the loop after PRINT/OUTPUT 
ka 

** Category: LOCAL 

x 

** Purpose: 

xx Clean up the loop after a PRINT/OUTPUT sequence 
kx 

** Entry: 

wk Device(s) are addressed as listener(s) 
am MBOX* points to the mailbox used 

ak 

Te EME 

a DO points to the nailbox used 

ae Carry clear (P may be non-zero) 

kk 

** Calls: D1=SRO, SAVEIT, UTLEND 

kk 

A® Usess.c cca 

*k Inclusive: A,B,C,D,R2,R3,D0,01,P,ST[3:0] 
kk 

** Stk lvls: 4 (UTLEND)(SAVEIT) 

i 


** History: 
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264 
265 
266 
267 
268 
269 
270 
271 
e72 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 


294 
295 
296 
297 
298 
239 
300 
1 
He 
03 
H4 
5 
Ho 
HX? 
WS 
HY 
310 
311 
MMe 
313 
314 
315 
316 
31? 


F1087 


F10B? 
F10BB 
FIOBE 
F10C2 
F10C6 
F10C9 
FIOCC 


FIOCE 
F10D1 
F10D3 
F10D6 
F1ODA 


F10DA 
F1OEO 


7ccs 
14F 
80D0 
1D00 
14F 
96A 
41 


880 


AF2 
7785 


8E00 
03 
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wk 
xk Date Progranner Modification 
WE DactetWe,.’ ese ieies whisteeasexdstoowl2 cee pea es 2 
ek 11/29/83 NZ Updated docunentation 
Kk 42/15/82 NZ Added docunentation 
ka 


FOO IOI OI TIO IO OTTO 
FOI ITI III ITO II ITO I TI TTT TTI 


=PREND 
x 


* If device code equals OUTPTt, then need to deallocate the 
* buffer! 
k 


GOSUB D1=SRO Device code 
C=DAT1 B Read in 1 nib 
P=C 0 Copy device code to P 
01=(2) (=STMTR1)+2 Point to device spec 
C=DAT1 8B 
7C=0 8=6«—B NULL or LOOP? 
: GOYES PRENDE Yes...exit cleanly 
?P#H =QUTPTt 
GOYES PREND1 
C=0 Wd 
GOSUB Saveit (Thais will deallocate the buffer) 
PREND1 
x 


* Unaddress all talkers and listeners 
x 
GOSUBL =UTLEND 


PRENDE RTNCC Exit with carry clear 
JO ITI TI II TTT III TOIT TAT ISD ITD ISI II OTITIS ISI ITI IIIT ATI IIA 


FOO ICO CII OOOO IOI III II 
xx 


&* Nane: OUTPUT - Execute the OUTPUT statenent 
xx 


* Category:  STEXEC 

ak 

** Purpose: 

as Send output to the specified device(s) 

ak 

* Entry: 

Ae 0© at tokenized device specifier 

KK 

AX Exit: 

a Through nainfrane PRINT* 

aX 

** Calls: GETDID, SAVEIT, TRESDO, <PRINT*>, <ERRORX> 

at 

A* Uses....... 

+* Inclusive: A,B,C,D,RO-R4,D0,D1,P,FUNCxx, STNTD1[3:0], STNTRI, 
x ST[11:0], all RAM that EXPEXC 1s permitted to use 


aK 


** Stk lvis: 7? (GETDID) 


Saturn Assenbler BASIC ROUTINES <840116.1657> Tue Jan 17, 1984 11:42 an 


Ver. 3.39/Rev. 206 Page 7 
318 a 
319 *% History: 
320 aK 
321 ah Date Progranner Modification 
322 $4 woeeeces WACeeeezees: aot Se a ee 
323 aR 11/29/83 NZ Updated docunentation 
324 ak 03/15/83 NZ Replaced GETMUL with GETDID 
325 ek 12/15/82 N2 Wrote code and docunentation 
326 ak 
327 IIIA III ISI ISI II IIIS III SSIS SSIS SS III III I SI SII IIS ISI IASI SIS SII AA 
328 FRI TI ITT SO TTT TOSI II IIS TT III III IOS I III III IIIA 
329 FIOE2 0000 REL(5) =OUTPd OUTPUT deconpile 
) 
330 FI0E7 0000 REL(S) =OUTPp OUTPUT parse 
0 
331 FIOEC 8EOO =OUTPUT GOSUBL =GETDID Get device specifier 
0 
332 FIOF2 414 GOoc OUTPer Error with device or loop 
333 FIOFS 1FOO D1=(5) (=STMTR1)+2 (This is where I save the 7 nibs) 
000 
334 FIOFC AFO A=0 W Clear position, length 
335 FIOFF 159A DAT1=A 11 (STMTR1)+9 is position, width 
336 F1103 7A55 GOSUB Saveit Save the source @ D1 
337 F1107 7495 GOSUB Tresdd Restore the PC (saved by GETDID) 
338 F110B 1F0O D1=(5) =EOLLEN Point to EOL length, EOL string 
000 
339 Fi112 15F6 C=DAT1 7 Read EOLLEN, EOL string 
340 F1116 1EW D1=(4) (=STNTRO)+11 Position to CKINFO location 
00 
341 F111C 1506 DATI=C 7? Write it out EOL info out 
We F1120 1C8 01=D1- 12 Position to MLFFLG 
343 RAI KK 
344 a 
345 : LC(2) (=QUTPTt)*16+HF Set MLFFLG="F", type=OUTPTt 
346 F1123 31F NIBHEX 31F 
347 F1126 9 CON(1) =QUTPTt 
348 - 
349 JI 
350 F1127 14D DATI=C B Write the info out to NLFFLG 
351 & 
352 * Now have written the info needed for the MPRICL handler to 
353 * do its job 
354 x 
355 F112R 161 DO=D0+ 2 Skip the t@ used to stop GETDID 
356 F112D 8D00 GOVLNG =PRINT* Now continue with PRINT handler 
000 
357 ao 
358 x 
359 F1134 6004 OUTPer GOTO  Errorx 
360 JO II IIIT IIIT IT III IIT TIS ITI III ITI III SII STATA I 
361 III II ITI III TIT ITI IIIT IAT ISI II III IIIS TI IIS III SII IIIA ITI 
362 a 
363 xx Narie: PRNTIS - Reassign HPIL PRINT device 
364 xk Narie: DISPIS - Reassign HPIL DISPLAY device 


365 a 
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366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 F1138 0000 
0 

407 F113D 0000 
0 

408 F1l4e 

409 F1142 3400 
000 

410 

411 

412 

413 

414 

415 F1149 512 

416 

417 
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*k Category:  STEXEC 
ah 
x* Purpose: 
AX PRNTIS executes the PRINTER IS statenent, and DISPIS 
8 executes the DISPLAY IS statenent. 
a 
*k Entry: 
ak DO points to the device specifier 
ah 
ee ERD ts 
ak Exits through ENDST if no error, ERRORX if error 
as 
*k Calls: DI=DST, SAVEDO, GETDID, RESTDO, SWAPO1, SAVEIT, 
ak D1i=DSX, PILCNF, <ENDST>, <ERRORX > 
kh 
RUSE Sic 404s 
xk Inclusive: A,B,C,D,RO-R4,D0,01,P,FUNCxx, STINTDO, STNTD1, 
‘ ST{11:0],all RAM that EXPEXC is permitted to use 
kk 
** Stk lvls: 7 (GETDID) 
ek 
** History: 
ke 
xk Date Prograriner Modification 
PAO Witicec een mae eae « esteem he ces y eee et eI 
xk 01/06/84 NZ Changed order of DISPIS to set up 
aS to search AFTER calling GETDID 
KK 41/29/83 NZ Updated docunentation and added 
ax PRNTOO as an external entry point 
KK 05/17/83 NZ Corrected nod of 5/4/83 to error 
x3 for bad device spec 
ak 05/04/83 NZ Modified return fron GETDID to 
a natch new exit conditions of sane 
ak 03/18/83 NZ Used STNTDO instead of STNID1 to 
ak save address through GETDID 
ae 02/18/83 NZ Added call to PILCNF for DISPIS 
aK 12/15/82 NZ Updated docunentation 
ih 


FORO ROCIO IOI IIIT ITI I IIIT III IO 
III OO TO IO OI TTI IO 


REL(S) =PRNTSd "PRINTER IS" DECOMPILE 

REL(5) =PRNTSp "PRINTER IS" PARSE 
=DISPIS 

LC(5) =IS-DSP 


Following statenent is a "Go aluays" because the LEX table 
entry for DISPIS 1s earlier in nenory than DISPIS, hence 
the calculation of the execution address leaves carry clear 


* + ee 


GONC =PRNTOO Go aluays 


ee 
4 
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418 F114C 15D0 DISPI+ DATI=C 1 Write out the bits 


419 F1150 8£00 
00 

420 F1156 6964 

421 

422 

423 F115A 0000 
0 

424 F1IISF 0000 
0 

425 F1164 3400 
000 

426 F116B 136 

427 FI16E 8E00 
00 

428 F1174 136 

429 F117? 8£00 
0 

430 

431 

432 

433 F117D 8&00 


00 
434 F1183 8E00 
00 
435 
436 
437 
438 F1189 551 
439 
440 
441 
442 F118C 8AF 
443 FI18F AS 
444 F1191 880 
445 F1194 55 
446 
447 
448 
449 F1196 AF2 
450 F1199 A7E 
451 F1i19C AC? 
452 FII9F 7EB4 
453 
454 
455 
456 FIIA3 133 
457 F1i1A6 3400 
000 
458 FIIAD 8A6 
459 F11BO 6A 
460 F11B2 8£00 
0 
461 F11B8 D2 
462 FIIBR 145 


GOSUBL =PILCNF 
PRNTSO GOTO Endst 
ke 


ke 
REL(S) =PRNTSd 
REL(5) =PRNTSp 
=PRNTIS LC(5) =IS-PRT 


=PRNTOO CDOEX 
GOSUBL =SAVEDO 


CDOEX 
GOSUBL =GETDID 


x 


Set up DSPCNX if needed 


Clean up, goto next statenent 


"PRINTER IS" deconpile 
"PRINTER IS" parse 


Save PC in C[A},put address in DO 
Save location in STHTDO 


Restore PC fron C[A} 
Get device specifier 


* Following two routines do not change carry 
k 


GOSUBL =RESTDO 
GOSUBL =SWAPO1 


x 


Nou DO @ intended location 


Suap DO, D1 


* Now D1 is at the destination 
x 


GONC PRNT45 


No error...save it in RAN 


x 
* Check for *, "" (Address=0, carry set) 
* 


*DHO OR 
GOYES PRNTER 
°PH =eDSPEC 


GOYES PRNTER 
x 


* Device is "*"...undo it 
x 


C=0 W 
C=C-1 W 
C=0 $ 


PRNT45 GOSUB Saveit 
x 


* Check if this is DISPLAY IS 
x 


ADIEX 
LC(5) =IS-DSP 
RHC OR 

GOYES PRNT50 
GOSUBL =D1=DSx 


C=0 A 
DAT1=C A 


Not a valid device spec 
Is it Me x, or NKND 
No...error 


Indicate "fits" in 7 nibs 
Save source @ D1 


Is it DISPLAY? 
No...exit 
Yes...point to DSPCHX (address) 


Clear DISCHX for case of "*" 
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463 FIIBD 8&00 
00 

464 F11C3 307 

465 F11C6 658F 

466 

467 

468 FIICA 0 

469 F11CB 

470 

471 

472 

473 

474 

475 

476 

47? 

478 

479 

480 

431 

482 

483 

484 

485 

486 

48? 

438 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

§03 

504 FIICB 0000 
0 

505 F11D0 6000 
0 

506 F110S 8—00 
00 

507 F11DB 7E00 

508 FIIDF 490 

509 FIIE2 632 

510 

511 

512 FIIE6 0 

S13 FTE? 


ak 
ak 
ak 
ak 
ax 
ak 
ak 
xx 
ax 
ak 
xx 
ak 
ax 
ak 
aK 
ak 
ak 
ak 
ak 
ak 
aK 
xa 
xs 
aK 
ak 
ak 
xx 
aK 
aa 
an 
ak 
ax 
ax 
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GOSUBL =D1=DST Point to DSPSET 
LC(1) 7 Printr,Wallby, Loop0K=1; DispOK=0 
GOTO DISPI+ Go aluays (reset DSPCHX, clean up) 
CON(1) =FIXSPC 1 nibble available here 
BSS 1-1 
FOTO TOI ITT I TOT TOE 
SIS III II TIT III OTIS III IIT ITI IIIS SOI II SOR IIT ITI ISI III IIIT IA 
Narte: PACKD - Pack the directory of a mass storage dev 
Category: STEXEC 
Purpose: 
Pack a mass storage device directory 
Entry: 
DO points to the device specifier 
Exit: 
Through NXTSTM or ERRORX 
Calls: PDIR, ENDTAP, <NXTSTM>, <ERRORK> 
Uses....... 
Inclusive: All CPU registers, all RAM EXPEXC 1s permitted 
to use, STMTD0[3:0], STMTR1 
Stk lvls: 7? (PDIR) 
History: 
Date Progranter Modification 
12/21/83 NZ Moved call to GETDID to PACKD to 
fix a stack level problen (PDIR) 
11/29/83 NZ Updated docunentation 
FOI OI IOI IIOI TOI I OTT TTT TK 


JI III III AT TI IT IID TTD III II IIIA ISI IIIB RIS ITIISISI SII III IIA 
REL(S) =PACKd PACK deconpile 
REL(5) =PACKp PACK parse 

=PACKD GOSUBL =GETDID Get the device specifer 
GOSUB PDIR Pack the directory 
COC PRNTER Error during pack 
GOTO PRCK9O ENDTAP, NXTSTN 

x. 

ke 
CON(1) =FIXSPC 3 nibbles available here 
BSS oat 


Saturn Assenbler BASIC ROUTINES <840116.1657> Tue Jan 17, 1984 11:42 an 


Ver. 3.39/Rev. 236 Page 11 
514 a. 
515 x. 
516 t 
517 * Error detected 
518 x 
519 F1I1E9 6814 PRNTER GOTO  Errorx If error, don’t change IS-xxx 
520 JU III IOC TORII REIT TIT IISA II SII DS 
521 JOIST III TTI TT OTT T IOI ISIS IS IAS SSS IA 
522 ax 
523 aA Nane: PDIR - Pack a directory (assenbly language call) 
524 
525 *k Category: LOCAL 
526 a 
527 *k Purpose: 
528 e* Pack a mass storage device directory 
529 ak 
5H tk Entry: 
531 A Exit conditions fron GETDID 
532 kk 
533 ak Exit: 
534 an Carry clear: (successful pack) 
535 x P=0 
536 ak DO points to the HPIL nailbox 
537 ah D[X] is the address of the nass storage device 
538 aK RO is the information returned in Blt fron GDIRST 
539 ak R1 is the infornation returned in D[W] fron GDIRST 
540 es Carry set: (error occurred) 
541 ak P,C[O] are the error code 
542 - 
543 *k Calls: CHKMAS , GDIRST, GETDR" ,CSRC4, NXTENT,CSRC5,CSLC5, 
544 am PDIRBF ,CSLC4, PBF->C, GETOR+, F->SCR,CSLC3, 
545 ax PBF ->C: SEEKA, DDT, ULYL, DDL, TSTAT, <DDT> 
546 RR ee 
547 aX PDIRBF: MTYL, DDL, CSLC4, PUTD, <PUTDR"> 
548 ak 
549 RE USCS. oso. 
550 tk Inclusive: A-D,RO-R4,00,01,P,S1T[11:0] 
551 ae 
552 tk Stk lvls: 4 (GDIRST) 
553 an 
554 *x PDIR: Set up the loop (START) 
555 am Check for mass storage device 
556 ae Get directory information (GDIRST) 
557 A (PTRC 1s current directory entry) 
558 a (PTRC is B[3:0]) 
559 a (PTRD is where next non-purged directory entry goes) 
560 ae (PTRD is B[15:12]) 
561 ie 1:Seek correct record & read directory entry 
562 ak 2:IF (physical end of directory) THEN GOTO 8..: 
563 % IF (logical end of directory) THEN GOTO 8: 
564 ax Increnent PTRC 
565 ax IF (PTRC crossed record boundary) THEN 
566 aK Decrenent record count (0[8:5]) 
567 ax IF (entry 1s purged) THEN GOTO 3: 


568 x Write entry at PTRD (Buffer 1) 
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569 
570 
571 
572 
573 
574 
575 
576 
57? 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
539 
590 
591 
592 
593 


594 
595 
596 
597 
598 


599 
600 
601 
602 
603 
604 


605 
606 
607 
608 
609 
610 
611 
ete 
613 
614 
615 
616 
617 
618 
619 
620 


FI1ED 
F11FO 


FIIF6 
FIIFS 
FI1FB 
FIIFE 
F1201 


F1207 
F120A 
F1200 
F1210 
Fi213 
F1216 


FI2ic 
FI2tF 
Fi2ee 


FI2é24 
Fi2e 

Flee 

FI22E 
F1230 
F1233 
F1235 
FI238 
Fi23B 


400 
8EOO 
00 
4W 
23 
304 
A8? 
8E00 
00 
400 
AF9 
108 
AFB 
1909 
8E00 
00 
400 
90D 
31 
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a Increnent PTRD 
ae IF (PTRD not at start of record) THEN GOTO 3: 
te Write out buffer 1 contents to tape 
xx GOTO 1: 
ae we 
xx 3:Read directory entry 
x GOTO 2: 
te a 
Ay 8:Write out EOD narker (if not at physical E0D) 
ax 9: RETURN 
or 
** History: 
fk 
ak Date Progratiner Modification 
i) -Gascoeean Nisa. pases one et Cees ees 
xk 12/21/83 NZ Renioved call to GETDID to fix a 
** bug (stack levels) 
tk 06/25/83 NZ Added mass storage check in PDIR 
&k 01/06/83 NZ Rewrote algorithn, documented it 
ek 12/15/82 NZ Updated docunentation 
oe 


JORIS III IOI IGOR IORI I IK 
FORGO TOI OIC TOI IOI IK 


=PDIR RIN 
GOSUBL =CHKMAS 


RTNC 
= 3 
LC(1) 4 
D=C P 
GOSUBL =GDIRST 
RTNC 
C=B W 
RO=C 
C=0 W 
R1=C 
PDIR1O GOSUBL =GETDR" 
RTNC 


PDIR2O ?BHO OP 


GOYES PDIR22 
x 


* New record...check for end 
k 


PhyEOD EQU 0 


ST=1— PhyEOD 
C=0 W 
GOSUB Csrc4 
CSR A 

7[=0 =A 


GOYES PDIR9O 
PDIR22 ST=0 PhyEOD 

Dt=D1+ 4 

C=DRT1 4 


Error with device specifier 
Check for mass storage 


Not nass storage...error 
This 1s Ace ID=16 (for MOVEFL) 


Get the directory start info 


Save B[W] in RO for PACK 


Save D[W] an R1 for PACK 
Get the entry fron B[3:0] 


Error 
New record? 
No...continue 


of directory 


Physical End Of Directory 


Now ({3:0] 1s count, C[4}=0 
Is the record count zero’ 
Yes...physical E00 

No...not physical E0D. 

Move to TYPE 

Read in file type 
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621 
622 
623 
624 
625 
626 
627 
628 
629 


630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 


653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 


671 
672 


F123F 
F124) 
F1243 
F1246 
F1248 
F124A 


F1250 
F1252 


F1255 
F1258 
F125C 
F125E 
F1262 
F1265 
F1267 
F1269 
F126C 


F126E 
F1272 
F1I275 
F1278 
FI27C 
FI27E 


F1284 
F1288 
F128B 


F128E 
F129 
F1294 
F129? 


F129B 
F129D 
F12R0 


F12R6 
F12R9 


E6 
F2 
8AA 
76 
DD 
8£00 


0D 
521 


AFF 
7614 
CE 
7114 
AFF 
F6 
CE 
8AA 
F2 


7190 


AFS 
7AF 3 
te) 

8E00 


(SF 3 


AFD 
5FO 


F6 
7240 


6E7F 


814 
800 


400 
657F 


BASIC 


x 
* Check 
x 
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for end of directory (FFFF) 
C=C+1 A 
CSL A Now C{4:1] 1s typett, C[0]=0 
7c=0 OA Ts this logical EOD? 
GOYES PDIR9O Yes...done 
BCEX A No 
GOSUBL =NXTENT Increnent directory pointer 
BCEX A (Carry if new record) 
GONC  PDIR24 Not new record...continue 


* New record...need to decrerent record count in D[8:5] 
& 


PDIR24 


x 


CDEX WwW 

GOSUB Csrc5 

C=C-1 A C[3:0] is always >0...use C{A] 
GOSUB Cslc5 

CDEX wW Replace the count, restore C{A] 
CSR A Type + 1 in C[3:0], C[4]=0 
C=C-1 A Type in C{A} 

C=O) =A Is this a purged entry? 

GOYES PDIR3 Yes...read next entry @ PTRC 


* Non-purged entry...put directory entry into buffer 1 of tape 
x 


x 


GOSUB PDIRBF Write (SCRICH) to B[12]th entry 
RTNC 

C=B W 

GOSUB Cslc4 Get the address of buffer 1 

B=C A Save pointer in B[A] for now 
GOSUBL =NXTENT 

GOSUB Csrc4 Rotate back to C[15:12] 

BCEX WwW Now C[A] 1s entry, B is restored 
GONC PDIR3O Not a new record...continue 


* This is a new record...urite buffer 1 @ recprd C[3:1] 
k 


Wrote 


OF Me 


PDIR30 


CSR A Record # in C[X] now 

GOSUB PBF->C Write buffer 1 to @C([X] 

RTNC Error 

GOTO PDIRIO No error...go reread the record 


anew entry into buffer 1, but didn’t fill buffer 1 


A=B A 

ASRC A[S] is byte pointer div 32 
GOSUBL =GETDR+ Get next directory entry 
RTNC Error 


GOTO  PDIR2O No error...process the entry 
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673 
674 
675 
676 
677 
678 
673 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 


691 
692 
693 
694 
695 
636 
697 
698 
699 
700 
701 
02 
203 


704 
705 
206 
20? 
208 
109 
710 
11 
te 
713 


714 
715 
71b 
a? 
718 
719 
720 
721 
?22 
723 
2724 


F12AD 
F12B0 
F12B2 
F12B5 
F12B9 
F12BB 
F12BD 
F12C0 
F12C2 


F12c2 


F12C8 
F12CC 
FI2CF 
Fi2d2 


F12D6 
F12D8 
F12DB 


F12E1 
F12E4 
F12E6 
F1I2EA 
FI2EE 
F12FO 
F12F4 
FI2F8 
F12FB 
F12FD 


F1303 
F130? 
F1i30A 
F130C 
F1310 
F1343 
F1316 
Fi31A 
F134C 


xe 
xe 
x 


* Reached end 
k 


860 PDIRSO 

21 

AFS 

7083 

£9 

F2 

8AA 

FO 
PDIR92 
x 


x itrite 
8E00 


7730 
400 
AFS 


7000 
* 


PDIR95 
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Tue Jan 17, 1984 


of directory...check whether physical or logical 


?S8T=0 PhyEOD Physical EOD? 

GOYES PDIRS2 No...continue 

C=B W Yes...check if room for a new EOD 
GOSUB Cslc4 Get PIRD into C[3:0] 

C=C-B A Now C{3:0] is PTRC-PTRD 

CSL A Now C{A]=0 iff PTRC=PTRD 

*c=0 =A Is there space for an EOD mark? 
GOYES PDIR95 No...exit 


an end-of-directory mark in buffer 1 
GOSUBL =F->SCR Put "FFF"s in SCRICH[63:0] 


GOSUB PDIRBF Put SCRTICH @ PTRD 


RTNC Error 
C=8 W 
GOSUB =CSLC3 C{X] is PTRD record # nou 


* Fall into PBF->C 
x 


* PBF->C writes the record in buffer 1 at the record nurber 
* in C[X] on the nass storage device 
x 


D0 
ABA 
8E00 
00 
400 
20 
7310 
7000 
20 
7973 
7053 
400 
20 DdtXgl 
BCO0 Ddt 

0 


PBF->C 


Re 
ae 


7453 PDIRBF 
400 

20 

7053 

400 

AFS 

7053 

F2 

C6 


R=0 A 
A=C x 
GOSUBL =SEEKA Go to that record 
RTNC 
P= =KchgT Exchange buffers (talker) 
GOSUB Ddt 
GOSUB =ULYL Rddress tape as listener 
P= =CloseR Close record (write buffer 0 out) 
GOSUB Ddl 
GOSUB Tstat Check tape status 
RTNC 
P= =KchgT Exchange buffers back (talker) 
GOLONG =DDT Exit through DDT 
GOSUB Ntyl Address device as listener 
RTNC Error 
= =SetBP Set byte pointer 
GOSUB Ddl 
RTNC Error 
C=8 W 
GOSUB Csic4 
est A 
C=C+C A C[B] 1s the byte pointer value 
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725 FI31E 7000 

726 F1322 400 

727 F1325 20 

728 F1327 8000 
00 

729 

730 

731 

732 

733 

734 F132D 8E00 
00 

735 F1333 76BE 

736 F1337 6210 

737 

738 

739 F133B 0 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

75? 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 
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GOSUB =Putd 
RTNC 
P= =Writel Write to buffer 1 of the device 
GOLONG =PUTDR" Put out the directory entry. 


we 
ae 
x 


* Bug fix for pack (too many RSTK levels) 
k 
PACKfx GOSUBL =GETDIB 


GOSUB PDIR 


GOTO PACKOO 
ke 


CON(1) =FIXSPC 1 nibble available here 
JI IO IO TIT ITTIT OT IID SIDI I IIIS II III ASOD II III TA 


JS III III IATA STAT IIR TI ITI II II III IIS III ISIS S II ISIS II ISIAH 
wh 

** Name: PACK - Pack an HPIL mass storage device 

ah 

** Category: STEXEC 

wh 


** Purpose: 


ak Pack an HPIL mass storage device 

ah 

xk Entry: 

xe DO @ device spec 

ak P=0 

kk 

REEXA TS 

aK Through NXTSTM... 

xk 

kk Calls: PDIR, GETDR" , GT2BYT, GETZER, ASRC4, CSLC5,CSLC2, 
ER PT2BYT, PUTDRH, TSTAT, NOVEFL,NXTEN+,NXTEN-,GETDIR, 
ak ENDTAP, ASLC4, CSRC5, <NXTSTM>, <ERRORX > 

ks 

Kk Uses....... 

xk Inclusive: All CPU registers, STMTDO[3:0],STMTR1,FUNCxx, 
aK all RAM that EXPEXC 1s pernitted to use 

ka 

xk Stk lvls: 7 (PDIR) 

aA 

** Algorithn: 

a GOSUB GETDID 

ay GOSUB PDIR 

ak Recall directory info fron RO,R1 

ae Read and get directory entry 

ae IF end of directory THEN GOTO 3: 

ae 2:IF file data area pointer <> PTRF THEN 

a Copy file down, update directory 

ae Update file destination, read next entry 

a GOTO 2: 


me Get next directory entry 
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778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
794 
792 


793 


794 
795 
796 
79? 
798 
799 
800 
801 
802 


803 
804 
805 
806 
807 
808 
803 
810 
811 
812 
813 
814 
815 
816 
817 
818 
813 
820 

of 
822 
823 
824 
825 
826 
827 
828 
829 


F133C 0000 
0 
F1341 0000 
0 
F1346 66EF 
FI3AR 493 
F134D 118 
F1350 AFS 


F1353 8E00 
00 
F1359 4R2 


F135C 173 
F1I35F 7F9 
F1363 £6 
F1365 Fe 
F136? 8AE 
F136A 60 
F136C 6970 


F1370 


F1370 7F 70 
F1374 4FO 


F137? AF4 
F137R 7000 
FI37E 05 
F1380 7F 60 
F1384 4F4 
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aE IF NOT end of directory THEN GOTO 2: 
a S:(end of directory) 
a Exit 
ak 
*k History 
ak 
xk Date Progranner Modification 
RA: Greco yee Ses ees Sessa ee 
Rk 12/21/83 NZ Changed call to PDIR to add a call 
aK to GETDID (RSTK level bug) 
ke 01/10/83 NZ Rewrote routine and docurentation 


xk 
FOI JOU OTTO TT IIIT II IIIA TID III 
FOI IIR TIO TO TTT TTT TTT EIT TIT TIT RTI ITI 


REL(5) =PACKd 
REL(5) =PACKp 


=PACK GOTO PACKFx Pack the directory first 
PACKOO §=GOC PACKeR (error during directory pack) 
C=RO Recall info fron GDIRST 
B=C W 


x 


* Now B,RO[3:0] is PTRC...pointer to directory entry, 


x B,RO[7:4] is PTRF...pointer to data area 
x 


PACK1O = GOSUBL =GETDR" Get that directory entry 
PACK20 GOC PACKeR Error! 
x 
* Check for logical end of directory 
k 
Di=D1+ 4 Skip to type... 
GOSUB Gt2byt Read 2 bytes... 
C=C+1 A ...add 1 (if EQD, x0000) 
CSL A If EOD, 00000! 
CHO) OA EOD? 
GOYES PACK30 No. ..continue 
GOTO PACK® Yes...done with the tape 
x 
ke 
PACK 
x 
* Now D1 is positioned at the directory start address 
k 
GOSUB GETZER Read 2 bytes of zero, 2 of start 
COC PACKeR Error...out of range 


x 
* Nou C[3:0] 1s the last 2 bytes of start 
k 


A=B W 

GOSUB =ASRC4 Now PTRF in A[3:0], A[4]=0 

B=C A Copy start to B[A] 

GOSUB GETZER Read 2 bytes of zero, 2 of size 
PACKeR GQC PACKer Error...out of range 
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8% 

831 

832 

833 F1387 8R0 

834 F138A £4 

835 

836 

837 

838 F138C 73E2 

839 F1390 D6 

840 F1392 108 

844 

842 

843 

844 

845 F1395 1CB 

846 F1398 D6 

847 F139R 7000 

848 F139E 8E00 
0 

849 

850 

851 

852 F13A4 118 

853 F13A7 816 

854 F13AR ADZ 

855 F13AD 8E00 
00 

856 F13B3 402 

857 F13B6 7B92 

858 F13BR 491 

859 F13BD 119 

860 F13C0 10A 

861 

862 

863 

864 F13C3 8E00 
00 

865 F13C9 4A 

866 

867 

868 

869 FI3CC 78H 

870 F13D0 628F 

871 

872 

873 F13D4 6032 

874 

875 

876 F13D8 

877 

878 

879 

8380 

831 


BASIC ROUTINES <840116.1657> Tue Jan 17, 1984 11:42 an 


Page 17 
x 
* Nou C(A] is size of file in sectors 
x 
?R=B OAR Is the file already in place? 
GOYES PACK40 Yes...continue 
* Need to nove the file data 
k 
GOSUB Cslc5 
C=A A C{A) is dest, C[9:5] is length 
R3=C 


x 
* A[A],R3[A] is dest, B[A] 1s source, R3[9:5] is length, 
* R2{A} is the source address, R1[A] is dest address 
x 
Di=D1- 12 Back up to niddle of start addr 
C=A A 
GOSUB =CSLC2 
GOSUBL =PT2BYT Write 2 bytes @ D1 
x 
* Now update the directory entry in the directory 
x 
C=RO 
CSRC 
C=0 4 Now C{S] 1s entry, C[X] is addr 
GOSUBL =PUTDR# Write the entry to the device 
GOC PACKer Error 
GOSUB Tstat Check status 
GOC PACKer Error 
C=R1 
R2=C Copy address to R1,R2 for MOVEFL 


* €A,C,D and R4 are available to MOVEFL... 
GOSUBL =MOVEFL Move file 
GOC PACKer Error 

; Nxten+ does not return if an error occurs 


GOSUB Nxten+ Go to next entry... 


GOTO PACK1O ...and continue loop if return 
i. 


x 
PACKer GOTO Errorx 
ae 


ae 


PACK40 

x 

* This entry is OK where it 1s now 
x 


* A[A] is PTRF, C[A] is file length 
x 
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882 
883 


884 
885 
886 
887 
8388 
8389 
890 


891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 


904 
905 
906 
907 
908 
903 
910 
9114 
912 
913 
914 
915 
916 


917 
318 
919 
920 
921 

Le 
$23 
924 
925 
326 
92? 
928 
929 
930 
931 
932 


F13D8 7A30 

F13DC 8&00 
00 

F13E2 667F 


F13E6 8E00 
00 


FI3EC 47E 
FI3EF 6093 


F13F3 D2 
FI3F5 7900 
F13F9 8AR 
F1I3FC 60 
FI3FE 20 
F1400 02 


F1402 8C00 
00 


F1408 110 
F140B 7000 
FI40F 118 
F1412 7462 
F1416 23 
F1418 AIA 
F141B 20 
F141D 468 
F1420 7000 
F1424 De 
F1426 8EOO 
00 
F142C DA 
FI&2E 100 
F1431 AF8 
F1434 500 
F143? 119 
F143A 7032 
FI43e CE 
F1440 7F22 
F1444 109 
F144? 4€9 
F144A 03 
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ee we Fe 


PACK9O 


x 
ae 


=GETZER 


Kz 
ke 


Gt2byt 


xe 
x. 


Nxten+ 


Nxten- 


GOSUB 
GOSUBL 


GOTO 


GOSUBL 


GOC 
GOTO 


C=0 
GOSUB 
?C=0 
GOYES 
P= 
RTNSC 


GOLONG 


A=RO 
GOSUB 
C=R3 
GOSUB 
p= 
A=AKC 
p= 
GOC 
GOSUB 


RTNCC 


Nxten- 
=GETDIR 


PACK20 


=ENDTAP 


PACKer 
oXTSTM 


A 
Gt2byt 
A 
Gt2byt 
=eRANGE 


=G6T2BYT 


=ASRC4 


Csrc5 

3 

WP 
=eRANGE 
PACKer 
=ASLCE4 
A 
=NXTENT 


A 
W 
Csrc5 
A 
Cslc5 


PACK9O 
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Increnent to next entry 
Read the next directory entry 


Check error @ PACK20 


If here, reached end of directory 


Clean the device up (rewind, etc) 


Error 
No error...exit 


Get file start address 
Get length of file into C[A] 
Add length to start of file 


Error if carry 
Return to proper location 


Copy to B[W] too 
If no carry, sane entry 


Decrenent counter 


If carry set, EOD (RSTK=garbage) 
Not at EQD yet...continue 


FORO RRO IO ITI ICO OOO IOI TIT I 
FORO IID III III ICO OI III 


xk 


a* Narie: 


xt 


INITXO - Execute the INITIALIZE statenent 
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933 ** Category: STEXEC 
934 ax 
935 tk Purpose: 
936 ak Initialize the specified mass storage device’s nediun 
937 RK 
938 ** Entry: 
939 ‘* DO points to the device specifier 
940 ak 
941 tk Exits 
942 xe If error, exits through ERRORX; 
943 ak If no error, exits through ENDST 
944 ax 
945 &* Calls: GETPIL, SAVE2C, TRESDO, SAVED1, SAVE1A, GETHEX, RESTD1, 
946 ax REST2C , ASRC4, REST1A, START, CHKMAS, FORMAT, <ENDST>, 
94? ak <ERRORX> 
948 ak 
949 RK Uses. ... 005 
950 tk Inclusive: All CPU registers, STMTD1, STMTRx,FUNCxx,ST[11:0], 
951 ae all RAM EXPEXC is pernitted to use, SCRICH[63:0] 
952 a 
953 *k Stk lvls: 7 (GETPIL) 
954 ax 
955 tk History: 
956 x 
957 an Date Prograrner Modification 
958 Oh eee ee ee ee tee! 
959 kK 41/29/83 NZ Updated docunentation 
960 RK 42/15/82 NZ Updated docunentation 
961 a 
962 $I RII RT IIIA TTR I II II III IIIT IIT IIT ITI STITT SSIS IS ISI SSS SSA IH 
963 JOTI OO IIS IE TTT IDIOT TOT OTITIS II IIS IIT SS SAA. 
964 F144C 0000 REL(5) =INITd INITIALIZE deconpile 
0 
965 F1451 0000 REL(5) =INITp INITIALIZE parse 
0 
966 F1456 sINITXQ 
967 & 
968 * Get the file specifier (volume label, device spec) 
969 x 
970 F1456 8£00 GOSUBL =GETPIL 
00 
971 FI45C 4F4 Goc INITXF Error 
972 : 
973 * Now B[W] is the device type or word, D[X] is device address, 
974 * RO is the volune label, C[6:0] is the recall word fron SETUP 
975 ‘ 
976 FI4SF 7E12 GOSUB Savezc Save recall word in STMTR1 
977 F1463 7832 GOSUB TresdOd Get PC fron FUNCDO (from GETPIL) 
978 F1467 20 P= 0 
979 F1469 310 LC(2) =tCONNA 
980 F146D 14A A=DATO B 
981 F1470 962 ?A=C OB # entries specified? 
982 F1473 51 GOYES INITXO Yes...skip the conna first 
983 x 


934 * Number of entries not specified...use default length 
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985 


x 


986 F1475 110 
F1478 2C 


987 
988 
989 
990 
391 
932 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 


1002 
1003 
1004 
1005 


1006 


1007 
1008 
1003 
1010 
1011 
1012 


1013 
1014 
1015 


1016 
1017 
1018 
1019 


1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
10 30 
1031 
1032 
1033 


F147A A80 


F147D 
F147F 
F1482 
F145 


F1488 
F148B 
F148D 
F1490 


F1496 
F1499 
F149) 
F14A0 
F14R6 


F14AC 


FI4AF 


F14B1 
F14B4 
F14B6 


FI4BC 
Fi4BF 
FI4C4 


F14C? 
F14CA 
FI4ce 
F1401 


FI40? 
F1408 
FI4p¢ 
FI4DF 
FI4E2 
FI4E5 


FI4E8 


INITLP 
oc 

SAF 

100 

426 


+ + Oe OF 


161 INITXO 
DB 

135 

8E0O 

00 

118 

74E1 

RF4 

8E0O 


INITXF 
x 


x 


Found 
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R=RO 

= 12 
A=0 P 
P=P+1 
GONC INITLP 
RO=A 
GOC INITX1 
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Length field is RO[15:12] 
Clear nibbles 12-15 


Put new vol label, length into RO 
Go aluays 


a conna (number of entries specified) 


DO=D0+ 2 

C=0 A 

D1=C 

GOSUBL =SAVED1 
C=RO 

GOSUB Save2c 
A=B W 


GOSUBL =SAVE1A 
GOSUBL =GETHEX 
GOC INITXE 


P= =eRANGE 
7A2O) OA 

GOYES INITXF 
GOSUBL =RESTD1 
CDIEX 

D=C A 
GOSUBL =REST2C 
RO=C 

GOSUB =ASRC4 
B=A W 


GOSUBL =REST1A 


Skip the corina 
Save D[A] in STNTDI1 


Save device address in STMTD1 


Save volure label in STMTR1 
Save device word in STNTRO 

Get # of entries (4 nibs nax) 
Error in expression evaluation 
Check 1f valid range 

Is the value zero? 


Yes...error 
Restore device address to D{A] 


Restore volume label to RO 


Rotate value into A[15:12] 
Save value in B[15:12] for now 
Restore device word to AWN] 


* Now ALW) 1s device word, B[15:12] is # of entries, RO 1s vol 
* label, D[A] as device address 


i 


120 
eB 
ASC 
RFC 
120 
AF8 

x 


SEOO INITX1 


RROEX 
P= 11 
RBEX WP 
RBEX WwW 
RROEX 
B=A W 


GOSUBL =START 


Coribine volurie label and # of entries in RO 


Volune label in B{11:0] 

Volune label, # entries in A 
Volune label->RO, device word->A 
Device word back in B{W]} 


Set up the loop, find the device 
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00 
1034 FI4EE 4A1 
1035 FI4F1 8&0 


00 
1036 FI4F? 411 
1037 
1038 
1039 
1040 FI4FR 8E00 
00 
1041 F1500 480 
1042 F1503 631 
1043 
1044 
1045 
1046 
1047 
1048 F1507 20 


1049 F1509 6BFO 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1962 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1972 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1982 
1083 F150D 0000 
0 
1984 F1S12 0000 
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GOC INITXE Error 
GOSUBL =CHKMAS Check if nass storage (nust be!) 
COC INITXE Error 

* It is mass storage...0K to continue 

k 
GOSUBL =FORNMAT Fornat the mediun, initialize fields 
COC INITXE Error 
GOTO =Endst No error...clean up, exit 

x. 

x. 

k 

* Following line is never referenced!(7?) 

k 

INITX2 P= =eDTYPE Device type error 


INITXE GOTO  Errorx 
JOU III OTITIS OT TO TTT TOT TDK 


FOO UII TOIT OOOO OTTO TC 
aw 


*k Nane: LOCAL - Execute the LOCAL [LOCKOUT] statenent 
ak 

** Category:  STEXEC 

xk 

** Purpose: 

ae LOCAL statenent sends a NRE to entire loop, or a GIL 
7 frane to devices specified. LOCAL LOCKOUT sends 

aaa! a LLO frane to loop specified. 

ak 

**k Entry: 

a DO points to the token following LOCAL 

ka 

AX ERIE 

xx Through CLEARc 

kx 

** Calls: <CLEARc> 

ka 

KX Uses. ...0.5 

kk Inclusive: Sane as CLEARc 

re 

** Stk lvls: Sane as CLEAR 

kx 

*k History: 

xk 

ae Date Progranner Modification 

Rho Seetlos, “ee oes | eee as ON ee Caen eee ee cee 
&k 01/25/83 JH Added Routine 

kk 


FOI III OO OI IOI III 
FORO JOO OOOO OI ITT IN 


REL(S) =LOCALd 
REL(5) =LOCALp 
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0 

1085 F1517 =LOCAL 

1086 * 

1087 * Is the next token LOCKOUT? 

1088 * 

1089 F151? AFA A=C W (Copy high nibs for compare) 

1090 F151AR 15A5 R=DATO 6 Read next token 

4091 KAI IK 

1092 x 

1093 x LC (6) (=tLOCKO)~ (=LEXPIL)~ (=tXWORD) 

1094 FIS1E 35 NIBHEX 35 LC(6) 

1095 F1520 00 CON(2) =tXWORD min 

1096 F1522 00 CON(2) =LEXPIL 

1097 F1524 CON(2) =tLOCKO 

1098 x 

1099 SII 

1100 F1526 976 PARC OW LOCAL LOCKOUT statenent? 

1101 F1529 D1 GOYES LCL1O No...execute LOCAL statenent 

1102 F1i52B 7161 GOSUB 01=SDO Yes...set up LLO frame 

1103 F152F 3411 LC(5) «#117811 Set C[3:0] to value of LLO frane 
110 

1104 F1536 145 OATI=C A Save frarie in STNTDO 

1105 F1539 165 DO=D0+ 6 Skip the LOCKOUT token 

1106 F153C 8£00 GOSUBL =CKLOP# Get the loop # to C[S] 
04) 

1107 F1542 6F50 GOTO CLEAR Continue with loop 

1108 x 

1109 x 

1110 F1546 3410 LCL1O =LC(5) »=#937#HO1 Set C[3:0] to NRE and GTL franes 
3% 

1111 F154D 6£30 GOTO CLEARc Execution sane as CLEAR 

1112 JOSIE IOUS ISG IOS IOI IGIIS ICO IO IOK 

1113 JOTI III IOI GOI III IIIS ITT I 

1114 wx 

1115 ** Nane: TRIGGER - Execute the TRIGGER statenent 

1116 ak 

1117 ** Category: STEXEC 

1118 ax 

1119 ** Purpose: 

1120 x Sends a GET to entire loop, or devices specified 

1121 ak are addressed to listen and then GET 1s sent. 

1122 xx 

1123 Re-Entry: 

1124 xx DX) points to the token following TRIGGER 

14256 Kk 

1126 MeO Ee ts 

112? oe Through CLEARc 

1128 we 

1129 ** Calls: Sane as CLEARc 

1130 ah 

1131 Kk Uses....... 

1132 xk Inclusive: Sane as CLEARC 

1133 aR 

1134 ** Sth lvls: Sane as CLEARC 


1135 a 
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1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 


1145 


1146 
1147 


1148 
1149 
1150 
1151 
1152 
1163 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
116? 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 


1183 
1184 


F1551 0000 
0 

F1556 0000 
0 


F155B 
F155B 3480 


800 
F1562 6920 


F1566 0000 
0 

F156B 0000 
0 


F1570 3429 
2oF 
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** History: 


sh 
ae Date Progranner Modification 

Pe ico Vee Souets,- wercecetree eto. eee eee 
aX 01/25/83 JH Added routine 

kh 


FORO IOI TI TOTO TOTTI TOTO TTT TIT 
FORD IOI TIO OIG TOTTI TTT OK 


REL(5) =TRIGd 
REL(5) =TRIGp 


=TRIGER Set C[3:0] to values of GET and 
LC(5) #087 #08 GET frane 
GOTO  CLEARc Execute sane as CLEAR 


FORO TTT TOTO TT TIS TIS ITI K 
SOIC OTT TTT OI OTTO TIO TOR TTT IOT 
ak 


*X Nane: REMOTE - Execute the REMOTE statenent 

ah 

*& Category: STEXEC 

ak 

xk Purpose: 

ak Sends an UNL, RFC, REN, RFC, then addresses the device 
= specified, if any, as listener 

ak 

*k Entry: 

- DO points to the token following REMOTE 

kk 

aK Exit: 

ak Through CLEARc 

ak 

xk Calls: Sane as CLEARc 

xk 

KK Uses....... 

*k Inclusive: Sane as CLEARc 

xk 

xk Stk lvls: Sarie as CLEARC 

ah 

** History: 

kk 

ae Date Progranner Modification 

EN Sueetiol. aametineae tiuilosgtintsacewudanc iia ie meen 
kK 03/19/83 N2 Rewrote routine and docurentation 
ae 01/26/83 JH Added routine 

xk 


FOI OO IIIT OTTO TTT IIIT IT 
FOI JIU TTT TIT TTR 


REL(5) =RENOTd 
REL(5) =RENOTp 
=REMOTE LC(S) #F9292 Set the REMOTE flag, RENTREN 
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1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
Vee 


F157? 6410 


F157B 0000 
0 
F1580 0000 
0 
3440 
410 
7001 
145 
14A 
310 
366 
2e 
AC2 


F1585 


F158C 
F1590 
F1593 
F1596 
F159A 
F1S9D 
F1S9F 
FISRe 


FISAS AC? 


11:42 ari 
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GOTO CLEARc 
JOIST TI TIT I IIIT SITS ITI ITI IIT III IITA S 


JOIST TOTO TTT OR I TTT IT ITN 
ak 
xk 
xx 
xk 
xk 
xn 
xk 
ax 
xk 
ax 
xk 
xx 
xk 
xk 
ak 
xk 
xk 
xk 
xr 
xk 
xx 
wa 
xk 
xk 
aK 
ak 
ah 
ak 
an 
ak 


CLEAR - Execute the CLEAR staterent 
CLEARc - Execute a loop staterent 


Nare: 
Narie: 
Category:  STEXEC 
Purpose: 
Execute the CLEAR statenent (also TRIGGER, LOCAL, 
RENOTE) 


Entry: 
DO points to the device specifier 
CLEARc: C{3:0] is the 2 franes, C[4] is REMOTE flag- 
"F" means RENOTE, "O" means other 


Exit: 

Through ENDST if no error, through ERRORX if error 
Calls: D1=SRO,FNDCH-, GETDID, CKnode, UNLPUT, PUTC,PRTISc, 
SAVEIT, D1=SDO, GETMBX, <ENDST>, <ERRORX> 


All CPU registers, STMTDx, STMTR1, FUNCxx,ST[11:0], 
all RAM EXPEXC is permitted to use 


Inclusive: 


Stk lvls: 7 (GETDID) 


History: 


Modification 

Ke ceo ese ee hati Se ee te ere 
kk 04/05/83 NZ Moved controller check to include 
ze case of device spec given 


Kk 03/19/83 NZ Rewrote routine and docurentation 
kk 


FOI IIIT TOOT IO TO III OO OTTO 
FOI IOI OTTO OI TUITION 


REL(5) =CLEARd 


Progranner 


REL(5) =CLEARp 
=CLEAR LC(5) 414°#O4 DCL ~ SOC franes (high nib=0) 
CLEARc GOSUR 01=SD0 Save C[3:0} in STMTOO (franes) 
DATI=C A 
A=DATO B Check if there 1s a device spec 
LC(2) =tCOnnA (tCOMMA neans no device spec) 
7ARC OB 
GOYES CLEAR. No device spec...use LOOP 
C=0 5 Use loop 0 if none given 
CLEAR 
b=C S Save mailbox # for later... 
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1237 F15A5 8E00 GOSUBL =FNDCH- Find that nailbox 
© 
1238 F1SAB 495 GOC Errorx Error if carry 
1239 FISAE 813 DSLC Mailbox # to B[O] 
1240 F15B1 F3 DSL A 
1241 F15B3 F3 DSL A Mailbox # to 0[2] 
1242 F15B5 C7 D=D+D A 
1243 F1SB7 C? D=D+D A (Mailbox #)*16 to D[2]} 
1244 F15B9 DB C=D A Device = :LOOP:# 
1245 F15BB 6C00 GOTO CLEAR+ (Carry not sure) 
1246 <= 
1247 a 
1248 F1SBF CLEAR. 
1249 ‘ 
1250 * Device spec follous...get it 
1251 & 
1252 FISBF 8£00 GOSUBL =GETDID Get device spec, don’t check MS 
+4) 
1253 F15C5 4F3 GOC Errorx Error 
1254 F15C8 8E00 CLEAR+ GOSUBL =CKnode Controller check (exits to error) 
00 
1255 FISCE 7580 GOSUB D1=SRO Save device spec in STMTRO 
1256 F15D2 1506 DAT1=C 7 (Write it out) 
1257 F1SD6 1D00 D1=(2) (=STNTDO)+2 Check if REMOTE 
1258 F1SDR 15F2 C=DAT1 3 Read frame, flag (C{XS] is flag) 
1259 FISDE 392A 7C=0 = XS Is it REMOTE? 
1260 F15E1 21 ; GOYES CLEAR No... continue 
1261 
1262 * This is the REMOTE statenent 
1263 
1264 F1SE3 8£00 GOSUBL =UNLPUT Send the UNL connand 
© 
1265 F15E9 481 GOC Errorx Error if carry 
1266 FI5EC 7650 GOSUB CLEARs Send the frame @ D1 
1267 FISFO 441 GOC Errorx Error if carry 
1268 F15F3 7090 CLEAR1 GOSUB D1=SRO Set 01 @ STMTRO (device spec) 
1269 FISF? 821 XN=0 Clear XM to detect error - PRIISc 
1270 FISFA 7099 GOSUB = PRTISc Address the device as listener 
1271 FISFE 831 ?KN=0 OK? 
1272 F1601 AO GOYES CLEAR2 Yes...continue 
1273 & 
1274 * Error detected by PRTISc...rust be loop error!? 
1275 : 
1276 F1603 20 P= =eABORT Set eABORT to check it in ERRORK 
1277 F1605 8C00 Errorx GOLONG =ERRORX 
00 
1278 Re 
1279 xs 
1280 F160B CLEAR2 
1281: x 
1282 * Now release any I/0 buffers created by GETDID 
1283 % 
1284 F160B 7870 GOSUB D1=SRO 
1285 FI60F 147 C=DAT1 A Read the device spec for belou 


1286 F1612 06 RSTK=C Save device spec on stack 
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1287 F1614 AF2 
1288 F1617 7640 
1289 F161B 07 
1290 F161D DR 
1291 F161F 7060 
1292 F1623 147 
1293 F1626 C6 
1294 F1628 471 
1295 F162B 8£00 
00 
1296 
1297 
1298 
1299 F1631 96C 
1300 F1634 50 
1301 F1636 171 
1302 F1639 7900 
1303 F163D 47C 


1304 F1640 

1305 F1640 8000 
00 

1306 

1307 

1308 F1646 3300 
00 

1309 F164C 14F 

1310 F164F 8C00 
00 

1311 

1312 

1313 F1655 8000 
00 

1314 

1315 

1316 F165B 8C00 
00 

131? 

1318 

1319 F1661 8C00 
00 

1320 

1321 

1322 F1667 8C00 
00 

1323 

1324 

1325 F166D 8C00 
00 

1326 

132? 


1328 F1673 812 
1329 F1676 6000 
1330 
1331 
1332 F167R 816 


BASIC ROUTINES <840116.1657> 


x 


C=0 W 

GOSUB Saveit 

C=RSTK 

A=C A 

GOSUB D1=S00 

C=DAT1 A 

C=C+C A 

GOC CLEAR4 

GOSUBL =GETMBX 


11:42 an 
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SAVEIT ill release any buffers 
Pop device spec... 

...and put in A[A] 

Set D1 @ STNTDO 


Check if REMOTE (Carry if so) 
REMNOTE...exit 
Get the railbox address back 


* ALA] contains the device spec, 01 @ STMTDO 
k 


CLEAR3 


CLEAR4 
Endst 


we 
we 


CLEARs 


Putc 


Saveit 


x. 
xe 


Nxtchr 


x 
a 


Ddl 


ae 
ke 


Cslc5 
Cslc4 


ke 
x. 


Csrc5 


7AHO | OB 

GOYES CLERR3 
D1=Di+ 2 

GOSUB CLEARs 
GOC Errorx 
GOLONG =ENDST 
LC(4) =nCNOF 


C=DAT1 B 
GOLONG =PUTC 


GOLONG =TSTAT 


GOLONG =NTYL 


GOLONG =SAVEIT 


GOLONG =NXTCHR 


GOLONG =DDL 
CSLC 

GOTO 8 =CSLC4 
CSRC 


Was the device LOOP? 
No...REAL device 
Yes...use the LOOP spec 
Send the corrand 

Error if carry 


Done 


Send the cormand frane... 


...fron @ D1 


Fall into CSLC4 


Fall into CSRC4! 
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1333 F167D 6000 Csrc4 GOTO =CSRC4 
1334 a 
1335 is 
1336 F1681 8COO Save2c GOLONG =SAVE2C 
00 
; 1337 x. 
1338 te 
1339 F1687 1FOO =D1=SRO D1=(5) =STNTRO 
000 
1340 F1I68E 01 RTN 
1341 k- 
1342 t- 
1343 F1690 1FOO =D1=SDO D1=(5) =STNTDO 
000 
1344 F1697 01 RIN 
1345 x. 
1346 te 
1347 F1699 8COO TsavdO GOLONG =TSAVDO 
00 
1348 a 
1349 t 
1350 Fi69F 8COO TresdO GOLONG =TRESDO 
1351 se JOKES COS IC OI ERT RTT TE 
1352 JOKE COT DTT TADS IIIS 
1353 ak 
1354 x* Nare: STANBY - Execute the STANDBY statenent 
1355 aK 
1356 ** Category: STEXEC 
1357 ae 
1358 *x Purpose: 
1359 ae Execute the standby statenent 
1360 ak 
1361 &* Entry: 
1362 ig DO points to the first paraneter 
1363 ies 
1364 ex Exit: 
1365 aK Through NXTSTM if no error, ERRORX if error 
1366 xk 
136? kx Calls: GLOOPH , SAVEZC, STANsb, REST2C, IDIV,FNDCHK, PUTC, 
1368 xe PUTE, <NXTSTM> 
1369 me . 
1370 ak STANsb: EXPEXC , POP1N,FLTDH 
1371 ax 
1372 kk Uses....... 
1373 tk Inclusive: All CPU registers, STNTR1,FUNCxx,ST[11:0], all 
1374 ae RAN that EXPEXC is pernitted to use 
1375 ax 
1376 *k Stk lvls: 7 (GLOOPH) 
1377 ak 
1378 &k History: 
1379 x 
1380 xx Date Programmer Modification 
1381 RR; sshseteee- epee bei « bee See ee aos ones Sees 


1382 kk 05/18/83 NZ Changed # of IDY tineouts (+1)... 
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1383 
1384 
1385 
1386 
138? 
1388 
1389 


13% 
1391 


1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 


1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1424 
1422 
1423 
1424 
1425 
1426 
142? 
1428 
1429 
14% 
1431 
1432 


F16A5 0000 
0 


FI6AR 0000 
0 
FIGAF 8£00 
00 
F16B5 AC? 
F16B8 148 
F16BB 3100 
FI6BF 962 
F16C2 11 
F16C4 3100 
F16C8 966 
FI6CB 02 


F16CD 03 
FI6CF 6480 


F16D3 


F16D3 3400 
000 
F1eDA 0? 
F16DC 3100 
FI6EO 05 
FI6E2 417 


F1I6ES 20 
FI6GE? 6DIF 


FI6EB 


F16EB ACB 
FIGOEE 7F8F 
FIGF2 7790 
FI6F6 40F 
FI6GF3 SEOO 
00 
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*k 03/21/83 NZ 
RK 02/25/83 NZ 


ak 
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due to user misunderstanding 
Changed CHECKC to inline code 
Wrote, added docunentation 


TORII III IIIT IT TTI OT TTI TK 
FOI IOI IOI ITO I III IK 


=STANBY 


x 


% This 1 
k 


ae 
ke 


STANIO 
x 


* This 
t 


ke 
ke 


STANra 


STRNer 
ke 


ke 


STAN2O 
i 


REL(5) =STANDd 
REL(5) =STANDp 
GOSUBL =GLOOP# 


D=C S 
R=DATO B 
LC(2) =tOFF 
7A=C) OB 
GOYES STAN1IO 
LC(2) =tON 
7AHC OB 
GOYES STAN2O 


s "STANDBY ON" 


D=0 A 
GOTO STAN40 


is "STANDBY OFF" 


LC(5) =Tinout 


C A 

(2) =HTaineo 
C A 

C STAN4O 


= =eRANGE 
GOTO 3 Errorx 


Standby deconpile 
Standby parse 
Get loop # to C[S] 


Save in D[S$]} 

Read next token 

Check if "STANDBY OFF" 

Is it "OFF"? 

Yes...set up the values 
Check if "ON" 

Is it "ON"? 

No...nust be nuneric values 


Set frane tineout=0 


Frane tineout value 


Put in D[A] 

# of IDY tineouts 
Put in B[B] 

Go always 


Arg out of range 
Error 


* This is STANDBY <expr> [,<expr>] 
x 


* Evaluate the frane tineout after saving loop # 
x 


C=) S 

GOSUB Save2c 

GOSUB STANsb 

GOC STANer 

GOSUBL =REST2C 


Recall loop # to C{S] 
Save in STMTRI[S] 
Manipulate frarie tineout 
Error if carry 

Restore loop # to C[S] 
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1433 
1434 
14935 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
145? 
1458 
1453 
1460 


1461 
1462 
1463 
1464 
1465 
1466 


1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 


FIGFF 
F1701 
F1703 
F1705 
F170? 
F170B 
F170€ 
F1712 
F1715 
F171? 


F171A 


F1710 
F1721 


F1724 
F1726 
F1728 


FI72E 
F1731 
F1734 
F1736 
F1739 
F173B 


F1742 
F1745 
F174? 
F174A 
F1?4C 
F174F 
F1752 
F1754 


F1756 
b1753 
F175D 
F1760 


D6 
D? 
D1 
ES 
767F 
14R 
3100 
966 
F3 
161 


17F 


7060 
45C 


D6 
D7 
8£00 


AC? 
AFO 
DA 
AF2 
DB 
8FOO 


97A 
50 
B74 
D8 
AEO 
97C 
33 


ACB 
7386 
43C 
3300 
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x 
* ATA] is now the tineout value 
x 
C=A A 
D=C A Put timeout value in D[A] 
B=0 A Clear B[B] (# of IDY timeouts) 
B=B+1 A (# of IDY tineouts: O=infinity) 
GOSUB Save2c Timeout in STMTR1,loop # in [S$] 
A=DATO B 
LC(2) =tCOMNA 
7AHC OB Is there a conria? 
GOYES STAN4O No...use default (sane as first) 
DO=D0+ 2 Conna...skip it 
x 
* Read the IDY tineout value 
x 
Di=D1+ 16 Renove the first entry from stack 
* Now evaluate IDY tineout 
x 
GOSUB STANsb Evaluate expr, massage it 
STANeR GOC STANer Error 
x 
* ALA] is now the IDY tineout 
x 
C=A A 
D=C A Set D[A] to IDY tineout 
GOSUBL =REST2C Restore frame tineout to C[A] 
D=C S Restore loop # 
A=0 W 
A=C A A[W] is now frame tineout 
C=0 W 
C=D a C{W] 1s now IDY tineout 
GOSBVL =IDIV 


x 
* Now A[W] is quotient, B,C[W] are remainder 
x 


7t=0 =O 
GOYES STAN3O Exact nultiple...OK 
A=A+1 W Reriainder... round up 
STAN30 B=A A Copy count to B[B] 
A=0 B Check if too nany IDY tineouts 
RHO OW In range? 
GOYES STANra No...range error 
STAN4O P= 0 
x 


* Nou O[A) is timeout value, B[B] is # IDY timeouts, D[S] is 
* loop # 
x 


C=0 S$ 
GOSUB  Fndchk Find the mailbox (C{S]=loop #) 
GOC STANeR Error...not found or nan node 


LC(4) =nSETIC Set nunber of IDY timeouts... 
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1486 
1487 
1488 
1489 
1490 
1491 
1492 


1493 
1494 


1495 
1496 
1497 


1498 
1499 
1500 


1501 
1502 
1503 
1504 
1505 
1506 


150? 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1822 
1523 
1524 
1625 
1526 
152? 
1528 
1529 
15H 
1531 
1532 
1533 
1634 


F1?66 
F1769 
F176D 
F1770 
F1?72 
F1775 
F177? 


F1770 
F1780 


F178? 


F178D 


F1793 
F179? 


F1?79A 


F179F 
F17A4 
F17A4 
F17R6 
F1?A9 
F17AB 
F17RE 
F17B2 
F17B5 
F17B88 
F17BA 


F17BC 
F17BE 


oo 
RES 
72EE 
438 
25 
300 
DB 
8E00 
00 
43A 
8D00 
000 


800 


8EOO 


70F F 
400 


3230 


05 
A3A 
D6 
R36 


401 
7B77 
5% 
8A8 
40 
03 


20 
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C=B 
GOSUB 
GOC 

p= 
LC(1) 
C=D 
GOSUBL 


COC 
=nxTSTM GOVLNG 


ke 
x. 


Popin GOLONG 


Ks 
Xo 


STANsb GOSUBL 


GOSUB 


RTNC 
x 


B 

Putc 
STRNeR 
5 


=ST0@5 


A 
=PUTE 


STANeR 


=NXTSTM 


=POP1N 


=eXPEXC 


Popin 
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...to B[B] 
Error...abort 
Set frarne tineout... 


...to O[A] 


Error...abort 
Done 


Evaluate the expression 


Pop it off the stack 
Error 


* Multiply by 1000 (convert to nillisecs) 
x 


LC(3) 


SETDEC 
A=A+C 
C=A 
C=C+C 
SE THEX 
COC 
GOSUB 
GONC 
?A=0 
GOYES 


RTNCC 
ke 


x 


STANsr P= 
RTNSC 


3 

x 

A 

x 
STANsr 
fF LTDH 
STANSr 


A 
STANsr 


=eRANGE 


1073 is 1000 


Can’t be shortened to A field 
Check if still negative... 


Range error if carry 

Convert to HEX 

Out of range or data type 
Zero is NOT valid for tineout 


Good data...return 


Out of range 


FOO TI III I ICI EOI II TIO K 
OOO IOI UII OIG TOO ITI COO SOCIO IOI III OOOO 


aK 
** Nane: LISTIO - Execute the LIST I0 statenent 

ak 

** Category:  STEXEC 

ak 

AX Purpose: 

ak LIST I0 user staternent: list the devices in the ASSIGN 
we IG table (if none, error) 

x 

** Entry: 

ns P=0 
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1535 

1536 

1537 

1538 

1539 

1540 

1841 

1542 

1643 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1652 

1563 

1554 

1555 

1556 

1557 F170O 300 
1558 F17C3 20 
1559 F17C5 6F3€ 
1560 

1561 

1562 F1709 0000 

0 


1563 F17CE 0000 
0 


1564 F17D3 
1565 F17D3 3200 


0 
1566 F17D8 8EOO 

0 
1567 FI7DE 51E 
1568 F17E1 AF2 
1569 F17E4 13? 
1570 F1I7E? 134 
1571 FIVER 135 
1572 FI7ED 108 
1573 
1574 
1675 
1676 
157? 
1578 FI7FO D1 
1579 Fi7F2 €5 
1580 F17F4 147 
1581 F17F? 173 
1582 F17FR 96E 
1583 FI7FD SF 
1584 
1585 
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ak Exit 


** Calls: 
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Tue Jan 17, 1984 


Through NXTSTM if no error, through ERRORX if error 


1/OFND,HTOD,01=SDO, BLANKC, WRTASC , BF2DSP,ASLC2, 


ASRC2, <NXTSTM>, <ERRORK> 


eeneeoe 


kk Inclusive: A-D,R3,ST[11:0], STMTxx, FUNCxx 


*K Stk lvls: 5 (BF2DSP) 
ah 

** History: 

sh 

aK Date Progranner 
PX. este “euce eases 
ek 01/16/84 NZ 

aR 

RK 12/15/82 NZ 


ak 


Modification 


Fixed device # count to count in 
DECIMAL, not HEX! 
Updated docunentation 


FOO IO IOI TOTO TOT OTT TO ITT 
FOO OTT TTT OT TOTO TTT TT TTT 


LISTnb 


=LISTIO 


x 


LC(1) =eNOASN 
P= =ePARSE 
GOTO = Errorx 


REL(S) =OFFIOd 
REL(5) =I0p 


LC(3) =bPILAT 


GOSUBL =i/OFND 


GONC LISTnb 
C=0 W 
CDIEX 

bO=C 

D1i=C 

R3=C 


“ASSIGN I0 Needed" 
(parse nessage) 


I0 deconpile 
I0 parse 


Assign I0 buffer 


No buffer...error 
Clear nibs 14 & 15 


Save buffer pointer in R3 


* Now DO,D1 point to the ASSIGN I0 buffer 
x 


* First figure out how many devices ARE assigned 
* 


LIST1O 


x 


B=0 A 
B=B+1 A 
C=DAT1 A 
01=D1+ 4 
?C#O.) «iB 
GOYES LIST10 


B[R] is the device count 
increrient count 
Read this entry 


Is this entry null? 
No...continue 


* Now B[X] is the device count 
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1586 
1587 FI7FF CD 
1588 F1801 D9 
1589 F1803 8£00 
00 
1590 F1809 04 
1591 F180B 718E 
1592 F180F 8£00 
00 
1593 F1815 1505 
1594 F1819 21 
1595 F181B AC3 
1596 F181E 8E00 
00 
1597 F1824 171 
1598 F1827 20 
1599 F1829 3F44 
5667 
9636 
5682 
37 
1600 F183B 1557 
1601 FI83F 17F 
1602 F1842 3F92 
0216 
3737 
9676 
E6 
1603 F1854 1557 
1604 F1858 17F 
1605 
1606 F185B 39 
1607 F185D 5646 
1608 F1861 DOAO 
FF 
1609 
1610 F1867 1509 
1611 F186B 1000 
1612 FI86F 8FOO 


000 

1613 

1614 

1615 

1616 

161? 

1618 F18?6 3F44 
5667 
96 36 
5602 


o 
e 


1619 F1888 1FO0 

000 
1620 F188F 1657 
1621 F1893 17F 
1622 F1836 3302 


x 


x 


* Now have sent the header 


x 
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B=B-1 
C=B 
GOSUBL 


SETHEX 
GOSUB 
GOSUBL 


DAT1=C 
P= 

D=0 
GOSUBL 


01=D1+ 
P= 
LCRSC 


DAT1=C 
D1=D1+ 
LCASC 


DAT1=C 
01=01+ 
LC(10) 
NIBHEX 
NIBASC 
NIBHEX 


DAT1=C 
D1=(2) 
GOSBVL 


A 
A 
=HTOD 


D1=SD0 
=BLANKC 


6 
1 
$ 
=WRTASC 
2 


0 
\s(eciveD\ 


W 
16 
\ngissa )\ 


W 
16 
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Back off last count (the null) 
Copy count to C[X] 
Convert to decinal 


Now 8[B] is the decinal value 
Use STMTDx,FUNCxx to write it 
Set C{WJ=" " 

Write out 3 blanks 

Tuo digits (B[B]) 

CLEAR the sign for WRTASC 
WRite ASCil 

Leave a blank after the nunber 


"Device(s" 


") assign" 


HFFOROD*(#10000)+\de\ “ed &Cr&Lf&chr$( 255) 


39 
\ed\ 
DOROFF 


10 
=STNTDO 
=BF2DSP 


Send to display, ignore width 


* Send out lines until reach a zero byte 


x 


LIST20 LCASC \# ecaveD\ 


D1=(5) 


DAT1=C 
Bi=D01+ 
LCASC 


=FUNCRO 


W 
16 
\ \ 


“Device #" 


Saturn Assenbler 
Ver. 3.39/Rev. 206 


02 
1623 F189C 15D3 
1624 F18RO 113 
1625 F18A3 8£00 
00 
1626 F18A9 05 
1627 F18AB £4 
1628 FI8AD 04 
1629 FI8AF D8 
1630 F18B1 8E00 
00 
1631 F18B7 13% 
1632 F18BR 163 
1633 FI8BD 132 
1634 F18CO 103 
1635 F18C3 21 
1636 F18C5 AC3 
1637 F18C8 8E0O 
00 
1638 F18CE 20 
1639 F18D0 3503 
72A3 
1640 F18D8 1505 
1641 F180C 175 
1642 
1643 
1644 
1645 FI8DF 146 
1646 F18E2 96A 
1647 F1I8E5 83 
1648 F18E7 145 
1649 FI8ER 171 
1650 FI8ED F6 
1651 FI8EF F6 
1652 F18F1 96E 
1653 F18F4 90 
1654 F18F6 3102 
1655 F18FA 14D 
1656 FI8FD 171 
1657 
1658 
1659 
1660 F1900 37 
1661 F1902 72D0 
ROF F 
1662 
1663 
1664 F190AR 1507 
1665 F1I90E 1D00 
1666 F1912 8F00O 


000 
1667 F19139 6C5F 
1668 
1669 


1670 F1910 
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x 


DAT1=C 
R=R3 
GOSUBL 


SETDEC 
R=A+1 
SETHEX 
B=A 
GOSUBL 


DO=A 
DO=D0+ 
ADOEX 
R3=A 
p= 

D=0 
GOSUBL 


P= 
LCASC 


DAT1=C 
D1=D1+ 


* Now read the 
k 


LIST30 
FOI 


KKKKK 


ke 


LIST50 


C=DATO 
?C=0 
GOYES 
DAT1=C 
D1=Di+ 
CSR 
CSR 
?CHO 
GOYES 
LCASC 
DAT1=C 
01=D01+ 


Lc (8) 
NIBHEX 
NIBHEX 


DATI=C 
01=(2) 
GOSBVL 


GOTO 


Page 33 
4 Write blanks out to initialize 
Get buffer address, counter 
=RSLC5 
Increnent in DECIMAL node 
A Increnent ALB} 
Return to HEX node 
A Copy to B[B) 
=ASRC5 
Set DO @ buffer 
4 
DO @ entry, A[A] @ next entry 
Store new count in R3 
1 Write B[B} 
S Sign 1s positive 
=WRTASC Write ASCII @ D1 
0 
\:’=\ Mote 
6 
6 


2 letters, put then in RAM, display then 


A Read the 2 bytes of nane 

B Zero byte? 

LIST50O Yes...done with list 

A No...write the bytes out 

2 

A Check if second char was null 
A Now second char in C(B], C{4:2]=0 
B Was the second char null? 
LIST30 No... continue 

\\ 

B Yes...replace with a blank 

2 Now D1 @ end of string 
HFFOROD*256+\’\ "BC r&LFBCHRS (255) 


37 

72D0ROFF 

8 Write it out 

=FUNCRO Point back to start... 
=BF2DSP ...and send to the display 
LIST20 Loop back (not done yet) 
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1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1683 
1690 
1691 
1692 
1693 
1694 
1695 
16396 
169? 
1698 
16993 
1700 
1701 
1702 
1703 
1704 
1705 
1706 


1707 


1708 
1709 
1710 
1714 
{712 
1713 
1714 
1715 


1716 
1717 
1718 
1719 
1720 
1721 


F191D 626E 


F1921 0000 
0 
F1926 0000 
0 
F192B 14A 
FI92E 3100 
F1932 966 
F1935 11 


F1937 1FO0O 
000 
FI93E be 
F1940 145 
F1943 5D2 


F1946 1FO0O 
000 





x 


BASIC ROUTINES <840116.1657> Tue Jan 17, 1984 11:42 an 


Page 34 


* Done with LIST 10 
k 


GOTO 3 =nxTSTn 


FOI IO IO RTO TOT TT TT TTT TTT TTT IIIT III 
FOR RII ITI TOT TOTTI TET TIT ITT TT ITT I ITT ITT TITIES TSR ITI IK 


ak 
aK 
ak 
xk 
a 
ak 
xk 
ak 
ak 
ak 
ax 
xk 
xk 
ak 
ak 
a 
ak 
ae 
4 
xk 
wa 
ak 
xx 
ax 
ak 
ak 
a 


Narte: OFFIO - Execute the OFF I0 statenent 
Category: STEXEC 
Purpose: 
Execute the "OFF I0" statenent 
Entry: 
Hexnode, P=0 
Exit: 
Through NXTSTN 
Calls: D1=BST, <NXTSTM> 
Uses....... 
Inclusive: A[B],C{A),00,01 
Stk lvls: 0 
History: 
Date Prograriner Modification 
12/15/82 NZ Updated docurentation 


FO RIOR IOI TTT TTT TOTTI TIT IT 
SOR TOOT TTT TTT TTI 


REL(5) =OFFIOd Deconpile "IO" 
REL(5) =OFFIOp Parse OFF IO/INTR 
=OFFIO A=DATO B Read the first token to check 
LC(2) =tXWORD for I0 vs INTR 
7AHC OB Is 1t INTR? 
GOYES OFFIO1 No...nust be OFF I0 


* It is OFF INTR; clear the ONINTR address 
x 


kel 


D1=(5) =ONINTR 


C=0 A 
DAT1=C A 
GONC OFFIO2 Go aluays 


OFFIO1 = D1=(5) =LOOPST 


0 
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1722 F194D 1572 C=DAT1 XS 
1723 F1951 OB CSTEX 
1724 F1953 850 ST=1 -=0f fed Loop is OFFED by the user 
1725 F1956 OB CSTEX 
1726 F1958 1552 DAT1=C XS Write it back out 
1727 & 
1728 F195C 8£00 GOSUBL =01=DST 
00 
1729 F1962 1572 C=DAT1 XS 
17% F1966 0B CSTEX 
1731 F1968 840 ST=0 = = Loop0K Loop is NOT ok 
1732 F196B 0B CSTEX 
1733 F196D 1552 DAT1=C XS 
1734 F1971 GEOE OFFIO2 GOTO nxTSTM Exit through NXTSTM 
1735 2G OI OC OIC I IIIT TTI 
1736 JURIUIIIIIIUTIOGU CU OTT ITI II TAK 
j 1737 ak 
1738 ak Nane: RESTIO - Execute the RESTORE IO statenent 
1739 *k Nane: REST10 - RESTORE I0, loop # in C[{S] 
1740 a 
1741 *k Category: STEXEC 
1742 ar 
1743 *% Purpose: 
1744 ak Execute the RESTORE IO statenent...undo the effects 
1745 a of an OFF I0 and reinitialize the specified loop 
1746 ak 
1747 ** Entry: 
1748 aK HEXMODE, P=0 
1749 am 
1750 tk Exit: 
1751 ass Through ENDST if no error, through ERRORX if error 
1752 ax 
1753 &* Calls: CKLOPH ,D1=DST,START-, RESTRT, PILCNF, <ENDST>, 
1754 ak <ERRORX> 
1755 ae 
1756 ak Uses. ...... 
1757 xx Inclusive: All CPU registers,$1[11:0],FUNCxx,all RAN that 
1758 es EXPEXC is permitted to use 
1759 ak 
1760 ** Stk lvls: 7? (CKLOPH) 
1761 ak 
1762 kk History: 
1763 ak 
1764 Ax Date Progranner Modification 
1765 i 
1766 tk 08/12/83 NZ Reordered code between RESTIO and 
176? ak (forner) RESTIO to allow REST10 
1768 ne to clear the OFFED flag 
1769 kk 08/05/83 NZ Changed to take a loop nunber 
1770 kK 12/15/82 NZ Updated docunentation 
kk 
He JOO I IO IO IOUT IGT IOI IIOK 
1773 JG III ICICI GOO II OI IK 
1774 F1975 0000 REL(S) =RESTd 
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1775 
1776 


1777 
1778 
1779 
1780 
1781 
1782 


1783 
1784 
1785 
1786 
1787 
1788 


1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
$798 
4799 
1800 
1801 
1802 
1803 


1804 
1805 


1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
181? 
1818 
1819 
1820 
1821 
1822 
1823 


F197A 0000 
0 

FI97F 8E0O 
00 


F1985 1F00 
000 

F198C D2 

FI98E 1500 


F1992 8£00 


F1998 1572 
F199C OB 
FI9SE 850 
F19A1 OB 
F19A3 1552 


F19A7 850 
FI9AR D3 


FISAC 8E0O 
00 
FI9B2 4C0 
F19B5 8£00 
00 
F19BB 648C 


FISBF 654C 
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REL(5) =RESTp 
=RESTIO GOSUBL =CKLOP# Get loop nunber, if any 
k 
* C{$] is the loop number 
k 
* (Entry for ASSIGN I0 "" and CONTROL ON) 
k 
=REST1IO D1=(5) =LOOPST 
C=0 A Clear all bits in nibble 
DAT1=C 1 Loop is no longer offed 
k 
* Set the loop OK flag for the display device 
k 
GOSUBL =01=DST 
C=DAT1 XS 
CSTEX 
ST=1 = Loop0K Set the loop "OK" 
CSTEX 
DAT1=C XS Write it back out to RAN 


x 


* Now readdress loop (loop # still in C[S]) 
t 


* Oe 


kL 
ke 


Rester 


ST=1- =sReadd Force readdressing 
D=0 AR Set device = NULL 


With devace=null, START- will not error out if that loop 
1s currently in device node, but will just return 


GOSUBL =START- Readdress the loop if controller 
GOC Rester Error during START 

GOSUBL =PILCNF Restore OFFED devices, set DSPCHX 
GOTO 8 Endst Done...exit 

GOTO 8 Errorx Error junp 


JORIS OOOO 
JOR OI OIC TTT TIO TO IIIT TOTO IIOTO 


ak 


&* Narie: 


aR 


ASGNIO - Execute the ASSIGN 10 statenent 


** Category:  STEXEC 


aa 


** Purpose: 


aa 
ak 
ax 
ah 


Execute the ASSIGN I0 staternent (undo all DISPLAY IS 
and PRINTER IS assignnents, allocate/deallocate the 
assign 10 device buffer 


*k Entry: 


ae 


DO points to the device specifier list 
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1824 
1825 
1826 
182? 
1828 
1829 
18% 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 


1849 


1850 
1851 
1862 
1853 
1854 


1855 
1856 
1867 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 


1870 
1871 
1872 
1873 
1874 


F19C3 0000 
0 

F1i9C8 0000 
0 

F1i9CD 


F19CD 8E00 
1] 


F19D3 860 
FI9D6 381 


F19D8 7DBC 
FI9DC 8£00 
00 
F1SE2 DB 
FI9E4 108 


xk 
ax 
a 
aK 
ax 


xx 
ax 
ax 
xx 
aa 
xx 
a 
kk 
am 
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P=O, HEXMODE 
Exit: 
Through ENDST if no error, ERRORX if error 
Calls: GETSTR, TSAVDO, TSAVD1 , NXTCHR, 1/ODAL,D1=DSP,I/OALL, 
START~, TRESDO, TSWAD1 , UCRANG, ASRC2, CATCK+, BAKCHR, 
ASLC2, <REST10>, <BSERR>, <ENDST> 
USES whee 
Inclusive: Rll CPU registers,ST[11:0],STMTDO, STMTR1, FUNCxx, 
all RAM EXPEXC 1s permitted to use 
Stk lvls: 7 (GETSTR) 
History: 
Date Progranner Modification 
11/30/83 NZ Updated docunentation 
12/21/82 NZ Added documentation 


FOI JO IORI TOOT TIT TIT 
FOI IO TOTO OOO TUTTI OTTO 


REL(S) 
REL(5) 


=ASGNIO 
x 


=ASGNd 
=ASGNp 


* Get the string fron progran menory 


x 


 & Se Me OE OF 


i Oe 


GOSUBL 


=GETSTR 


GETSTR returns two cases: 
1) (Literal expression): ST(=sSTK)=0, DO at start of data 
2) (String expression): ST(=sSTK)=1, D1 at start of data, 


D[A] past end of data 


If ST(=sSTK)=0, then this 1s ASSIGN IO * 


*ST=0 
GOYES 


Reading fron 


GOSUB 
GOSUBL 


C= 
RO=C 


=sSTK Reading fron stack? 
ASGNOO No...ASSIGN IO * 


stack (ASSIGN I0 "??77") 


Tsavd0 Save DO (to restore after I/OALL) 
=TSAVD1 Save D1 
A 

Save end (if string) in RO 


The exit conditions of GETSTR match those needed be NXTCHR! 
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1875 
1876 
187? 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 


1895 
1896 
1897 
1898 
1899 
1%90 
1901 
1%2 
1903 
1904 
1905 
196 
197 
1908 
1909 


1910 


1911 
1912 


1913 
1914 
1915 
1916 
TOA? 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 


FI9E? 
F19EB 


FISEE 
FISF2 
F1SF5 


F1SF9 
F19F9 
F1ISFD 
F1A0O 


FIRO2 


F1R08 
F1A0B 
FIAOE 
FIAI2 
FIAIS 


FIAI9 


FIRIB 
FIAIF 
F1R21 


FIA26 


F1A2D 
FIRS 


F1R37 
F1A3R 
F1A3D 
F1R40 
F1A43 
F1A45 


7C7C 
500 


7631 
AC2 
OF 8F 


31A2 
962 
EE 


8E00 


AF2 
AE 
1§DD 
17D 
15B0 


D2 


31A? 
te) 
3200 


8F00 


4% 
8DO0 


137 
135 
134 
AFe 


9 


6 
15CE 


11:42 an 
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GOSUB Nxtchr Check if this is a "*" 


GONC ASGNO4 No error...exit 
x 
* ASSIGNIO "" = deallocate the ASSIGNIO buffer 
x 
ASGNOO GOSUB ASGNda Deallocate, 
t=O) S$ (loop 1!) 
GOTO  REST1O exit through restore 
x 
ke 
ASGNO4 
LcAsSC §=\*\ 
*A=C OB 
GOYES ASGNOO 


x 
* Not "*"..Unassign all devices 
x 


* (ASSIGN 10 “device list") 
k 


GOSUBL =D1=DSP 

C=0 W C[WJ]="000...000" 
C=C-1 W C(W]="FFF...FFF" 
DAT1=C 14 Clear IS-DSP, IS-PRT 
Di=D1+ 14 

DATI=C 14 Clear IS-INP, IS-PLT 


x 
4 Nou create the I/0 buffer for the ASSIGN words 
x 


C=0 A 


* Leave 1 byte @ end (terminates LISTIO) 
* 


LC(2)  30%2*241%2 % entries of 2 bytes, 2 nib/byte 
B=C A Size in BLA] 
LC(3) =bPILAI Assign I0 


GOSBVL =1/OALL 


I/0 AlLocate routine 


OK 
Error (nen) 


The I/0 buffer is allocated, D1 1s the start of the buffer 


Get D1 value into DO... 
...restore D1 
se DO for clear loop 


GOC RSGNOS 
=bSERR GOVLNG =BSERR 
xe 
aE 
x 
x 
x 
* Initialize the buffer ta all zero 
a 
RSGNOS CDIEX 
D1=C 
bo=C 
C=0 W 
P= 16-(120/15) 


ASGNIO DATO=C 15 


(30*2*%2 = 120) 
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1926 F1AR49 16E DO=D0+ 15 
1927 FIRAC OC P=P+1 
1928 FIRGE SOF GONC = ASGNIO Loop back if not done yet 
1929 F1A51 14C DATO=C B Clear out terninator byte 
1930 - 
1931 * Now D1 points to the buffer area, A[A] 1s length 
1932 * FUNCDO contains the progran pointer 
1933 x 
1934 * Set OFFED flag = 0 (ASSIGN I0 eliminates OFF I0) 
1935 x 
1936 F1A54 1800 DO=(5) =LOOPST 
000 
1937 F1ASB D2 C=0 A 
1938 F1A5D 1542 DATO=C XS No longer OFFED, no devices set up 
1939 x 
1940 * Now readdress the loop (Prinary only), use last address as 
1941 * a device count 
1942 x 
1943 F1A61 AC2 C=0 S$ Aluays loop 1 for ASSIGN I0 
1944 x 
1945 * Since D[A] 1s the end of the string and could look like 
1946 * a request to search for the device to START-, set D[0] to 
1947 * 1 (which always looks like an address, no search). This also 
1948 * ensures that the HP-71 is the controller on loop 1. 
1949 s 
1950 F1R64 BF3 DSL W 
1951 FIR67 E7 D=D+1 A D[O}] is now "1" 
1952 F1A69 850 ST=1  =sReadd Force readdressing 
1953 FIR6C 8EOO GOSUBL =START- Set it up (first nailbox) 
00 
1954 F1R72 560 GONC ASGNI5 Found it, controller...ok 
1955 F1A75 6E90 GOTO ASGNeR Not found or not controller...error 
1956 x. 
1957 x. 
1958 x 
1959 * If start returns with no carry, then last message in MBOX 1s 
1960 * the address nessage fron readdressing the loop 
1961 * 
1962 F1A79 BF? ASGNIS DSR W First restore D[A] 
1963 FIA7C 169 DO=D0+ 10 Position to the nessage in railbox 
1964 FIA7F 14E C=DATO B Read address 
1965 F1A82 189 DO=D0- 10 Restore DO 
1966 x 
1967 * Now C(B] 1s the last address 
1968 * 
1969 FIA8S DS B=C A Save count in B[B] 
1970 F1R87 CD B=B-1 A Decrerient for zero-based loop 
1971 x 
1972 FIA89 721C GOSUB Tresd0 Restore DO 
1973 FIA8D 8EOO GOSUBL =TSWAD1 Restore D1, save buffer pointer 
00 
1974 F1A93 118 C=RO 
1975 F1AR96 D7 D=C A Restore end of string pointer 
1976 . 


1977 * Now D1 1s restored, buffer pointer is in FUNCD1 
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1978 x 
1973 * Loop to get ASSIGN words, copy to assign buffer 
1980 x 
1981 F1A98 7BCB ASGN20 GOSUB Nxtchr Get first character 
1982 F1IASC 560 GONC = ASGN30 Have NOT reached end of string 
1983 FIASF 6ORB ASGN25 GOTO Endst Reached end (Done) 
1984 x. 
1985 a 
1986 F1AA3 8E0O ASGN30 GOSUBL =UCRANG Check if a letter (convert to UC) 
00 
1987 FAAS 5B1 GONC ASGN4O Now in [A-Z]...continue 
1988 FIARC 31A3 LCASC \:\ Not in [A-Z]...check if ":" 
1989 FIABO 966 RAC OB Is ita ":"? 
1990 F1AB3 FS GOYES ASGNER No...bad character error 
1991 FIABS 7EAB GOSUB Nxtchr Get next character 
1992 F1AB9 485 COC ASGNER End of list after ":"...error 
1993 FIABC 8E00 GOSUBL =UCRANG Check if a letter (convert to UC) 
00 
1994 FIAC2 4F4 GOC ASGNER Not in [A-Z]...error 
1995 x 
1996 * Letter...save in A[15:14] 
1997 x 
1998 F1ACS 8E0O ASGN4O GOSUBL =ASRC2 
00 
1999 FIACB 789B GOSUB Nxtchr Read next character 
2000 FIACF 411 GOC ASGN45 End of string...single letter word 
2001 FIAD2 8EOO GOSUBL =cATCH+ Check if letter or digit 
00 
2002 FIADS 4A0 coc ASGNSO Letter or digit...OK 
2003 FIADB 8E00 GOSUBL =BAKCHR Back up unconditionally 
00 
2004 FIRE1 DO 8 ASGN4S §=A=0 A Clear A[B] (single letter word) 
2005 x 
2006 * Valid uord...save it in buffer 
2007 x 
2008 FIAE3 8E00 ASGNSO GOSUBL =TSWAD1 Suap D1 with buffer pointer 
00 
2009 FIRES 8E00 GOSUBL =ASLC2 Rotate word back to A[3:0} 
00 
2010 FIREF 1593 DATI=A 4 Write the word out to the buffer 
2011 FIAF3 173 Di=Di+ 4 Increnent pointer 
2012 FIAF6 8E00 GOSUBL =TSWAD1 Swap D1 back 
Oo 
2013 : 
2014 * Ready for next character 
2015 x 
2016 FIAFC 7768 GOSUB Nxtchr 
2017 F1B0O 4&9 COC RASGN25 No next character (done) 
2018 F1B03 31C2 LCASC \,\ Got a character...check it 
2019 F1BO7 966 TAHC OB Is it a contria? 
2020 F1BOR 80 GOYES ASGNER No...error 
2021 F1IBOC Red B=B-1 8B Yes...devices left to get words? 
2022 FIBOF 588 | GONC  ASGN2O Yes...continue on 
2023 - 


2024 * Fall through to error (too many words) 
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2025 x 
2026 F1B12 20 ASGNER P= =eDSPEC Invalid Device Spec 
2027 F1B14 80C1 ASGNeR (C=P 1 Save P in C[{1] 
2028 F1B18 06 RSTK=C Save error (in C[B)) on RSTK 
2029 F1B1A 7AOO GOSUB ASGNda Deallocate assignio buffer 
2030 FIBIE 07 C=RSTK Restore error fron RSTK 
2031 F1B20 8001 P=C 1 Restore P fron C{1] 
2032 F1B24 60EA GOTO = Errorx Error exit 
2033 he 
2034 a 
2035 F1B28 20 ASGNda P= 0 Deallocate the ASSIGN buffer 
2036 F1B2A 3200 LC(3) =bPILAI 
0 
2037 FIB2F 8000 =I/odal GOVLNG =I/ODAL 
20 38 sas JOO I TO TIA II III ISI IIIS IIIS SIS SS SSS SII: 
2039 JOO TITEL TTT IIIS I STII ITI III ISIS SSS STIS 
2040 ax 
2041 ** Nane: DEVID - Return the device ID of the device 
2042 aR 
2043 ** Category: FNEXEC 
2044 ak 
2045 *k Purpose: 
2046 ak Return the device ID of the device indicated by the 
2047 a device specifier passed as a paraneter 
2048 a 
2049 *k Entry: 
2050 aR P=0 
2051 ak D1 points to the stack 
2052 ae DO points to the PC 
2053 a 
2054 ARO EMIAS 
2055 ax P=0 
2056 Ax D1 points to the stack (Device ID string) 
2057 ae Returns through FNRTN1 
2058 RX If device not found/doesn’t respond, null string 
2059 xk If bad device spec, error 
2060 am 
2061 aX Calls: DEVPAR, GETID+, ENDFN, TRESDO, <FNRTN1 >, <ERRORX> 
2062 ae 
2063 BR USCS 5:19 ds 
2064 . Inclusive: A,B8,C,D,RO-R3,D1,P,FUNCDO, FUNCD1 ,MLFFLG,ST[7,4:0] 
2065 x 
2066 ** Stk lvls: 4 (DEVPAR) 
2067 ak 
2068 kk History: 
2069 ay 
2070 a Date Progranner Modification 
2071 RO poGeeas. Soteuhowiee, “boos eo essa sae 
2072 ek 09/07/83 NZ Packed at DEVID3 
2073 KK 12/21/82 NZ Updated docurentation 
2074 - 
2075 JIS IOI TO TTI I IDR ITI II III III III IIIS SII ISDS ASIII A 
2076 JS RII TT TTR IIR KIKI III IIIS I IIIS SII IIIS SSS SII IK 


2077 F1B36 C11 NIBHEX C11 One paraneter, string or nuneric 


Saturn Asseribler 


BASIC ROUTINES <840116.1657> Tue Jan 17, 1984 11:42 an 


Ver. 3.39/Rev. 26 Page 42 
2078 F1839 7841 =DEVID GOSUB DEVPAR Get parameter 
2079 F1B3D 485 GOC DEVIDe Error 
2080 x 
2081 * Now D[A] 1s address of the device 
2082 x 
2083 : If D[AJ=0, then not found...return null string 
2084 
2085 F1840 AC3 D=0 S D[S] = length of ID in characters 
2086 F1B43 8AB 2D=0 =A Found? 
2087 F1B46 BO GOYES DEVID1 No...null ID 
2088 
2089 * Get the device ID of the device 
2090 x 
2091 F1B48 8E00 GOSUBL =GETID+ Get Device ID of device 
00 
2092 x 
2093 * GETID returns with the ID in A[W]. The length in characters 
2094 ; 1s in O[S]. A[B] is the first character of the ID. 
2095 
2096 FIB4E 474 GOC DEVIDe Error if carry 
2097 F1B51 DEVID1 
2098 & 
2099 * Nou D1 @ stack-16, D[S] 1s length of ID in nibbles, A[W] is 
2100 * device ID of the device 
2101 x 
2102 F1B51 ACB C=D $ 
2103 F1B54 80DF P=C 15 P 1s length in characters 
2104 F1BS8 17F Di=D1+ 16 Point to top of stack (first iten) 
2105 F1B5B 890 DEVID2 ?P= 0 Is length zero yet? 
2106 F1IBSE 31 GOYES DEVID3 Yes...done writing ID to stack 
2107 F1B60 1C1 D1=D1- 2 No...urite another byte 
2108 F1B63 149 DAT1=A B 
2109 F1Bo6 BF4 ASR W 
2110 F1869 BF4 ASR W Set up next data iten 
2t1t F1Bec OD P=P-} 
2112 FIB6E SCE GONC DEVID2 Go always (P was not zero) 
2113 x 
2114 x- 
2115 F1B71 DEVID3 
2116 x 
211? * Now write out the string header 
2118 & 
2119 F1B21 A46 C=C+C = § Convert to nunber of nibbles 
2120 F1B74 80DF P=C 15 Now P is nunber of nibbles 
2121 F1B78 AF2 C=0 W Clear C(W] for string header 
2122 F1B7B 80F2 CPEX 2 String length in ci2), P=0 
2123 x 
2124 * If carry, then length=8...increnent C{3] (C[M]}) 
2125 x 
2126 FIBZF 550 GONC DEVID4 
2127 F1IB82 B56 C=C+1 C{3]=1 
2128 F1B85 AOE DEVID4 (C=C-1 P C{O]="F" (string header) 
2129 F1BS8 8E00 GOSUBL =ENDFN Clean up loop (C saved in RO) 
00 
2130 FIB8E 7DOB GOSUB TresdO Restore DO value (PC) 


Saturn Asserbler BASIC ROUTINES <840116. 1657> Tue Jan 17, 1984 11:42 an 
{ Ver. 3.39/Rev. 2306 Page 43 


i 2131 F1B92 6CF1 GOTO = Fnrtnt Return, C[W] 1s string header 
2132 x 
2133 ae 
2134 F1B96 GE6A DEVIDe GOTO Errorx Error 
2435 SUIT OT ASA II ISIS IIS ISIE STII II DI ITAA 
21 36 JOT TO TTT TOTTI 
2137 ak 
2138 ** Wane: SPOLL - Execute the SPOLL function 
2139 ax 
2140 *k Category: FNEXEC 
2141 ae 
2142 tk Purpose: 
2143 ak SPOLL 1s a function which returns the status of the 
2144 &k device specified by either an address or a string 
2145 ak device specifier. 
2146 ak 
2147 tk Entry: 
2148 an P=0 
2149 aX DO points to PC 
2150 ak D1 points to the top of the stack (device spec) 
2151 ax 
2152 RX Exit: 
2153 ae P=0 
2154 ak Nuneric value on stack (D1 points to top of stack), 
2155 ak value = -1 if device not found or no response 
2156 ig (the numeric value 1s the decinal equivalent of the 
2157 kh first 4 bytes of device status...because tore than 
2158 RX four bytes nay lose accuracy in the conversion to 
2159 ak decinal; 2°(8*5) is about 1.1£+12, which would lose 
2160 x% a small anount of precision in the FIRST byte. 
2161 * The first byte is SPOLL(x) mod 256, etc 
2162 ax Returns through FNRTN4 
2163 7 If error, exits through ERRORX 
2164 am 
2165 &* Calls: DEVPAR, YTML, READRG, <DEVTYx>, <ERRORX> 
2166 ae 
2167 tk Uses......- 
2168 ak Inclusive: A,B,C,D,RO-R3,D1,P,FUNCDO,FUNCD1 ,MLFFLG, ST[7,4:0] 
2169 a 
2170 ** Stk lvls: 4 (DEVPAR) 
2171 ax 
2172 x 
2173 ** History: 
2174 ak 
2175 as Date Progranner Modification 
2176 a aa aaa aaa acacia aaa 
2177 kK 3/15/83 NZ Renoved extra START call @ SPOL10 
2178 kK 02/25/83 NZ Modified to change order of bytes 
2179 Rk 02/24/83 SC Wrote routine 
2180 ax 
2181 JOIST II TT III IIIT TTI OT TIT O TI STITT III III IAI SITS IIA 
21 82 FORO OI I TI TTI 
2183 FIBSA C11 NIBHEX C11 1 paraneter, either nuneric/string 
2184 FiBSD 74—O =SPOLL GOSUB DEVPAR Process device specifier 


2185 FIBR1 403 GOC FINDer Error 
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2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 


2198 
2199 
2200 
2201 
2202 


2203 


2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
222? 
2228 


2229 


2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 


FIBR4 93F 
FIBA? 60 


FIBAS 65CO 


FIBAD 8£00 
00 
F1BB3 482 


FIBB6 3500 
0000 
FIBBE 8E00 
00 
FIBC4 4A 
FIBC? 948 
FiBCA FD 
FIBCC AF2 
FIBCF 2? 
FIBD1 A96 
F1BD4 6680 
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k 
* D[X] 1s the device address (D[X]=0 if not found) 
k 

7DRO OX Was the device found? 

GOYES SPOL10 Yes...continue 
k 
* If device not found, return -1 
k 
SPOLOS GOTO ODEVTYS 
k 
a 
SPOL10 GOSUBL =YTML Nake the device as a talker 


GOC FINDer Error 
* Only the first 4 bytes are returned, but READRG expects 8 
* 


LC(6) (=nSST)+#8 Send ready frane SST, count=8 


GOSUBL =RERDRG Read into A[W] 

GOC FINDer Error 

*D=0 =§ Any response? 

GOYES SPOLOS No...return -1 

C=0 W Clear high 4 bytes 

P= 7 

C=A WP Return only first 4 bytes 

GOTO 3=DEVTYx Convert to floating nunber, exit 
JOO IO III IOI TTI IO III TO TIE ITI TIT IK 


JOTI IIIT OO III TIO OI TOTO TOT IT TIO 


to 
** Name: FIND - Execute the DEVADDR function 

tok 

** Category: FNEXEC 

tk 

** Purpose: 

ak FIND 1s a function which returns the address of the 

ae device specified by either an address (trival case) or 
** a string device specifier 

ax 

&* Entry: 

se P=0 

aS DO points to the PC 

on D1 points to the stack (device specifier on stack) 

is 

RX ERIE: 

KK P=0 

ae Nuneric expression on stack (01 points to the address) 
a (-1=not found, else address) 

ae Returns through FNRTN4 

‘* If error, exits through ERRORX 

ar 

ek Calls: DEVPAR ,HTOD, CSLO12, <DEVTY4>, <DEVTY5>, <ERRORX> 
kk 

RP USS eae aici 
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2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 


2261 
2262 
2263 
2264 
2265 
2266 


2267 
2268 
2269 
2270 


2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 


2282 
2283 
2284 
2285 
2286 
2287 
2288 


F1BD8 
F1BDB 
Fi BOF 


F1iBE2 
F1BE4 
F1BE6 
FIBER 
FIBEE 


FIBF4 


F1BF6 
FIBF8 


FIBFD 
F1CO1 
F1C04 
FICO? 


FiCOD 
F1COF 
Ficit 
F1C14 
FIC16 
F1C18 
FICIA 
FIC1D 


F1C23 
F1IC26 
F1C28 


C11 
76R0 
455 


D2 


StF 4 
OEF?7 
8E00 


320E 


OEF 7 
BB6 
8iE 
8£00 


AF2 
D6 
F2 
F2 
RES 
8£00 


934A 
70 
BF6 
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** Inclusive: A,B,C,D,RO-R3,D1,P,FUNCDO, FUNCD1, MLFFLG, ST[7,4:0] 
ke 


** Stk lvls: 4 (DEVPAR) 


ak 
** History: 

xx 

x Date Progranner Modification 

DNS ri enek! “(eee clay. etait es ad aetna eat) 
Kk 42/21/82 NZ Updated documentation 


wk 
ORR JOO OUI TI TO TTT IK 
FOTO JIT ITT 


NIBHEX (11 One argurient, string or numeric 
=FIND  GOSUB DEVPAR Evaluate the device specifier 
FINDer GOC FINDER Error 
x 
* Convert D[X] to a floating number address 
x 

C=0 A 

p= 0 

LC(2)  #1F Get primary address 

C=C&8D A 

GOSUBL =HTOD Convert to decinal (in B[X]) 

A-B OR Save in A[X] 

x 
* Now A[X] is the prinary address value 
x 

P= 0 

LC(3) #3E0 Mask for secondary address 

C=C&D A C[X] is secondary * 32 

CSR XK Cannot be CSR A:need C[XS]=xxx0(2) 

CSRB C[B] 1s secondary address 

GOSUBL =HTOD Convert to decinal 


* Now DECIMAL node, B[X] 1s secondary address, A[X]) is prinary 
k 


SETHEX 

P= 9 HTOD leaves P non-zero 

C=0 W 

(=A OA Copy ALB] (A[4:2]=0) 

CSL A 

CSL A 

C=8 B Now C[3:2] is prinary, [B] is sec 
GOSUBL =CSLC12 Rotate into C(15:12] 


If C{S] is non-zero, shift RIGHT 1 nibble, add 1 to exponent 
(address is >= 10) 


* % OF 


7C=0) = § 
GOYES FIND1IO 
CSR W (Exponent, low nantissa = 0) 
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2289 FIC2B £6 C=C+1 A C{x]=1 
2290 FIC2D FIND10 
2251 x 
2292 * Nou C{W}] 1s value, D1 points to the stack 
2293 a 
2294 FIC2D S7E CHO) OW Is it zero? (not found) 
2295 FIC 13 GOYES DEVTY4 No...value is OK 
2296 F1C32 5C3 GONC =DEVTY5 Yes...return -1 (not found) 
2297 - 
2298 a 
2299 F1C35 6FC9S FINDER GOTO Errorx Error 
20 JOO III IIIS OO II TOC III TTI IIIT TAK 
M1 ee teteeti tte esettttettett tt tecetettttttetettttttett ties tt tete. 
2H2 me 
2H3 ** Nane: DEVTYP - Execute the DEVAID function 
24 ak 
205 ** Category: FNEXEC 
2X6 ax 
27 *x Purpose: 
2H8 nic DEVTYP returns the accessory ID of the device indicated 
2309 ax by the device specifier 
2310 xh 
2311 x Entry: 
232 ae P=0 
2313 xe D1 points to the stack (device specifier on the stack) 
2314 aS 0 points to the PC 
2315 eA 
2316 BA EMIT? 
2317 ae P=0 
2318 ae Nurieric expression for accessory ID (-1 if no response) 
2319 xe Returns through FNRTN4 
2320 ex Exits through ERRORX if error 
2321 aK 
2322 ** Calls: DEVPAR ,GTYPE,FLORT!, ENDFN, TRESDO, <FNRTN4 >, <ERRORK> 
2323 ee 
2324 RE MGB Gs os oat 
2325 *x Inclusive: A,B,C,D,RO-R3,D1,P,FUNCDO, FUNCD1 ,MLFFLG, ST[7,4:0] 
2326 aK 
2327 ** Stk lvls: 4 (DEVPAR) 
2328 
2329 ** History: 
2330 ak 
233) i Date Progranner Modification 
2332 BR. panos GSS a Eee ROE adem eho etm aienic ns 
2333 ax 05/17/83 NZ Changed return fron GTYPE 
2334 KA 12 F21/82 NZ Added docunentation 
2335 aes 
2336 OOOO ROR 
2337 FORO OUI TOO III OI TOI IOI RO 
2338 FIC39 C11 NIBHEX C114 One paraneter, string or nuneric 
2339 FIC3C 7540 =DEVTYP GOSUB DEVPAR Get device paraneter 
2340 FIC4O 404 COC DEVTYe Error 
2341 x 
2342 


2343 


* Nou DO points to the mailbox, D[X] 1s the address 
X 


11:42 an 
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2344 F1C43 8AB 

2345 F146 92 

2346 FIC43 8E00 
00 


7D=0) OAR 
GOYES DEVTY5 
GOSUBL =GTYPE 


Was the device found? 
No...return -1 
Get device type for the device 


2347 FIC4E 423 GOC DEVTYe Error...exit 

2348 FiC51 8A8 7A=0 =~ Was it "NO RESPONSE"? 

2349 FiC54 B41 GOYES DEVTYS Yes...return -1 

2350 F1CS6 AF2 C=0 Wd 

2351 F1C59 D6 C=A A Copy all info returned fron GTYPE 


2352 FICSB 8EOO DEVTYx GOSUBL =FLOAT! Convert to floating point # 
0 

2353 F1C61 8EOO DEVTY4 GOSUBL =ENDFN Clean up the loop 
00 

2354 F1C67 743A GOSUB Tresdd Restore DO 

2355 FIC6B 6F02 GOTO = Fnrtn4 Return the value 

2356 x. 

2357 x. 

2358 FIC6F 7300 DEVTYS GOSUB LOAD-1 Load a -1 into C[W] 

2359 F1C73 SDE GONC DEVTY4 Go always 

2360 x. 

2361 a. 

2362 F1C76 AF2 LOAD-1 C=0 W 

2363 FIC79 2E P= 14 

2364 FIC7B 3119 LCHEX 91 This is ~-1 

2365 FIC7F 03 RTNCC 

2366 a 

2367 ke 

2368 F1C81 6389 DEVTYe GOTO  Errorx Error 


2369 JOO OOO I TIO TC TIT EI III TI III IIS TAT I 
2370 JI OI ITI TIT OTIS RR III I III IS III ITI III III IAT IT 
2371 aR 

2372 ak Wane: DEVPAR - Parse a device specifier on the stack 
2373 xk Nare: DEVPR$ - Parse a string device spec on stack 
2374 xk 

2375 ** Category:  PILUTL 

2376 ak 

2377 xk Purpose: 

2378 x Decode a device paraneter (for functions which accept 
2379 ae one parameter, either string or numeric, for device 
2380 ak specifier) 

2381 aK 

2382 ** Entry: 

2383 gis P=0 

2384 ak HEXMODE 

2385 ak DEVPAR: 

2386 a D1 points to the paraneter on stack 

2387 ig DEVPRS: 

2388 a D1 points to string header (String is reversed) 
2389 aS ST(sSTK)=1 

239 “eh 

2391 kX Exit: 

2392 ae FUNCDO contains the calling routine’s DO value 

2393 ak Carry clear: OK...D[X] is address (0 if not found) 
2394 ak D1 set up for 1 nuneric paraneter return 

2395 aE DO points to the nailbox 
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2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 


243? 
2438 
2439 
2440 
244) 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2443 


F1C85 
F1IC85 1537 
F1C89 850 
F1iC8C BO4 
FIC8F A64 
FIC92 968 
F1IC95 Fe 


FIC9? 7EF9 
FICSB 78EA 


FICSF 8EOO 
00 
FICAS 0? 


FICA? 6060 


FICAB O 
FICAC 
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oe Carry set: Error...P, C[O] set up for ERRORX 
** Calls: TSAVDO, POP1N, GADRRM, REVPOP, <DEVPR$> 
. DEVPR$: TSAVD1 , GETDIX, TRESD1 
*e Uses....... 


. Inclusive: A,B,C,D,RO-R3,D1,P,FUNCDO, FUNCD1 , NLFFLG,ST[7,4:0] 
x 


aX Stk lvls: 3 (GETDIX - tuo levels saved in RO) 
ka 


** History: 

ak 

a Date Progranner Modification 

AA Geos. seb as 8 «mae aga ee cel wane aetna 
xk 01/06/84 NZ Made setting of MLFFLG a GOSUB so 
a code can be shared by READxxxx and 
aa STATUS; rroved call to the routine 
xk so that DEVPR$ also sets MLFFLG 
kk 03/16/83 NZ Changed error return fron GETDIX 
xk 03/15/83 NZ Added second stack level save for 
an call to GETDIX 

RK 12/21/82 NZ Updated docunentation 

xk 


FOI IIIT IOI OO IOI OO TCO ICI IIIT 
FOI I IIIT TIO IOI IOI ITO TI ITI IK 


=DEVPAR 


R=DAT1 W Read in the iter fron the stack 
ST=1-=sSTK GADDRN needs this if not a string 
A=A+1 P 

A=A+R B Clear bit for string array 

*A=0) OB Is this a string? 

GOYES DEVP10 Yes...string device spec 


* Not string...check for legal input 
x 


GOSUB Tsavd0 Save DO in FUNCDO (exit condition) 
GOSUB Popin Pop one nuneric iten into AW] 


* Now A[W] 1s the numeric iten 

* 
GOSUBL =GADRRM Get address fron RAN (use A[W]) 
d=C A Put address into D[A] 


* If carry clear, C[X] 1s address else error 
x 


GOTO  DEVP20 Check error, continue, C[A] is addr 
k 
ke 

CON(1) =FIXSPC 3 nibbles available here 

BSS 3-1 


ke 
ke 
x 


* Set the MLFFLG to "F" (Sets A[A] to DO value, C[O] to "F") 
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2450 
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2451 FICRE 132 MLFG=F ADOEX 


2452 F1CB1 1B00 
000 

2453 FICB8 30F 

2454 F1ICBB 150 

2455 FICBF 130 

2456 FiCC2 01 

2457 

2458 

2459 FICC4 

2460 

2461 

2462 

2463 FICC4 8F0O 
000 

2464 FICCB 137 

2465 FICCE D7 

2466 FICDO C2 

2467 FICD2 135 

2468 FICDS 1CF 

2469 FICD8 8E0O 
00 

2470 FICDE DF 

2471 FICEO 135 

2472 

2473 

2474 

2475 

2476 FICE3 07 

2477 FACES 7A89 

2478 FICES 07 

2479 FICEB 108 


2480 

2481 

2482 

2483 FICEE 8E00 
00 

2484 


2485 FICF4 128 

2486 FICF? 06 

2487 FACES 7079 

2488 FICFD 06 

2489 FICFF 118 

2430 

2491 

2492 

2493 F1DO2 8ECD 
2F 

2494 

2495 

2496 

2497 

2498 

2499 F1D08 461 


xe 
7 


DO=(5) =MLFFLG 


LC(1) #F 
DATO=C 1 
DO=A 

RIN 


DEVP10 
* 


x 


=D 


* + @ 


OF 


ee Me Oe OO 


GOSBVL =REVPOP 


EVPR$ CDIEX 
B=C 
C=C+A 
D1=C 
D1=D1- 16 
GOSUBL =TSAVD1 


»>D 


CDEX A 
D1i=C 
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Save DO in ALR] 


Set C(O]="F" 
Write it out 
Restore DO fron A[A] 


String iten...set it up, call GETDIX with ST(sSTK)=1 
x 


Reverse the string, POP it 


D points to start of string 

C{A] points to end of string 
Now D1, C{[R] at end of string 
Point to where nuneric should go 
Save in FUNCD1 


D[A] at end of string,C{A] at start 
Set D1 to the start of string 


Now D(A], D1 are set up for a call to GETDIX (Later entry 


into GETDID) 


C=RSTK 

GOSUB CslcS 
C=RSTK 

RO=C 


Save 2 RSTK levels in RO 


GETDIX saves DO in FUNCDO... 


GOSUBL =GETDIX 


CROEX 

RSTK=C 

GOSUB Csrc5 
RSTK=C 

C=RO 


Get device address (in D[X]}) 
Save C[W] in RO... 
Restore first level... 


Restore second level 
Restore C[R] value 


Now restore D1 value for exit, then check error 


GOSUBL Tresdi 


D1 @ next iten on stack 


01 is now where next item goes, C{A] is address,B[W] is type 


If carry, had an error (GETDIX did START) 


DEVP20 GOL DEVP25 


Go if error 
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2500 
2501 


2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2627 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2002 
cod 


F1IDOB 7FSF 
FIDOF 8£00 
00 
F1D15 490 
F1D18 96F 
FIDIB 41 


F1D1D 20 


FIDIF 880 
FiD22 00 
F1D24 80F0 
F1D28 880 
FID2B 60 


F1ID2D D3 
FIO2F 03 


F1D31 80FO 
F1D35 02 


F1D3? 0 
F1D38 


BASIC 


DEVP23 


x 
x 
x 


x 
x 


(Test 


Error. 


DEVP25 


x 
x 
x 


Error 


DEVPcc 
ke 


x. 


DEVP30 


xe 
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GOSUB NMLFG=F Set MLFFLG to "F" 

GOSUBL =START (START for DEVP20 entry) 

GOC DEVP25 Error...check what it is 

*DHO OB Is this a valid device spec? 

GOYES DEVPcc Yes...return, carry clear 

at DEVP25 i111 be true, hence RINSC...packing technique) 

P= =eDSPEC No...Invalid Device Spec 

..check if "NOT FOUND" or sorething else 

?PH =ePIL PIL error? 

RTNYES No...sone other error 

CPEX 0 

°P#H =eNOFND NOT FOUND? 

GOYES DEVP30 (Set carry 1f not found) 

was "Device not Found"...set D[A}]=0, continue 

D=0 A 

RTNCC 

CPEX 0 Restore C[0],P 

RTNSC Set carry = error 

CON(1) =FIXSPC 1 nibble available here 

BSS 1-1 


FOI III IID OO TO TT TOOT ITO OI TI II 
JO III III OO OTT TTI OO OTTO OI IIIT OT IIT II ITI N 


ak 


Narie: 


READIN - Execute the READ INTR function 


Category: FNEXEC 


Purpose: 


Read the interrupt cause byte for the specified loop 
and return the value as a decinal nunber 


Entry: 


Exit: 


P=0 

D1 points to the stack 

C{S]=nunber of paraneters supplied by user 

If C[S]=1 then top of stack contains a nuneric value 


Numeric result on top of stack 
01 at top of stack 

P=0 

Returns through FNRTN4 


Calls: GETLPs, PUTGF-, LOAD-1,FLOAT!, TRESDO, <FNRTNI > 
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2554 ax 
2555 AX SOS. esses 
2556 *x Inclusive: A,B,C,D,RO,01,P,FUNCDO, ST[5, 3:0] 
2557 ae 
2558 MX Stk lvis: 3 (GETLPs) 
2559 ax 
2560 *k History: 
2561 ax 
2562 a Date Progranner Modification 
2563 RM emcee eee eee w ence cece ener ere ener ncn e ern nner eee 
2564 Rk 12/01/83 NZ Updated docunentation 
2565 tk 08/03/83 NZ Added optional loop # (sharing 
2566 tk code with STATUS) 
2567 tk 95/20/83 NZ Changed to save nessage in B[A] 
2568 aK anstead of A[A] thru FNDNB- 
2569 tk 02/28/83 NZ Changed to use TSAVDO & TRESDO 
2570 ax instead of SAVEDO & RESTDO 
2571 ak Reworked routine to reduce code 
2572 kK 02/07/83 SE Wrote routine 
2573 ak 
2574 JOIST IOI ECO CCT OTT TATA 
2575 JU IICISIDOOIIIOICI IO IITA IT 
2576 FiD38 20 «=R&CVEU P= 0 
2577 FID3AR 300 LC(1) =eUNEXP Unexpected frane 
2578 F1D3D 20 P= =ePIL 
2579 FID3F 65C8 R&CVER GOTO Errorx 
2580 x 
2581 7 
2582 F1D43 801 NIBHEX 801 Zero or one nuneric parameter 
2583 F1D46 7060 =READIN GOSUB GETLPs Get (optional) loop # from stack 
2584 FID4A 44F GOC R&CVER Error with loop 
2585 F1ID4D 3100 LC(2)  =nREADI 
2586 F1D51 845 ST=O0) 5 
2587 F1D54 8E0O RD&CVT GOSUBL =PUTGF- Read the byte fron nailbox 
00 
2588 FID5A 44E GOC R&CVER 
2589 FIDSD 880 ? PH =pDIRGL Contents of location? 
2590 F1ID60 8D GOYES R&CVEu No...unexpected frane 
2591 F1D62 20 P= 0 
2592 F1064 DA A=C A Yes,..save in A[B] 
2593 F1D66 865 ?$T=0 «5 Read interrupt cause? 
2594 F1D639 61 GOYES FCNRT1 Yes...return all 8 bits 
2595 ‘ 
2596 : READDDC...af zero, return -1, else return top 6 bits 
2597 
2598 F1ID6B 96C PAHO OB Any DDCs received? 
2599 FID6E 90 GOYES R&CV10 Yes...return 6 bits 
2600 F1D70 720F Fnrtn- GOSUB LOAD-1 No...return -1 
2601 F1D74 561 GONC = Fnrtn. Go alnays 
2602 os 
2603 ae 
2604 F1D77 31F3 R&CV1O0 LCHEX 3F Only 6 bits for DDC 
2605 F1D7B OEF6 A=A&C OA 
2606 FID7F AF2 FCNRT1 C=0 W 
2607 FiD82 AE6 C=A B Copy ALB] for conversion 
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2608 F1D85 8E00 GOSUBL =FLOAT! 
00 

2609 F1D8B 7019 Fnrtn. GOSUB TresdO Restore PC from FUNCDO 
2610 FiD8F 8D00 Fnrtni GOVLNG =FNRTN1 Exit with merory check 
2611 oe $I IOI IO II III III IIT TI I III I ITT T IIIT II 
2612 JO I TO OO IIE TI TID IIT IT TTT TTT 
2613 ak 
2614 ** Nane: READDC - Execute the READDDC functino 
2615 xx 
2616 *k Category: FNEXEC 
2617 ax 
2618 ** Purpose: 
2619 ax Return the last device dependent cornmand received (low 
2620 ax 6 bits of the DDT or DDL frame) as a decimal number 
2621 ak 
2622 &* Entry: 
2623 ax D1 points to the stack 
2624 a C[S] is the number of paraneters passed to the function 
2625 ax If C[S]=1, there is a numeric expression on top of stack 
2626 x P=0 
2627 a 
2628 ak Exit: 
2629 ae D1 points to the top of the stack 
2630 ex P=0 
2631 a Returns through FNRTN1 
26 32 ay 
2633 && Calls: GETLPs , <RD&CVT> 
2634 ae 
2635 RA USCS ae Siu dei 
26 36 ** Inclusive: A,B,C,D,RO,D1,P,FUNCDO, ST[5, 3:0} 
2637 ae 
2638 ** Stk lvls: 3 (GETLPs) 
2639 x 
2640 ** History: 
2641 ay 
2642 aX Date Progranner Modification 
2643 RK enn ne enn e ree meen nnn nen re nen nee eee e nee 
2644 *k 08/03/83 NZ Modified to take a loop # 
2645 tk 02/28/83 NZ Updated docunentation 
2646 Rk 02/07/83 sc Wrote routine 
2647 aK 
2648 FORO IOI III TI III IO TIO IOI III IOI. 
2649 FORO IOI OOOO OIRO III II IOI: 
2650 FID96 801 NIBHEX 801 Zero or one nuneric parareter 
2651 F1D99 7D0O =READDC GOSUB GETLPs Get (optional) loap # fron stack 
2652 FID9D 471A GOC R&CVER Error with loop specifier 
2653 FIDAO 3100 LC(2) =mREADC Read last ddc 
2654 FiDA4 855 ST=1 5 
2655 F1iDAR? SCA GONC RD&CVT Go aluays 
2656 FOR ROJO ROIS SOI III IGE IOI ROIS CIO 
2657 FORTIS 
2658 at 
2659 ** Nare: GETLPs - Get (optional) loop #, check status 

as 


2660 
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2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
269% 
2691 
2692 
2633 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 


2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 


F1DAA 
F1DAE 
FIDB2 
F1DB5 
F1DB? 
F1DBB 
FIDBE 


FiDC4 


F1IDC? 
F1DC9 
FIDCC 
FIDCE 
F1DDO 


700F 
77E8 
94A 
B2 
7(C9 
42 
8£00 


432 


D2 
He 
DD 
20 
CE 
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** Category:  PILUTL 


kk 
xx 
xx 
xk 


ax 
xx 


Purpose: 


Check 1f a loop nurber was passed to a function; 1f 
so, get that mailbox, else get first mailbox. 
Check the status of the mailbox (reset?, etc) 


Entry: 


P=0 

D1 points to the top of the stack 

C{S} is the parameter count (0 or 1) 

If C[S]=1, there is a nuneric value on top of the stack 


Exit: 


Carry clear: 
P=0 
DO) points to the nailbox 
Mailbox status in C[X] 
D1 at (neu) top of stack (loop nunber is popped off) 
FUNCDO contains the caller’s DO 
Carry set: 
Error (P, C(O] are the error code) 


Calls: TSAVDO , POP1N, GHEXB+, <FNDCHK > 


Inclusive: A,B,C,D,RO,DO,D1,P,FUNCDO, ST[3:0] 
Stk lvls: 2 (TSAVDO)(GHEXB+) (<FNDCHK>) 


History: 
Date Progranner Modification 
12/01/83 NZ Added docunentation 


SO IJ OTTO TTI IIIT IOK 
FOO III RI TOT TOTO TTT TIT ITI N 


=GETLPs GOSUB MLFG=F 


x 


Set MLFFLG to indicate loop changed 


GOSUB Tsavd0 Save PC in FUNCDO 

c=0) = S Loop nunber specified? 

GOYES Fndchk No...use default (=first loop) 
GOSUB Popin Yes...get value fron stack 

GOC GETLPe If corplex number, error 
COSUBL =GHEXB+ Convert value into HEX byte 
COC Errorx Error 


* B[B] is now the value of the expression (B[4:2]=0) 
k 


C=0 RA 

iC(1) 2 Max of 3 loops (0,1, or 2) 
BCEX A Loop nunber in C[A] 

P= =eRANGE 


C=C-1 A Convert user input to base zero 
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2715 FiDD2 451 
2716 FIDDS 885 
2717 FIDD8 O14 

2718 FIDDA 816 
2719 FIDDD 17F 


2720 FIDEO 8C00 
0 

2721 

2722 


2723 FIDE6 20 
2724 FIDES 6€18 
2725 
2726 
272? 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
274? 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
e762 
2763 
2764 
2765 
2766 
2767 
2768 
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GOC Errorx 
7B«C OR Is the loop nunber less than 2? 
GOYES Errork No...error 
CSRC C{S] is now loop nunber 
D1=D1+ 16 Pop the numeric field off the stack 
Fndchk GOLONG =FNDCHK Find the mailbox (P can be non-0) 
ke 
ke 
GETLPe P= =eNNUMR Not nuneric data 


ErrorxX GOTO Errorx 
JOTI III IO OCI OIC I IIIT TIO II TIT ITI ITI TR TI TOT IIR 


FOI OI IIIT TO OI TOT TIT IT 
ax 


x* Nane: STATUS - Execute the STATUS function 

aa 

** Category: FNEXEC 

k 

** Purpose: 

me Return mailbox status as a nuneric value 

a 

** Entry: 

x P=0) 

KR D1 points to the top of the stack 

ak C{S]=Nurber of paraneters passed to this function 

KK If C[S]=1, there 1s a numeric value on top of the stack 
kk 

RA EMITS 

ne P=0 

ae D1 points to the top of the stack 

i Nurieric value for STATUS on top of the stack 

a Returns through FNRIN1 

tok 

** Calls: GETLPs, GETHSS, <FCNRT1 >, <FNRTN-> 

kk 

BE USES a eee 

** Inclusive: A,B,C,D,RO,01,P, FUNCDO, ST[11:0] 

aa 

** Stk lvls: 3 (GETLPs) 

re 

** History: 

aK 

mA Date Progranner Modification 

We teckeaes imo escsts. wsucomutceta.cuc tec eueteeecsa 
KK 12/01/83 NZ Updated docunentation 

At 08/03/83 NZ Changed first part to a subroutine 
z to do multiple loop READINTR/DODC 
tk 06/16/83 NZ Changed -1 return to pack code 

xe 03/09/83 NZ Changed where PC 1s saved to RAN 
RK 03/07/83 NZ Fixed bug with mailbox not found, 
ax added call to GETERR to clear 

we error bit in mailbox 

Ak 02/28/83 NZ Added check for insufficient nen, 
as nallbox out of range, packed, 


ae updated docunentation 
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2769 kK 92/08/83 sc Wrote routine 
2770 ak 
2774 JOISTS IOUS IGT TOR 
2772 JO IOI IOI OOS GIST OI TIT ITS IT IASI 
2773 FADEC 801 NIBHEX 801 
2774 FIDEF 77BF =STATUS GOSUB GETLPs Get loop number, check status 
2775 & 
2776 * If carry clear, C[X] 1s the Diamond status 
2777 x 
2778 FiDF3 SBO GONC STATIO Rll OK...continue STATUS execution 
2779 F1IDF6 880 PH =eNMBOX Is error "No mailbox"? 
2780 FIDF9 FE GOYES Errorx No...error exit 
2781 FIDFB 647F GOTO = Fnrtn- Yes... return -1, restore PC, exit 
2782 a. 
2783 a 
2784 sStanb EQU ? 
2785 sLA EQU 6 
2786 sCA EQU 5 
2787 sTR EQU 4 
2788 sSRQR  EQU 3 
2789 sEar EQU 2 
2790 sReriot EQU 1 
2791 sLLout EQU 0 
2792 x 
2793 FIDFF O08  STATIO CLRST Initially clear all status bits 
2794 FIEO1 F2 CSL A 
2795 F1EO3 F2 CSL. oA C{4:2] is the loop status now 
2796 FIEOS C6 C=C+C A Bit 11: Local Lockout 
2797 FIEO7 550 GONC STAT21 Clear 
2798 FIEOR 850 ST=1— sLLout Set Local Lockout bit 
2799 FIEOD C6 «= STAT21 «C=C+C A Bit 10: Renote 
2800 FIEOF 550 GONC STAT22 Clear 
2801 FIEI2 851 ST=1  sRenot Set Renote bit 
2802 F1E1S C6 = STAT22 C=C+C A Bit 9: Manual node (ignored) 
2803 FIE17 C6 C=C+C A Bit 8: Data available (ignored) 
2804 F1E19 C6 C=C+C A Bit 7: Controller Standby 
2805 F1IE1B 550 GONC STAT23 Clear 
2806 FIEIE 857 ST=1 — sStanb Set Controller Standby bit 
2807 FIE21 C6 STAT23 C=C+C A Bit 6: EAR enabled 
2808 FIE23 550 GONC STAT24 Clear 
2809 FIE26 852 ST=1— sEar Set ERR enabled bit 
2810 FIE29 C6 = STAT24 = C=C+C A Bit 5: Configured (ignored) 
2811 FIE2B C6 C=C+C A Bit 4: Interrupt pending(ignored) 
2812 FIE2D C6 C=C+C A Bit 3: Systen Controller(ignored) 
2813 FIE2F C6 C=C+C A Bit 2: Talker Active 
2814 F1E31 550 GONC § STAT25 Clear 
2815 F1E34 854 ST=1— sTA Set Talker Active bit 
2816 FIE37 C6 =STAT25 C=C+C A Bit 1: Listener 
2817 F1E39 $50 GONC STAT26 Clear 
2818 FIE3C 856 ST=1 sf Set Listener bit 
2819 FIE3F C6 STAT26 C=C+C A Bit 0: Controller Active 
2820 F1E41 550 GONC STAT2? Clear 
2821 F1E44 855 ST=1 sf Set Controller Active bit 
2822 FIE4? OB = STAT27 CSTEX C{B] is now the byte for STATUS 


2823 F1E49 DA A=C A Put STATUS into A[B] 
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2824 F1E4B 8E00 GOSUBL =GETHSS Get handshake nibble fron mailbox 
00 
2825 FIE51 860 ?ST=0 ==hsLPRQ SRQ received on loop? 
2826 F1E54 AO GOYES STAT30 No...leave the bit clear 
2827 F1ES6 3180 LC(2) 27sSRQR Yes...set the SRQR bit 
2828 FIE5SA OEFE A=AIC A 
2829 FIESE 602F STAT GOTO  FCNRT1 Restore PC, convert to float&exit 
2830 JID TIO II IOI II IIIS IIIS ITT III TH 
2831 JO IO III IE TIE IT TIT TTI ISI IIIT TSI ID IASI SSSI AS 
2832 ae 
2833 ** Nane: BINAND - Execute the BINAND function 
2834 ** Nare: BINIOR - Execute the BINIOR function 
2835 ** Narie: BINEOR - Execute the BINEOR function 
2836 ** Nane: BINCNP - Execute the BINCMP function 
2837 ** Narie: BIT - Execute the BIT function 
2838 kk 
2839 xk Category: FNEXEC 
2840 ax 
2841 ** Purpose: 
2842 ae Binary functions: 
2843 kk BINAND: Return the binary AND of tio nunbers 
2844 Se BINIOR: Return the binary inclusive OR of tio nunbers 
2845 a BINEOR: Return the binary exclusive OR of tito nunbers 
2846 as BINCMP: Return the binary conplenent of a nunber 
2847 an BIT: Return the value of a specific bit in a nurber 
2848 ei 
2849 ** Entry: 
2850 ae P=0 
2851 ax D1 points to the top of the stack 
2852 fs Tio values on top of the stack (only one for BINCNP) 
2853 
2854 xt Exit: 
2855 - P=0 
2856 a Returns through FNRTN4 
2857 a 
2858 RE Calls: POP2DH, POPIN(BINCNP) ,FLOAT!, <FNRTN4 >, <ERRORX> 
2859 aR 
2860 AX MSCS sco aw ye 
2861 ** Inclusive: A,B,C,D,D1,P,RO0 
2862 ae 
2863 ** Stk lvls: 3 (POP2DH) 
2864 = 
2865 ** History: 
2866 1% 
2867 “st Date Progranner Modification 
2868 i ea ea a a a 
2869 *% 03/01/83 NZ Changed to aluays return non- 
2870 -> negative value 
2871 aK 02 £28/83 NZ Changed FLTRTN to do processing 
2872 ate here 
2873 ** 02/08/83 SC Wrote routines 
2874 kk 
2875 JUSSI II II UII IRI ISU IOI TOI TOI ot 
2876 FOI ROTO OOOO OOOO GOI OIG III OR I OIG IOI Ok 


2877 FIEG2 8822 


NIBHEX 8822 
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2878 FIE66 7080 

2879 FIEGA OEF6 

2880 FIE6E 

2881 

2882 

2883 

2884 

2885 FIEGE D3 

2386 

2887 FIE70 AF2 

2888 F1E73 D6 

2889 FIE75 8&00 
00 

2890 FIE7B 8D00 
000 

2891 

2892 FIE82 8822 

2893 FIE86 7D60 

2894 FIE8R OEFE 

2895 FIE8E OF DF 

2896 

2897 FIE92 8822 

2898 F1E96 7050 

2899 

2900 

2901 

2902 FIESA D8 

2903 FIESC FE 

2904 FIESE OEF6 

2905 FIEA2 DC 

2906 FIER4 FC 

2907 FIER6 DB 

2908 FIER8 OEF6 

2909 FIEAC OEF8 

2910 FIEBO 6DBF 

2911 

2912 FIEB4 811 

2913 FIEB? 7CC8 

2914 FIEBB 474 

2915 FIEBE 7860 

2916 FIEC2 564 

2917 FIECS FC 

2918 FIEC? 66AF 

2919 

2920 FIECB 8822 

2921 FIECF 7420 

2922 

2923 

2924 

2925 

2926 FIED3 01 

2927 FIEDS E5 

2928 FIED? CC 

2929 FIEDS 4D0 

2930 FIEDC C5 
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=BINAND GOSUB POP2DH Pop 2 values 
A=ARC OR 

FLTRTN 

* 


* Following instruction is not needed any nore (overlooked on 
* 3/1/83 change) 
* 


D=0 A If D[R}]=0, then sign is positive 
C=0 W 

C=A A 

GOSUBL =FLOAT! Convert to floating decinal 


Fnrtn4 GOVLNG =FNRTN4 


FIR I TI II STITT IIIT IIT IIIISIIILI III SA III III III ISSSSSISS ISI IIS 
NIBHEX 8822 


=BINIOR GOSUB POP2DH Pop 2 nurbers 
A=A'C A Do an inclusive OR on then 
GOTO FLTRIN Finish up 


III III TITS I IDI IIIT TOSI IIIB II II ISTI III ISS IIIS I SII II ISIS SIRI IAL 
NIBHEX 8822 


“BINEOR GOSUB POP2DH Pop 2 nunbers 
; A EOR C = (A and (not C)) or ({not A) and C) 
B=A A Save A in B 
C=-C-1 A C = not C 
A=A&C A A = (A and (not C) 
ABEX A B = (A and (not C), restore A 
A=-R-1 A A = not A 
C=0 A Restore C fron D (POP2DH) 
A=A&C A A = ((not A) and C} 
A=A'B A AR =A EORC 
OT0 FLTRIN Finish up 
JUS OC II OO I STOTT TITS I IOI TTS III IIIS II IIT ISO IASI IS: 
NIBHEX 811 
=BINCMP GOSUB Popin Pop 1 nunber 
GOC ~—_ badtyp (conplex...error) 
GOSUB fLTDH Convert to HEX 
GONC badinp (range error) 
A=-A-1 A Do 1’s conplenent 
Filtrtn GOTO FLTRIN Finish u 


JUICER 


NIBHEX 8822 
BIT GOSUB POP2DH 


k 
* C[A] is the value to check 
: A[A] is the bit position to check in value 
B=0 A 
B=B+1 A Use B[A] as the nask register 
BIT10 R=A-1 A Decrenent bit count 
GOC BIT20 Done naking the nask 
B=B+B A Double the nask 
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2931 FIEDE 58F . GONC BIT10 Go unless bit # too big 
2932 
2933 * If here, bit # was too big 
2934 x 
2935 F1EE1 20 P= =eRANGE 
2936 FIEE3 640F GOTO 3=Errorx 
2937 x. 
2938 a 
2939 FIEE? OEFS BIT20 C=C&B A Check if bit in that spot is set 
2940 FIEEB DO A=0 A 
2941 FIEED 8AA *C=0)—OR 
2942 FIEFO 7D GOYES Fitrtn Return zero if C{A]=0 
2943 FIEF2 E4 A=A+1 A 
2944 FIEF4 52D GONC Fltrtn Go aluays 
2945 JIG OCI TO ITI ITT ITS IIIA TIO SII IIIT 
2046 JOTI IOC TOI OO RSI III OTITIS IIIT IK 
294? xk 
2948 xk Narie: POP2DH - Pop 2 nuneric itens, convert to HEX 
2949 ak 
2950 ** Category: LOCAL 
2951 ae 
2952 ** Purpose: 
2953 kk Pop tuo nunbers off the stack and convert then to hex 
2954 ax 
2955 xe EAETY: 
2956 aK P=0 
2957 a D1 points to the top of the stack 
2958 at Two nurnbers on the top of the stack 
2959 ae 
2960 AE ERIA: 
2961 ae A{A] is the first nunber on the stack 
2962 aK C{A]}] and O[A] are the second nunber on the stack 
2963 k Exits through ERRORX with eNNUMR if complex nunber, 
2964 ak eRANGE if not in [0...2°20-1] 
2965 obs Carry clear 
2966 ak 
2367 kk Calls: POP2N, FLTDH, <ERRORX> 
2968 ax 
2969 RR SSS acc ace 
2970 kk Inclusive: A,B,C,D,01,P 
2971 kk 
2972 kK Stk lvls: 2 (POP2N) 
2973 aR 
2974 ** History: 
2975 es 
2976 xx Date Progranner Modification 
297? a aaa ae 
2978 ee 03/01/83 NZ Added check for FLTDH error 
2979 aA 02/09/83 SC Wrote routine 
2980 ah 
298) FORO OO JO to IO OE tO III 
2982 JO IIIS ISIE OOI SISSIES T OR TATA IS 
2983 FIEF? 8FOO POP2DH GOSBVL =POP2N Pop 2 nurtbers 
000 


2984 FIEFE 04 SETHEX 
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2985 FIFOO 500 : GONC POP2D1 Go if no conplex values 
2986 
2987 FIFO3 20 = badtyp P= =eNNUNR Error...not nureric 
2988 FIFOS 62EE POPZER GOTO €Errorx 
2989 t- 
29% x. 
2991 FIFO9 20 =badinp P= =eRANGE Out of range error 
2992 FIFOB 59F GONC POPZER Go aluays 
2993 r- 
2994 ke 
2995 & 
2996 * C{W] 1s the first number on stack 
23997 * A[W] 1s the second number on stack 
2998 x 
2999 FIFOE AFF POP2D1 CDEX WwW D=first nunber 
300 FIF11 7810 GOSUB fLTDH Convert second number to HEX 
301 F1F15 53F GONC = badinp Gut of range or negative 
WO? F1F1& AFE ACEX WwW 
303 F1IF1B AFF COEX W D=second nuriber, C=first nurber 
O04 FIFIE AFE ACEX W A=first nunber 
305 FIF21 7800 GOSUB fLTDH Convert first nurber to HEX 
306 FIF25 53€ GONC = hadinp Out of range or negative 
3007 F1F28 AFB C=) W C,D=second nuriber,A=first number 
08 FIF2B 03 RTNCC 
309 x. 
#10 t 
311 FIF2D 8D00 =FLTDH GOVLNG =FLTDH 


3012 FIF34 END 
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#Tineo 
ASGNOO 
ASGNO4 
ASGNOS 
ASGN10 
ASGN15 
ASGN20 
ASGN25 
RSGN30 
RASGN40 
RASGN45 
RSGN5SO 
ASGNER 
=ASGNIO 
ASGNd 
ASGNda 
RSGNeR 
ASGNp 
RSLC2 
ASLC4 
ASLC5 
ASRC] 
ASRC4 
ASRC5 
BAKCHR 
BF 2DSP 
=BINAND 
=BINCMP 
=BINEOR 
=BINIOR 
cBIT 
BIT10 
BIT20 
BLANKC 
BSERR 
CHKASN 
CHKNAS 
CKLOPR 
CKnode 
=CLEAR 
CLEAR+ 
CLEAR. 
CLEAR 
CLEAR2 
CLEAR3 
CLEARS 
CLEARc 
CLEARd 
CLEAR) 
CLEARp 
CLEARs 
CSLO12 
CSLC2 
CSLC3 
CSLC4 


Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ros 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Abs 
Ext 
Rbs 
Ext 
Ext 
Ext 
Ext 


989678 
939689 
98375) 
383765 
989317 
983848 
989855 
989859 
989893 
939921 
989923 
989970 
989645 


989992 
989972 


990822 
990903 
98 70 
990854 
99927 
990935 
990351 


988549 
938016 
988607 
388659 
988683 
988729 
9887 36 
988556 


9885 78 
988742 
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HFISEE 
HFI9F9 
#F1A37 
#F1A45 
#F1A79 
#F1A98 
HF 1 ASF 
#F1AA3 
#F1ACS 
#F1RE1 
HF1AE3 
HF1B12 
#F1SCD 


#F1B28 
#F1B14 


#F1E66 
HF1EB? 
HF1E96 
#F1E86 
HFIECF 
HFIED? 
#FIEE? 


#F1585 
HF 158 
HF 1 5BF 
HF15F3 
#F160B 
#F1639 
#F 1640 
#F 1580 


#FI5R2 
#F 1646 


1413 
1880 
1885 
1920 
1925 
1962 
1981 
1983 
1986 
1938 
2004 
2008 
2026 
1850 
1848 
2035 
2027 
1849 
2003 
914 
1625 
1998 
826 
1630 
2003 
1612 
2878 
2913 
2898 
2893 
2921 
2928 
2933 
1592 
1912 
78 
593 
1106 
1254 
1227 
1254 
1248 
1268 
1280 
1302 
1304 
1228 
122 
1235 
1226 
1308 
2281 
847 
694 
1323 


1864 
1876 
1911 
1928 
1954 
2022 
2017 
1982 
1987 
2000 
2002 
1990 


1880 
1955 


907 


1666 


2931 
2929 


1035 
1776 


1245 
1233 
1260 
1272 
1300 
1294 
1414 


110? 


1266 


1888 


199 


202 


101 


114 


130 


2 


9 


? 


8 


5 
a 
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1185 
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CSRC4 
CloseR 
Cslc4 
Csic5 
Csrc4 
Csrc5 
DI=DSP 
DI=DST 
D1=DSX 
=D01=SD0 
=D1=SRO 
DDL 
DDT 
=DPEVID 
DEVID1 
DEVID2 
DEVID3 
DEV ID4 
DEVIDe 
DEVP10 
DEVP20 
DEVP23 
DEVP25 
DEVP30 
=DEVPAR 
=DEVPR$ 
DEVPcc 
DEVTY4 
DEVTYS 
=DEVTYP 
DEVTYe 
DEVTYx 
DISPI+ 
=DISPIS 
Ddl 
Ddt 
DdtXgT 
ENDFN 
ENDST 
ENDTAP 
EOLLEN 
ERRORX 
Endst 
Errorx 
Errorx 


F->SCR 
FCNRT1 
=FIND 
FIND1IO 
FINDER 
FINDer 
FIXSPC 
FLOAT! 


Ext 
Ext 
Abs 
Abs 
Robs 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 


Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 


988790 
988787 
988797 
988794 


988816 
988807 


990009 
990033 
990043 
990065 
990085 
990102 
990404 
990472 
990485 
990495 
990513 
990 341 
9910411 
990511 
990 305 
990319 
990268 
990 33? 
990299 
987468 
987458 
988781 
987901 
987899 


988736 
3%) 696 
988677 


990591 
990171 
990253 
990261 
990175 
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#F 1676 
#F 1673 
#F 1670 
#F 167A 


#F 1690 
#F 1687 


#F 1839 
HF 1B51 
#F 1B5B 
#F 1871 
HF 1B85 
HF 1B96 
HF1CC4 
HF 1D08 
#F1D15 
#FIDIF 
HF 1D31 
HF 1C85 
HF 1CCB 
HF 1D2F 
HF 1061 
HF 1C6F 
HF 103C 
HF 181 
#F1C5B 
#F114C 
HF 1142 
#F166D 
HF12FD 
HF 12FB 


#F 1640 
RF IDES 
#F 1605 


HF 107F 
#F 1BDB 
HF102D 
HF 1035 
#F BDF 


t ’ ' ' ' t t 1 


1333 

708 
1329 
1328 
1333 
1332 
1894 

463 

460 
1343 
1339 
1325 

713 
2078 
2097 
2105 
2115 
2128 
2134 
2459 
2493 
2502 
2512 
2524 
2421 
2464 
2521 
2353 
2358 
2339 
2368 
2352 

418 

408 
1325 

713 

712 
2129 
15 

8% 

338 
1277 
1305 
2724 
1277 
1265 
2299 

6% 
2606 
2251 
22% 
2293 
2252 

468 
2352 
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650 
638 
614 
636 


1728 


1102 
277 


2087 
2112 
2106 
2126 
2079 
2427 
2441 


2499 
2516 
2078 


2504 
2295 
2194 


2340 
2210 
465 


709 
706 


2353 


420 
2706 
237 
1267 
2368 


2594 


2287 
2252 
2185 

512 
2608 


681 
$38 
653 
909 
1788 


1228 
1255 


2096 


2502 
2184 
2359 
2296 
2347 


713 


1042 
2715 

359 
1303 
2579 


2829 


2198 
739 
2883 


722 
924 


922 


1291 
1268 


2251 


2345 


1806 
271? 

519 
1419 
2724 


2204 
2444 
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2477 
2487 


1591 
1284 


2339 


2349 


1983 
2780 

873 
1559 


2528 
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2936 2988 
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1809 2032 2134 
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FLTDH 
FLTRTN 
FNDCH- 
FNDCHK 
FNRTN1 
FNRTN4 
FORMAT 
FUNCDO 
FUNCRO 
Fitrtn 
Fndchk 
Fartn- 
Fnrtn. 
Fnartni 
Fnrtn4 
GADRRN 
GDIRST 
GETDIO 
GETDIR 
GETDOIX 
GETDR" 
GETDR+ 
GETHEX 
GETHSS 
GETIO+ 
GETLPe 
=GETLPs 
GETMBX 
GETPIL 
GETSTR 
=GETZER 
GHE XB+ 
GLOOPH 
GTCBYT 
GTYPE 
Gt2byt 
HTO0 
I/OALL 
T/OOAL 
=T/odal 
IDIV 
INITLP 
INITXO 
INITX1 
INI TX? 
INI TXE 
INT TXF 
=INITXQ 
INI Td 
INITp 
10p 
IS-DSP 
IS-PRT 
LOL10 
LEXPIL 


Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Rbs 
Ext 
Rbs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 


990830 


990919 
990688 
990576 
990 603 
990607 
990843 


990694 
990634 


988147 


988162 


983999 


988282 
988296 
988 392 
988423 
988425 
988332 
988246 


988486 
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HF 1E6E 


HF IEC? 
HF 1DEO 
HF 1070 
HF 108B 
#F 1D8F 
HF 1£7B 


#F 1DE6 
#F 1DAA 


HF 13F 3 


HF 1402 


HF 1B2F 


HF 147A 
HF 1488 
HF 14E8 
HF 150? 
HF 1509 
#F 14AC 
#F 1456 


#F 1546 


3011 
2880 
1237 
2720 
2610 
28% 
1040 
116 
1619 
2918 
2720 
2600 
2609 
2610 
2890 
2436 
598 
331 
883 
2483 
604 
670 
1006 
2824 
2091 
2723 
2699 
215 
970 
1854 
835 
2705 
1391 
903 
2346 
903 
1589 
1910 
2037 
2037 
1466 
988 
998 
1033 
1048 
1049 
1007 
366 
964 
365 
1563 
409 
73 
1110 
1096 
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2895 2910 2918 


125 
1665 
2942 
1483 
2781 
2601 
2131 
2355 


429 


802 


2704 
2583 
1295 


820 


808 
2260 


990 
382 
992 


1007 
971 


457 
425 
1101 


162 


2944 
2702 


506 


2651 


828 


896 


2270 


1034 
1011 


734 


2774 


898 


1036 
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1252 


1041 
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LIST1O Abs 989170 HFI7F2 - 1679 1583 
LIST2O Abs 989302 #F1876 - 1618 1667 
LIST3O Abs 989437 HF18FD - 1656 1653 
LIST5O Abs 989469 #F191D - 1670 1647 
=LISTIO Abs 989139 #F17D3 - 1564 

LISTnb Rbs 989120 #F17C0 - 1557 1567 
LOAD-1 Abs 990326 HFIC76 - 2362 2358 2600 
=LOCAL Abs 988439 #F1517 - 1085 


LOCALd Ext - 1083 

LOCALp Ext - 1084 

LOOPST Ext - 1721 1782 1936 
Loop0K Ext - 222 1731 1791 
ALFFLG Ext - 2452 

NLFG=F Abs 990382 HFICAE - 2451 2500 2699 
NOVEFL Ext - 864 

ATYL Ext - 1316 

NeTalk Abs 9 #00009 - 66 180 133 145 
Ntyl Abs 988763 #F165B - 1316 151 716 
NXTCHR Ext - 1322 

NXTENT Ext - 629 652 916 
NXTSTN Ext - 1494 


Nxtchr Abs 988775 #F1667 - 1322 1875 1981 1991 1999 2016 
Nxten+ Abs 988168 #F1408 - %6 869 
Nxten- Abs 988182 #F1416 - 910 882 


=OFFIO Abs 989483 HF192B - 1708 
OFFIO1 Abs 989510 #F1946 - 1721 1711 
OFFIO2 Abs 989553 #F1971 - 1734 1718 
OFFIOd Ext - 1562 1706 
OFFIOp Ext - 1707 
ONINTR Ext - 1715 
OUTPTt Ext - 285 347 

=QUTPUT Abs 987372 #FIOEC - 331 
OUTPd = Ext - 329 
OUTPer Abs 987444 #F1134 - 359 332 
OUTPp = Ext - 3H 
Offed Ext - 1724 


=PACK Abs 987974 #F1346 - 794 

PACKOO Abs 987978 HFI134AR - 795 736 

PACK1O Abs 987987 #F1353 - 802 870 

PARCK20 Abs 987993 #F1359 - 803 884 

PACK30 Abs 988016 #F1370 - 816 812 

PACK40 Abs 988120 #F13D8 - 876 834 

PACK9O Abs 988134 #F13E6 - 890 509 813 326 
=PACKD Abs 987605 HF11D5 - 506 

PACKd = Ext - 604 792 

PACKeR Abs 988036 #F1384 - 829 795 803 821 
PACKer Abs 988116 HF13D4 - 873 829 856 858 865 891 913 
PACKfx Abs 987949 #F132D - 734 794 

PACKp = Ext - 506 793 

PBF->C Abs 987862 HF12D6 - 701 660 

=PDIR Abs 987629 HFI1ED - 592 507 735 
PDIR1O Abs 987670 #F1216 - 604 662 

PDIR20 Abs 987679 HFIZ2Z1F - 606 672 

PDIR22 Abs 987701 #F1235 - 618 607 

PDIR24 Abs 987749 #F1265 - 640 631 
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PDIR30 
PDIR9O 
PDIR92 
PDIRS5 
PDIRBF 
PILCNF 
POPIN 
POP2D1 
POP2DH 
POP2ER 
POP2N 
=PRASCI 
PRASER 
PRASEX 
=PREND 
PREND1 
PRENDE 
=PREXT 
PRINT* 
=PRNTOO 
PRNT45 
PRNT50 
PRNTER 
=PRNTIS 
PRNTSd 
PRNTSp 
=PRTIS 
PRTIS" 
=PRTIS+ 
PRTIS, 
PRTIS- 
PRTISO 
PRTIS1 
PRTIS2 
PRTIS4 
PRTISS 
PRTIS@ 
=PRTISc 
PRTISe 
PRTSOO 
PRTSO1 
PT2BYT 
PUTC 
PUTDR" 
PUTDR# 
PUTE 
PUTGF - 
PhyEOD 
Popin 
Putc 
Putd 
R&CVIO 
R&CVER 
R&CVEu 
RDACVT 


Abs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 


987803 #F129B 
987821 #FI2AD 
987842 HFI2C2 
987855 HFI2CF 
987907 #F1303 


990990 HFIFOE 
990967 HFIEF? 
990981 HFIFOS 


987263 HFIO7F 
987310 HFIORE 
987297 #FIOAI 
987319 #F10B7 
987354 #FIODA 
987360 #FIOEO 
987095 #FOFD? 


987499 #F116B 
987551 #F119F 
987478 #F1156 
987625 HFI1E9 
987492 #F1164 


987041 #FOFA1 
987176 #F1028 
987054 #FOFRE 
987166 HFIOTE 
987097 HFOFDS 
987114 #FOFER 
987126 HFOFF6 
987136 #FIO00 
987223 #FI0S7 
987243 #F106B 
987201 #F1041 
987034 #FOFOR 
987060 HFOFB4 
987205 #F1045 
987208 #F 1048 


0 #00000 
98963 #F178?7 
988751 #F164F 


990583 #F1D77 
990527 HFID3F 
990520 #F1D38 
990548 #F1D54 


Table 


668 
678 
686 
693 
716 
413 
149? 
2999 
2983 
2988 
2983 
211 
232 
225 
272 
289 
294 
99 
356 
426 
452 
420 
519 
425 
406 
407 
72 
138 
74 
134 
102 
116 
119 
125 
162 
168 
151 
68 
76 
152 
163 
848 
1310 
728 
855 
1492 
2587 
611 
1497 
1310 
725 
2604 
2579 
2576 
2587 
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643 
617 
679 
685 
647 
1805 


2985 
2878 
2992 


170 
224 
233 
210 
286 
283 

94 


415 
438 
459 
443 


423 
424 


136 


132 
93 
139 
84 
79 
154 
167 
146 
1270 
63 
148 
144 


612 
1501 
1487 


2599 
2584 
25% 
2655 
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655 
627 


691 


2893 2898 2921 


445 508 


152 
89 


161 
170 


618 678 
2432 2703 2913 


2588 =2652 
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=READDC 
=READIN 
READRG 
=REMOTE 
REMOTd 
RENOTp 
=REST10 
RESTIA 
REST2C 
RESTDO 
RESTD41 
=RESTIO 
RESTd 

RESTp 

REVPOP 
Rester 
SAVE1A 
SAVE2C 
SAVEDO 
SAVED 
SAVETT 
SEEKA 

SPOLO5 
SPOL10 
=SPOLL 

STAN1O 
STANZO 
STAN3O 
STRN40 
=STANBY 
STANDd 
STANDp 
STANeR 
STANer 
STANra 
STANsb 
STANSr 
START 

START- 
STAT1O 
STAT21 
STAT22 
STAT23 
STAT24 
STAT25 
STAT 26 
STAT27 
STAT30 
=STRTUS 
STMT DO 
STMTRO 
STMTR1 
SWAPO 1 
Savecec 
Savelt 


Ros 
Rbs 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 


990617 #F1IDS9 
990534 #F1D46 


988528 #F1570 


989573 #F1985 


989567 HFI97F 


989631 #F19BF 


990121 HFIBAS 
990125 #FIBAD 
990109 #F1B9D 
988883 #F16D3 
988907 #FI6EB 
989002 #F174A 
38912 #F1754 
988847 #F16AF 


988961 #F1721 
988903 HFI6E7 
988901 HFI6E5 
989069 HF178D 
989116 #F17BC 


990719 #FIDFF 
990733 #FIEOD 
990741 #FIE15 
990753 HFIEZ1 
990761 HFIE29 
990775 #FIE37 
990783 HFIE3F 
990791 HFIE4? 
990814 #FIESE 
990703 HFIDEF 


988801 #F1681 
6 #00006 


2651 
2583 
2203 
1184 
1182 
1183 
1782 
1019 
1015 
433 
1012 
1776 
1774 
1775 
2463 
1809 
1005 
1336 
427 
1001 
1319 
703 
2194 
2197 
2184 
1407 
1422 
1473 
1477 
1391 
1389 
1390 
1454 
1419 
1418 
1500 
1520 
138 
1803 
2793 
2793 
2802 
2807 
2810 
2816 
2819 
2822 
2829 
2774 
125? 
340 
280 
434 
1336 
65 
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1882 
1432 


1804 


2206 
21% 


1396 
1399 
1471 
1404 


1484 
1431 
1476 
14% 
1812 
1033 
1983 
2778 
2797 
2800 
2805 
2808 
2814 
2817 
2820 
2826 


1343 
1339 
333 


976 
129 


1460 


1415 


1488 
1454 


1453 


1514 
2501 


1611 


1003 
137 


1444 


1493 


1516 


1429 
153 
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Saveit 
SetBP 
TRESDO 
TRESD1 
=TRIGER 
TRIGd 
TRIGp 
TSAVDO 
TSAVD1 
TSTAT 
TSWAD1 
Tinout 
Tresd0 
Tresdi 
Tsavdd 
Tstat 
UCRANG 
ULYL 
UNLPUT 
UTLEND 
WRITIT 
WRTASC 
Writet 
XchgT 
YTML 
bPILAI 
=bSERR 
badinp 
badtyp 
cATCH+ 
eABORT 
eDSPEC 
eDTYPE 
eNMNBOX 
eNNUMR 
eNOASN 
eNOF ND 
ePARSE 
ePIL 
eRANGE 
eUNE XP 
exPEXC 
=fLTDH 
hsLPRQ 
1/OFND 
nChOf 
riRERDC 
WREADT 
nSETIC 
nSsT 
nST0@5 
=nXTSTN 
pDIAGL 
sCfA 
sEar 


Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ros 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 


988769 #F1661 


988507 #F155B 


988831 HF169F 
987108 HFOFE4 
988825 #F1699 
988757 #F1655 


989744 #F1A30 
990985 #FIFOS 
990979 HFIFO3 


991021 HFIF2D 


98956 #F1780 


5 #00005 
2 #O00G? 
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Table 


1319 
- 718 
- 1350 
- 110 
- 1146 
- 1144 
- 1145 


1347 

72 
- 1313 
- 1973 
- 1411 
- 1350 
- 110 
- 4347 
- 1343 
- 1986 
ay 
- 1264 
- 293 
- 223 
- 1596 
a 987 
3 10G 
2197 
1565 
1912 
2991 
2987 
2001 
- 1276 
- 444 
- 1048 
- 2779 
- 2723 
- 1557 
- 2515 
- 1558 
- 2512 
- 899 
- 2677 
- 1500 
- 3011 
- 2825 
- 1566 
- 1308 
- 2653 
- 2585 
- 1485 
~ 2202 
- 1490 
- 1494 
- 2589 
- 2786 
- 2789 


toes t i 
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288 


1869 
2008 
225 
119 
213 
710 


1993 
707 


1637 

712 
1909 
2916 
2914 
2026 


2987 


2578 
912 


1513 


892 


2821 
2809 


336 


2469 
2012 


337 
165 
1868 
857 


2036 
3001 


2508 


1009 


2915 


1674 
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452 1288 
977 1972 21%) 2354 2609 
2493 
2431 2700 
3006 
1418 1520 2713 2935 2991 


3000 3005 


1734 
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Ver. 3.39/Rev. 2306 Synbol Table Page 6/7 
sLR Abs 6 #00006 - 2785 2818 
sLlout Abs 0 #00000 - 2791 2798 
sReadd Ext - 1797 1952 
sRenot Abs 1 #00001 - 2790 2801 
sSRGR Abs 3 #00003 - 2788 2827 
sSTkK Ext - 1863 2423 
sStanb Abs ? #00007 - 2784 2806 
sTA Abs 4 #00004 - 2787 2815 
tCOMMA Ext - 979 1231 1442 
tLOCKO Ext - 1097 
tOFF Ext - 1394 
tON Ext - 1397 


tXWORD Ext - 1095 1709 
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Ver. 3.39/Rev. 2306 Statistics 

Input Paraneters 
Source file nane is NZ&BAS::MS 
Listing file nane is NZ2/BAS:TI:ML::-1 
Object file nane is NZZBAS:TI:NS::-1 


114111 
012345678901 2345 
Initial flag settings are 
€rrors 
None 


Saturn Asserbler Neus 
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1 x SSS ccc & EEEEE N N TITTT 
é ‘ S$ S$ C C && E N ON T 
3 x S C & & E NN N T 
4 x 358 C & EEEE NNN T 
5 x $C && 8B E N NN T 
6 - SS sb ee OE N ON T 
? ; SSS ccc && & EEEEE N N T 
8 
9 TITLE ENTER Execution <840113.1057> 
10 F1IF34 : ABS #F 1F 34 TIZHP6 address (fixed) 
14 
12 Array  EQU 1 
13 String EQU 2 
14 Crplex EQU 3 
15 Endfrn EQU 3 
16 Mltitn EQU 4 
17 Menerr EQU 4 
18 BytCnt EQU 5 
19 KorH EQU 5 
20 Sign EQU 6 
21 Trash  €EQU 6 
22 Chrirp €QU 7 
23 SUIS IO OG GUI IIIS III OI ITE IRR 
24 JOIST I IE IGRI UII TS RIE I III IK 
25 ax 
26 x* Nane: hENTER - Poll handler for the pENTER poll 
27 ek 
28 ** Category: POLL 
29 xx 
30 ** Type: POLL 
31 re 
32 ** Purpose: 
33 ax To read data fron HP-IL and put it on math stack 
34 ar 
35 AE ERATY: 
36 aK B[R] = Poll nunber. 
37 am HEX rode. 
38 ae P=0. 
39 wok NTHSTK=FORSTK (Math stack 1s collapsed to FORSTK) 
40 ax 
41 ax R1[AJ=HP-IL address (device’s location relative to the 
2 oie controller) 
43 kk 
44 es S5 (BytCnt): 
45 ax 1:Read a specified number of characters 
46 aX A[A] 1s the nunber of characters to read 
4? = O:Tertiinate by END frane or terminating char match 
48 a ALB] 1s the terminating character 
49 ax 
50 a S6 (Trash): 
51 zn 1:Ignore the data which 1s read 
§2 ax O:Save the data which 1s read on the stack 
53 at 
54 ee S? (ChrTrp): 


55 a 1:Detect a special character in incoming data 
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56 xk R2([B] is the character to be detected 
57 ak If R2{3:2]=00, ignore the character; 
58 ak otherwise replace the character with R2(3:2] 
59. is O:No special character processing 
60 ak 
61 ae If systen flag -23 is set: 
62 a Terminate by ETO, terminating character is ignored 
63 ark 
64 an If SS (BytCnt)=0, S6 (Trash)=0, and S-RO-~3[0]>2 (the 
65 ak destination is a string), then S-R1-1[3:0] and R3[A] 
66 aR are the maxinun nunber of chars to read before 
67 aX interrupting the conversation with an NRD. 
68 aa R3[S] must not be “F". (R3[4]=0) 
69 xk 
70 ak If SS (BytCnt)=1 or S6 (Trash)=1, then flag -23 has 
71 ak no effect other than to terninate on an ETO instead 
72 ak of the terminator character. 
73 aK 
74 ak If { S-RO-3[0]<=2 (not string dest) and S5 (BytCnt)=0 } 
75 ae or { in device node (not controller) }, 
76 ak then flag -23 has no effect (it is ignored). 
77 kk 
78 ar 
79 kK Exit: 
80 ak HEX node. 
81 Rk xM=0. 
82 ak Carry clear: 
83 ak AVNEME points to the last character read 
84 ak FORSTK points to first char read + 2 
85 aR Nuriber of chars read = ((FORSTK) - (AVMENE))/2 
86 aK S4 (Menerr)=0 
87 ak Carry set: 
88 Ka S4 (Menerr)=1: Insufficient memory (Need to load eMEN) 
89 aR S4 (Menerr)=0: C[3:0] is the error code 
90 kk 
91 x Calls: DI=AVE , ROSTO1, <ERROR>, <AVE=D1> 
92 a 
93 *k Uses: 
94 xk Inclusive: A-D,00,D1,P,R1,R2,ST[5:0] 
95 kk 
96 aX Stk Lyls: 5 (RDBSTO1) 
97 ak 
98 ** History: 
99 xk 
100 RA Date Progranner Modification 
101 KA (Gumetwes e@ehewmetee, Menta wotates ac eunie kee w ne eae ee ae mme 
102 K-12 /13/83 NZ Updated docunentation 
103 ak 07/26/83 Sc Wrote routine 
104 aK 
105 JO IIIT IO IOI IC IIT TTT TT I TR 
106 JOISTS IO IOC OIC TO ICSI IOI IE 
107 F1F34 11A =hENTER C=R2 Get special char (for Chrirp=1) 
108 F1F37 D5 B=C A Place in B[B], 8{3:2] 
109 F1F39 7317 GOSUB Dinstk Set D1 to the top of the nath stack 


110 F1IF3D 70C3 GOSUB = RDSTO1 Read the characters... 
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111 


112 F1F44 8000 


113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
12? 
128 
129 
130 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
182 
163 
154 
155 
156 


16? 
158 
159 


160 
161 


F1F41 580 
00 


FIF4A 6072 


FIFAE 0000 
0 
FIFS53 0000 
0 
FIF58 8EOO 
00 
FIFSE 431 
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GONC pENTR1 ...No error (leave AVMEME at stack) 
GOLONG =ERROR Error (set up C[3:0]) 
x. 
ke 
pENTR1 GOTO aVE=D1 Carry clear, AVMENE updated 


FOO TOTTI TTT TTT TTT RTO TTR IK 
FOU TOTTI TIT IIT I TIT ITI ITI ITM 
xk 


xx Narie: ENTER - Execute the ENTER statenent 
aa 


** Category: STEXEC 

xk 

** Purpose: 

aK Execute the ENTER statenent to read data fron the loop 


xk Entry: 

sha DO points to the device specifier 

ak P=0 

kh 

AE ELT? 

xe Through either NXTSTM or BSERR 

ak 

** Calls: GETDID, DEVADR, SAVEIT, TRESDO, CHKEOL, NXTDST, RED-LF , 
ax STRPcr, CS=TYP, STRHED, REV$, DINSTK, GETNUN, STOSUB, 
a FSTK-7, AVE=D1, RESTDO ,NXTDS+, <NXTSTN>, <USING>, 
KK <ERRORX>, <getEOL> 

at 

BE UCBs Osun 

kk Inclusive: A,B,C,D,RO-R4,D0,D1,P,STNTxx, ST[11:0], FUNC xx, 
= All RAM EXPEXC is pernitted to use 

ah 


** Stk lvls: 7? (GETDID)(STOSUB) 
ae 


** History: 
xn 


Date Progranner Modification 

Whee Bees” Saeoeedes «bee Na cece etek ea ea 
aK 12/20/83 NZ Packed 3 places to get roon for 
es bug fix in GETNUMN (locations are 
xk marked with a "+" in col. 29) 

Kx 12/15/83 NZ Added docurientation 


ak 04/01/82 Sc Wrote routine 
ah 


FOO UI UII OI IIIT OT OI TOO II IO 
ORI ISIOIIOIIIOIOISIOIOII I OTTO TIO II 


REL(5) =OUTPd 
REL(5) =ENTERp 
=ENTER GOSUBL =GETDID Get Device specifier 
GOC ENTREX Error...P,C{0] are error code 


* 
* DO points to the mailbox, FUNCDO contains the PC value 
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162 

163 F1F61 96F 

164 FIiF64 02 

165 FIF66 2F 

166 FIF68 300 

167 FIF6B 943 

168 FIF6E 02 

169 FIF70 20 

170 FIF72 8000 
00 

171 

172 

173 FIF?78 49F 

174 

175 

176 

177 FIF7B 7342 

178 FIF7F AF2 

179 FIF82 8E00 
00 


180 F1F88 8CO0 
00 

181 

182 


183 FIF8E AC2 
184 F1F91 7D22 
185 FIF95 8E00 
00 
186 FIFSB 8£00 
00 


187 FIFA1 161 
188 FIFA4 14A 
189 FIFA? 3100 
190 FIFAB 966 
191 FIFRE 51 
192 FIFBO 1FOO 
000 
193 FIFB? D2 
194 FIFB9 140 
195 F1IFBC 8D00 


000 
196 
197 
198 FIFC3 8FOO 
000) 


199 FIFCR 460 
200 
201 
202 
203 
204 FIFCD 6517 
205 
206 
207 FIFD1 7C52 
208 FIFDS 55A 
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x 

7DHO OB Is the address non-zero? 

GOYES GETDB1O Yes...valid address 

P= 15 No...check for LOOP (not NULL) 

LC(1) =DsLoop 

72D) =6§ Is this "LOOP"? 

GOYES GETDOS Yes...accept it 

p= =eDSPEC No...nust be "NULL" 
ENTREX GOLONG =ERRORX Error exit for P, C[O]=error code 
* 
* 
RTINCHK GOC ENTREX If carry, detected an error 
k 


* Delete the buffer (if any) created by SAVEIT before finishing 
* 


ENTdel GOSUB DEVADR Set D1 to the device specifier 
C=0 W Replace it with zero (no device) 
GOSUBL =SAVEIT SAVEIT deletes any old buffer 
ENTRIN GOLONG =nXTSTN Finished! 
xk. 
ae 
GETDO9 C=0 S This is LOOP...don’t nake a buffer 
GETD10 GOSUB DEVADR Set (MTHSTK) = (FORSTK) - 7 
GOSUBL =SAVEIT Save device specifier on MTHSTK 
GOSUBL =TRESDO Restore PC (saved by GETDID) 
DO=D0+ 2 Skip the t@ used to terninate spec 
A=DATO B 
LC(2) =tUSING 
RHC OB Is this ENTER ... USING? 
GOYES ENT120 No...continue with ENTER 
01=(5) =MLFFLG Yes...zero MLFFLG, device to prevent 
C=0 A -CKINFO fron doing anything bad when 
DAT1=C B -USING calls it 
GOVLNG =USING 
xe 
ae 
ENT120 GOSBYVL =CHKEOL Are there any variables specified? 
COC ENT130 Yes...read and store 


* ENTER statement has no destination variable: 
* just skip to end of line and return. 
k 


GOTO 8 getEQL 


xe 


ENT130 GOSUB NXTDST 
GONC ENTdel 


Set up next destination and loop 
Reached end of line...done 
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209 FIFD8 7803 
210 FIFDC 580 
211 FIFDF 8C8F 
80 
212 
213 
214 FIFES 845 
215 FIFE8 844 
216 FIFEB 94C 
217 FIFEE BO 
218 
219 FIFFO 873 
220 FIFF3 60 
221 


vara 

224 FIFF9 78F1 

225 FIFFD 4A4 

226 

227 

228 

229 

230 F2000 864 

231 F2003 (1 

232 

233 

234 

235 

236 

237 

238 F2005 7046 

239 F2009 8E00 
00 

240 F200F 17F 

241 F2012 137 

242 F2015 79A1 

243 F2019 135 

244 F201C 171 

245 

246 

247 

248 F201F 133 

249 Fede2 7A26 

250 F20c6 De 

251 F2028 133 

25e F20cB EE 

253 F202D 7164 

254 F2031 C4 

255 F2033 Ee 

256 F2035 40 

257 F2038 133 

258 F203B CA 

259 F203D 133 

260 F 2040 7506 

261 F2044 6410 


222 FIFFS 7F36 
x 
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Page 5 
ENT150 GOSUB RED-LF Read until <Lf> 
GONC ENT155 Good read...continue 
GOLONG REDCer Error during read...exit with error 
ke 
ke 
ENT155 ST=0  KorH This is not USING fornat "K" or “H" 
ENT160 ST=0 = MltItn Not rultiple iterts per data line 
PAHO OS Is flag -23 set? 
GOYES ENT180 Yes...keep all characters 
x 
*ST=1— Endf rn Was the last byte an END frane? 
GOYES ENT180 If so, don’t strip off <CR> 
x 
GOSUB STRPcr Strip off trailing <cr> if present 
ENT180 GOSUB CS=TYP Returns carry set if nuneric type 
GOC ENT220 Nuneric variable...process it 


x 


* Destination is a string variable: nake sure not to exceed the 
* taxinun string length. 


*ST=0 «=MitItn Has another iten been processed? 
GOYES ENT190 No...continue 


& 
* A nuneric item has been processed already (strings use up the 
* entire line which has been read). Processing a numeric iten 
* reverses the string on the stack, so we have to reverse it 
: again to get back to original order. 
GOSUB strhed Put a header on to reverse the data 
GOSUBL =rEV$ Reverse the string 
D1=D1+ 16 Skip the header (16 nibbles) 
CD1EX Save D1 in C[A] 
GOSUB DEVADR Set AVMEME back to FORSTK - 7? 
Di=C Restore 01 
Di=D1+ 2 Skip the <Cr> that GETNUM added 


x 
* D1 points to the end of the string (lowest address) 
* 


ENT190 =ADIEX Save D1 in AR] 
GOSUB Dtnstk Set D1 to AVMENE (=MTHSTK) 
C=A R Copy old D1 value to C[A} 
ADIEX Restore D1, set A[A] to AVNENE 
C=A-C A C[A] 1s nurtber of nibbles on stack 
GOSUB A=SLEN Recall taxinun string length 
A=A+A A ALA] as the max length in nibbles 
C=C-A A Check 1f the data will fit in string 
GOC ENT200 Yes...do the assignnent 
ADIEX No...throw away the excess chars 
A=A+C A (C{A] 1s the nunber of extra nibs) 
ADIEX 

ENT2OO GOSUB  strhed Put a string header on the data 


GOTO =ENT300 _Go do the string assignment 
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262 t. 
263 x. 
264 a 
265 * Destination 1s a numeric variable: try to get a nunber out of 
266 % the data 
267 & 
268 F2048 7660 ENT220 GOSUB GETNUN Get a nunber, if possible 
269 F204C 4B8 GOC ENT150 No number, MitItn; read another line 
270 F204F AF4 ENT250 A=B W 
271 F2oS2 1CF D1=D1- 16 
272 F2055 1517 DAT1=A W Push nunber value onto the stack 
273 F2059 865 ENT300 ?7ST=0 KorH Is this ENTER ... USING "K" or "H"? 
274 F205C 60 GOYES ENTW2 No...store and loop back 
275 F2OSE 6801 . GOTO STOSUB Yes...store and return to caller 
276 - 
277 h- 
278 F2062 7401 ENT3%2 GOSUB STOSUB Store the nunber 
279 F2066 76€5 GOSUB Dinstk Set D1 to (MTHSTK) 
280 F206A 7271 GOSUB FSTK-7 Set DO to (FORSTK) - 7 
281 F206E 136 CDOEX C{A] is (FORSTK) - 7 
282 F2071 133 RDIEX A[A] is (MTHSTK) 
283 F2074 8E0O GOSUBL =RESTDO Restore DO fron STMTDO 
00 
284 F207A 8BE 7AD=C A Any data left in line? 
285 F207) 51 ‘ GOYES ENTS No...get next dest, read a line 
286 
287 * If there is exactly one character left on the stack, it must 
288 * be the <Cr> GETNUM added to the string. 
289 & 
29) F207F CE C=C-1 A 
291 F2081 CE C=C-1 A Back up 2 nibbles 
292 F2083 8B2 7AKC OA Any data left? 
293 F2086 01 GOYES ENT310 Yes...set up next dest, GOTO ENT130 
294 F2088 131 Di=A No... 
295 F208B 171 Di=D1+ 2 ..-set D1 to botton of stack 
296 F208E 7921 GOSUB aVE=D1 Set AVMNENE to botton of stack 
297 F2092 6E3F ENTS GOTO ENT130 Get next destination, read line 
298 - 
299 a 
300 F2096 7791 ENT310 GOSUB NXTDST Get next destination variable 
301 F209A 460 GOC ENT320 Got another destination... continue 
302 F209D 6DDE GOTO ENTdel No riore variables...exit 
303 a. 
304 h- 
305 F20A1 7D11 ENT320 GOSUB DEVADR Set AVMEME to (FORSTK) - 7 
306 F20A5 135 D1=C Set D1 @ top of stack (fror NXTDST) 
307 F20A8 854 ST=1 = MitItn Set Multi-Iten flag 
308 F20AB 845 ST=0 Kort Not ENTER ... USING "K" or "H" 


309 F2ORE 6R4F GOTO = ENT180 Continue processing line 
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310 STITLE Convert Srcing into a nunber 
314 SII II II TIT I III III II TI III IT IT III III TI III III IIIA I II ISI III STII IA 
312 BIR KI II IRI III IIT IIT II III III IIIS IOS IIIS ISI SIT ISIS IIIS SSI III IA 
313 ax 
314 aa Nane: GETNUMN - Convert data on stack into a nunber 
315 
316 ** Category: LOCAL 
317 ax 
318 ** Purpose: 
319 ax Skip over any non-digit chars and convert the ASCII 
320 ax digits into a floating number 
321 ae 
322 ak Entry: 
323 ae P=0 
324 aX HEXMODE 
325 ax D1 points to the lowest-addressed character of the data 
326 ax ST[M1tItn]=1: 
327 aK D1 points to first character of the string 
328 ak ST(M1tItn]=0: 
323 ak D1 points to last character of the string 
330 ax 
331 AE EKI ts 
Sue a Carry clear: 
333 ae B[W] 1s the floating number value 
334 x® Carry set: 
335 ak No digit found and ST[M1tItnJ=1 
336 bes 
337 e* Calis: STRHED, REV$, AVE=01, RANGEN, NUNSCN, TSAVD1, BLOCON, 
338 ae NRNCON, TRESD1 
339 af 
340 RR USES oa aha ors 
341 ie Inclusive: A,8,C,D0,RO,R2,D0,01,P,FUNCD1, ST[6,3,2,1] 
342 . 
343 ** Stk lvls: 2 (NUMSCN)(STRHED) (REV$)( TSAVD1 ) (TRESD1 ) 
344 ae 
345 ** History: 
346 ae 
34? gigs Date Prograriner Modification 
348 RX, Sacteses f~soredicesn -nwiacaetocesoucee eee soso Sees 
349 Rk 12/20/83 NZ Packed, installed bug fix for 
350 aK SR #0039-01070(2). This is the 
351 a bug uhere ENTER of an underflow 
352 od or an overflow will destroy sone 
353 x” user flags and traps. This bug 
354 at exists in version HPIL: 1A. 
355 RX 42/15/83 NZ Updated docunentation 
356 tk 03/02/83 SC Wrote routine 
357 as 
358 JOOS ISIS EIU IO IIIS SOEUR Ek 
359 JUSSI IU SIGUE OCG EI IIE III ok tk 
360 F20B2 31D0 GETNUM LCHEX OB Add a <Cr> as the last digit... 
361 F20B6 1C1 Di=D1- 2 (if MltItw is set, it will be the 
362 F2OB9 140 DAT1=C B first digit, but mill be skipped) 


363 
364 F20BC 7985 


GOSUB strhed Put a string header on data 
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365 
366 
367 
368 
369 
370 
371 


372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
383 
390 
391 
392 
393 
394 
395 
396 
397 


398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 


F20C0 
F20C3 
F20C5 


F20CB 
F20CE 
F20D1 
F20D4 
F20D7 
F2009 
F200 
F200F 
F20E1 


F20E4 
F20E7 
F20E9 
F20ED 


F2OEF 
F20F2 


F20F4 
F20F7 


F2OFD 
F2100 
F2104 
F2107 
F2109 
F210 
F2110 
F2113 
F2115 
F2118 
F211B 


F211E 
F2121 
F2124 
F212? 
F212A 
F212D 


x 
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* If not the first nunber of the input string, don’t reverse 
* the string - 1t already has been reversed the first tine thru 
k 


874 
80 
8£00 


171 GETN10 
AF2 

14? 

SIE 

DS 

17D 

846 

CD =6GETN20 


521 
x 


* No di 
x If ST 


864 
80 
7ECO 


02 
ke 


xe 


AFi =GETN30 


03 
ke 


xe 


14B GETN40 
800 

00 

502 

S1E2 

962 

‘4 

356 

31D2 

962 

50 

846 

171 GETN50 


53C 
Ke 


xe 


AF1 GETN6O 
841 

842 

118 

10A 

8FOO 

000 


*ST=1 Mltitn 
GOYES GETN1O 
GOSUBL =r€V$ 


DI=D1+ 2 

C=0 W 
C=DAT1 A 

CSRB 

B=C A 
Di=D1+ 14 
ST=0 = Sign 
B=B-1 A 

GONC  GETN4O 


Is this the first tine through? 
No...leave it alone (already done) 
Yes... reverse the string 


Skip the first byte of header 


Read string length in nibbles 
C[A] 1s string length in bytes 
B[A] 1s nunber of bytes on stack 
Position to first character 
Initialize the sign 

Check if string exhausted yet 
No...check the character 


its found in the string. 
Thititn}=0, just return zero. 
* If ST[M1tItnJ=1, pop the stack and return with carry set 
k 


Mititn 
GETN30 
aVE=D1 


?$T=0 
GOYES 
COSUB 
RTNSC 


B=0 W 
RTNCC 


A=DAT1 B 
GOSUBL =RANGEN 


GONC GETN60 
LCASC \.\ 
*A=C OB 
GOYES GETN60 
ST=1 Sign 
LCASC \-\ 
7A=C OB 
GOYES GETN50 
ST=0 = Sign 
Di=D1+ 2 

GONC  GETN20 


B=0 W 

ST=0 1 

ST=0 2 

C=RO 

R2=C 

GOSBVL =NUNSCN 


First nunber in string? 
Yes...return zero 

No...pop stack, set carry to 
indicate need to read riore data 


Set up a floating nunber zero 
Return, all OK 


Read the next character 
Is it in [0,9]? 


Yes...continue 

No 

Is 1s a decinal point? 
Yes...consider it a digit 
No...set sign initially negative 


Is it a minus sign? 

Yes... leave sign negative 
No...set sign back to positive 
Position to next character 

Go always 


Initialize the nurber 

Clear these tuo statuses for 
NUMNSCN (if not zero, then error) 

Save RO value... 

~. ein R2 

Scan the string for a nunber 
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41? 
418 


419 
420 
421 


422 
423 
424 
425 
426 
427 
428 
423 
430 
431 


F2134 
F2136 


F213C 
F2143 
F214A 


F2150 
F2153 
F2156 
F2159 
F215C 
F215F 
F2161 
F2163 
F2166 
F2168 


04 
8E00 
00 
8FO0 
000 
8FOO 
000 
8E00 
00 
114A 
108 
AF8 
ACI 
866 
% 
05 
AAD 
04 
03 
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SETHE X (NUMSCN leaves DEC riode) 
GOSUBL =TSAVD1 Save D1 to save fror BLOCON/NRNCON 
GOSBVL =BLDCON Convert NUMSCN output to tokenized 
GOSBVL =NRNCON Convert tokenized to floating nun 
GOSUBL =TRESD1 Restore D1 fron FUNCD1 
C=R2 Restore RO fron R2 
RO=C 
B=R =o [S$] is garbage here 
B=0 S$ Set the sign positive initially 
*$T=0 Sign Is the sign positive? 
GOYES GETN80 Yes...done 
SETDEC No... 
B=B-1 §$ Set sign negative 
SETHEX 


GETN80 =RTNCC 


Return, got a good string 
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432 STITLE Store iten into variable 

433 FRIIS I I III IIT IAT I ITI IDI IIIT IT IIT IIIB IIIS SISA SSSI IIS ISIS III IIS 

434 JO IIT TO STII IIT IAI SA 

435 ah 

436 - Nane: STOSUB - Subroutine to store into a variable 

437 

438 ** Category: LOCAL 

439 ak 

440 ** Purpose: 

44) xR Assign the value on the stack to the variable location 

442 ak indicated by Statenent scratch RAN 

443 xk 

444 ** Entry: 

445 ak P=0 

446 kk STMTRO and STMTR1 set up as by DEST 

447 xk 01 points to top of stack 

448 ae RO[A] 1s the saved D1 value 

449 a 

450 aA Exit: 

451 ak P=0 

452 ah The iter has been popped off the stack 

453 ak AVMENE is updated to new top of stack 

454 ak D1 restored fron RO[A} 

455 am 

456 ne Calls: AVE=D1, CSLCS,CSRC5, STORE, DIMSTK, POPMTH, <ENTST3> 

457 

458 RE NSB Soieiaia tus 

459 *k Inclusive: A,B,C,D,RO[15:5],R1,R2,R3( 15:5), R4,00,01,P, 

460 ae RESREG, ST[11:8,5, 3,0] 

461 xk 

462 ** Stk lvls: 6 (STORE) 

463 ae 

464 ** History: 

465 = 

466 aK Date Progranner Modification 

467 EE Bice) Sel cooe.. . weet cede amen e eos 

468 KK 42/02/83 NZ Added docurentation 

469 xk 94/01/82 sc Wrote routine 

470 aR 

471 FRI III III III IID ITI SII IIIS IIIT III II IIIT IST I SII IIIS I SIRI I IS IISA 

472 JO I III III TTI ID TTT TITAS IIS IIIS SSI I IIS I SII IS STII S 

473 F216A 7040 STOSUB GOSUB aVE=D1 Set stack pointer to D1 value 

474 x 

475 * Need to save RO[A] and R3[A] from STORE...use R4[14:10] for 

476 * R3(RJ}, R4[9:5] for RO[A] 

47? x 

478 F216E 110 A=RO 

479 F2171 11B C=R3 

480 F2174 8E0O GOSUBL =CSLC5 R3{A} now in C£9:5} 
00 

481 F217A D6 C=A A 

482 F217C 8EOO GOSUBL =CSLC5 RO[A] in C[9:5], R3[A) in C[14:10] 
00 

483 F2182 10C R4=C Put it all in R4 


484 F2185 1537 R=DAT1 W Recall the value fron the stack 
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485 F2189 8FOO GOSBYL =STORE Store it 
000 
486 : 
487 * Now restore RO[A] and R3[A] fron R4 
488 . 
489 F2190 11C C=R4 
490 F2193 8EOO GOSUBL =CSRC5 
ve 
491 F2199 108 RO=C 
492 F219C 8EOO GOSUBL =CSRC5 
0 
493 F21A2 108 R3=C 
494 x 
495 * RO and R3 are now restored...pop the iten off the stack 
496 x 
497 F21A5 7774 popstk GOSUB Dinstk First set D1 to top of stack 
498 F21R9 8FOO GOSBVL =POPNTH Pop the iter 
000 
499 F21BO 7700 GOSUB aVE=D1 Set AVMENE to nen top of stack 
500 F21B4 AF4 A=B W Copy B to A for popstk entry 
501 F21B? 6717 GOTO =ENTST3 Finish it up 
502 x. 
503 ke 
504 F21BB 8D00 =aVE=D1 GOVLNG =AVE=D1 


000 
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505 STITLE Utility routines 
506 JUSSI OCC IOI CCC IIIT IK 
507 FOROS JOIOIIOJO OI OORT TR RIOT 
508 aK 
509 ee Narie: DEVADR - Collapse MTHSTK, D1 to FORSTK - 7 
510 
511 ** Category: LOCAL 
512 RK 
513 ** Purpose: 
514 Collapse NTHSTK to FORSTK - 7, leave D1 at (MTHSTK) 
515 
516 ** Entry: 
517 ak None 
518 ak 
519 Ae Exit: 
520 ee Carry clear 
521 ak MTHSTK at (FORSTK) - 7 
522 aK D1 at (MTHSTK) 
523 a 
524 ** Calls: None 
§25 Rk 
526 TAUSES cy ee pes 
527 xk Inclusive: A[A],01 
528 ak 
529 Kk Stk lvls: 0 
530 ak 
$31 ** History: 
S32 a 
§33 ak Date Progranner Modification 
534 $e cea, elses. . silinetti Mine eee wea etatele del 
535 eR 412/15/83 NZ Added docunentation 
536 - 04/01/82 sc Wrote routine 
as JI OCC IIT IIIS IIIT IIIS I TOA IS SISTA IA 
539 JI ITI OI OSS IIIS IIS SITS SI III IST SSSI IIIS IIIS IIIS. 
540 F21C2 1FOO DEVADR 01=(5) =FORSTK 
000 
541 F21C9 143 A=DAT1 A A[A] is FORSTK pointer 
542 F21CC 1€4 ‘ D1=D1- 5 D1 points to MNTHSTK 
543 
544 * SET (MTHSTK) = (FORSTK) - 7 
545 . 
546 F2iCF 133 ADIEX D1 is now (FORSTK) 
547 F21D2 1C6 Di=D1- 7 D1 is (FORSTK) - 7 
548 F2105 133 ADIEX ALA] is (FORSTK)-7, D1 is MTHSTK 
549 F2108 141 DAT1=A A Write out (FORSTK)-7 to MTHSTK 
550 F21DB 133 ADIEX D1 is (FORSTK)-7 
551 F21DE 03 RTNCC 
§52 FORO ROIJIIO Ot TT  R 
553 JUICE OTITIS TT SS STATI IIIA 
554 aK 
555 y Narie: FSTK-7 - Set DO to (FORSTK) - 7 and read 5 nibs 
556 . 
557 


558 


*k Category: LOCAL 
ka 
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559 ** Purpose: 
560 xk Set DO to (FORSTK) - 7 
561 aK 
562 ** Entry: 
563 x None 
564 aK 
565 ak Exit: 
566 a DO points to (FORSTK) - 7 
567 ak C{A] is the data at DO 
568 aR Carry clear 
569 e 
§70 A® Calls: None 
571 ak 
572 AE USES. 6.5 05s 
$73 *k Inclusive: C[A], DO 
574 ax 
575 Xk Stk lvls: 0 
576 ak 
577 ** History: 
578 x 
579 Ax Date Progranner Modification 
580 PES wee ieee meets ectend.2o esc eeuesessete 
581 Kk 12/15/83 NZ Added docurientation 
582 - 04/01/82 SC Wrote routine 

* 
2 JOSS IIIS OIC IIIS OIA ITI III IIIT ITI K 
585 JOIST ITO III III II IIIT SII III I IA TIA 
586 F21EO 1B00 FSTK-7 DO=(5) =FORSTK 

000 

587 F21E7 146 C=DATO A 
588 F21EAR 134 DO=C 
589 F21ED 186 DO=DO- 7 DO is at (FORSTK)-? 
590 F21FO 146 C=DATO A C{A} 1s (DO) 
591 F21F3 01 RTN Carry is clear fron DO=D0-7 above 


$92 
593 
§94 
§95 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 


ak 
ak 
ak 
ak 
xx 
aK 
ax 
xx 
ak 
a 
xk 
aA 
ak 
ak 
ak 
ak 
xk 
ak 
as 
ak 
RK 


FOI IO OTT TTT III 


FOI IO OI TOTO TOI TOIT OIO OI T III 
Narie: CS=TYP - Check if the destination is nuneric 
Category: LOCAL 
Purpose: 

Check 1f the destination variable is of type nuneric 
or not 
Entry: 
S-RO-3 contains the variable type 
Exit: 
Carry set if nuneric, else clear 
Calls: None 
Uses....... 


Inclusive: C[S]}],C{A] 
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613 ax 
614 ** Stk lvls: 0 
615 a 
616 **k History: 
617 ak 
618 ax Date Prograrner Modification 
619 PR ORGS tee R ees oe tone ol e ase 
620 Rk 12/15/83 NZ Added docunentation 
621 ne 04/01/82 SC Wrote routine 
a 2K III I TIER IAT IIS IIIA IO STII IOS ISIS II SSIS SII IIS I IA 
624 $US III COIS TTT IIIT 
625 F21F5 136 CS=TYP CDOEX Save DO in C[A] 
626 F21F8 1B0O DO=(5) =S-RO-3 
000 
627 F21FF 1564 C=DATO $ 
628 F2203 136 CDOEX Restore DO from C[A] 
629 F2206 A4E C=C-1 § 
630 F2209 400 RTNC C[S] nas 0 
631 F220C A4E C=C-1 § 
632 F220F 400 RTNC C[S] was 1 
633 F2212 RAE C=C-1 § 
634 F2215 01 RIN C{S] was 2 if carry set, else >2 
635 JU IIIS UCC III TIT TOS 
636 20K III ITO IASI TOSI ST ITI SIS III IS IAI OI IK 
637 ak 
638 ie Nare: AS=FTY - Read and clear inage type flag (CHNHSV) 
639 
640 *k Category: LOCAL 
641 ax 
642 *x Purpose: 
643 . Read contents of CHN#SV into A[S] and clear CHNHSV 
644 
645 xk Entry: 
646 ax None 
647 ak 
648 aX Exit: 
649 ar Carry unchanged fron entry 
650 ak A[S] is the old contents of CHNHSV 
651 an 
652 xk Calls: None 
653 ae 
654 TP USES x a sak 
655 tk Inclusive: A[S],C(S] 
656 ae 
657 ** Stk lvls: 0 
658 = 
659 *k History: 
660 ax 
661 ae Date Prograrmer Modification 
662 PRi nit ce eS. « keeles. § , geveebalencd vanes eee uuaswenatees 
663 kk 12/15/83 NZ Added docunentation 
664 &k 04/01/82 SC Wrote routine 
665 ak 


666 


SOR I TOTTI TIO IO TI IO. 
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667 JE OO IDO ITO I II IO III TT II IITA SI ISOS I II II III IIIA 
668 F2217 1BOO AS=FTY DO=(5) =CHNKSV 
000 
669 F221E 1524 A=DATO S$ Read the old value into A[S] 
670 F2222 AC2 C=0 S 
671 F2225 1544 DATO=C S$ Clear CHNHSV (write a zero) 


672 F2229 01 RTN Return, carry unchanged 
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673 STITLE Get next dest. variable 
674 ISI II IIA IIIS I IIE TIE IIT RITE I TITEL TT DEED EE IID III IIIT TIDES 
675 JOO OI IOI TOI II IID ER IIR II IE TIT TTTTETTT 
676 at 
677 ** Nane: NXTDST - Get the next destination variable 
678 = 
673 ** Purpose: 
680 am Get next variable fron variable list. 
681 x The variable will be created if not yet exist. 
682 aR 
683 ** Entry: 
684 aa DO is the PC 
685 x P=O 
686 cA 
687 aX Exit: 
688 ax DO is the PC 
689 xx Carry clear: 
690 ae Reached end of variable list 
691 a Carry set: 
692 xx Variable on top of stack 
693 ax C,D1 point to top of stack (variable has been popped) 
694 a AVMENE=01 
695 aR $2=1 if string variable 
696 ak (S-R1-1[3:0}sflaxanun string length) 
697 ke 
698 a Error exit 1f the variable 1s an array or complex nunber 
699 An Error exit if insufficient terory to create neu variable 
700 a Error exit 1f encounter any error on the loop 
701 
702 ** Calls: RESTDO, CHKEOL, NFLG=0, EXPEXC , NXTVA-, DINST+, STKVCT, 
703 a DIMNSTK, POPNTH, AVE=D1 , O1FSTK, CHKASN, START 
704 ax 
705 x* Uses: 
206 *k Inclusive: A,B,C,D,RO-R4, 00,01, STNTDO, STNTRO, STMTR1, FUNCxx, 
707 x ST{11:0], all RAM EXPEXC is permitted to use 
708 xx 
209 ** Stk Lyls: 5 (EXPEXC) 
710 ae 
711 ** History: 
712 aie! 
713 xk Date Progranner Modification 
714 kr iGo Jtevemsed- pene taes eee ue ek atts toe 
715 Kk 42/16/83 NZ Updated docunentation 
716 a SC Wrote routine 
717 Rx 
718 JOSIE III III IIIS TTT ATA 
719 JOSS IOI SOIT III TOC OT TTI TK 
720 F222B 0 CON(1) =FIXSPC 6 nibbles available here 
721 F222C BSS 6-1 
722 x. 
723 X= 
724 F2231 8FOO =NXTDST GOSBVL =CHKEOL Check 1f EOL yet 
OO 
725 F2238 500 RTNNC Yes...return with carry clear 


726 
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72? 
728 
729 


730 
731 
732 


733 
734 
735 
736 
737 
738 
739 
740 


741 
742 
743 
744 
745 
746 
74? 
748 


749 
750 
751 
72 
753 


754 
755 
756 
797 


758 


759 
760 


761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
774 


F223B 
F223E 
F2242 


F2248 
F224F 
F2256 


F225D 
F2260 
F2262 
F2265 
F2267 


F226E 
F226F 


F227E 
F2282 


F2289 
F228D 
F2291 
F2294 
F2298 


F22SF 
F22R2 
F22A5 
F22R7 


F22AC 


F22B2 
F22B4 


F22BR 
F22BD 
Fe2BF 


F2203 
F2e2C? 
F22CR 
F22c0 


Feecr 


161 
7080 
8EOO 
oo 
8F00 
000 
8FOO 
000 
8FOO 
000 


873 
70 
861 
94 
8D00 


7EC3 
8FOO 


7E2F 
7856 
1C6 

15F6 
1B00 


149 
908 
Et 

32F F 


8E00 


0? 
8£00 


407 
DB 
1553 


7983 
137 
136 
02 


8FOO 
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NXTDS- 


x 


DO=D0+ 2 
GOSUB Nf1g=0 
GOSUBL =eXPEXC 
GOSBVL =NXTVA- 
GOSBYL =DINST+ 


GOSBVL =STKVCT 


* Do not allow an array or a 
k 


BRDT YP 


xe 
ke 


ae 
ke 


NXTD10 


a 
NXTD20 


x 
kL 


Hf 1g=0 


?$T=1  Crplex 
GOYES BADTYP 
*$T=0) Array 

GOYES NXTD10 
GOVLNG =RDATTY 


CON(1) =FIXSPC 
BSS 16-1 


GOSUB Dirstk 
GOSBVL =POPNTH 


GOSUB aVE=D1 
GOSUB Difstk 
Di=Di- 7 
C=DAT1 ? 
DO=(5) =MLFFLG 


A=DRTO B 

7A=0) =P 
GOYES NXTD20 
LCHEX FFF 


GOSUBL =CHKASN 


D=C A 
GOSUBL =START 
6OC ENTRex 
C=D A 
DATt=C x 
GOSUB Dinsth 
CDIEX 

Di=C 

RTNSC 


GOSBYL =SVIRC 


Page 17 
Clear MLFFLG so can tell if UDF used 
Evaluate the variable 
Create it, 1f needed, and set it up 
Set D1 to top of stack,clear ST 


Set appropriate status bits 


coriplex number as the destination 
Is it coriplex? 

Yes... Type error 

Is 1t array? 


No...continue 
Yes...Data Type error 


16 nibbles available here 


Reset D1 to top of stack 
Pop off the variable value 


Set AVNENE=D1 
Set D1 to (FORSTK) 
Move to (FORSTK)-7 (Device addr) 


Read device address & info 
Check if a UDF has been called 


User-defined function? 
No...continue 
Yes...set device address to search 


Figure out how to find the device 


Find the device 
Error setting up the device address 
Write out the (new) device address 


Position back to top of stack 
Set C[A]=D1 = top of stack 


Return with carry set...good var 


Save pointer for TRACE 
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000 
772 F22D6 8DOO GOVLNG =NMFLG=0 Clear nulti-UDF flag 
000 
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773 STITLE Read characters frori loo 
774 SIO II I IIIT TIT DIE III TTT I OOS II III II IIIS TIO SIT IT ISIS IIIS 
775 JS IO OI III III III III I OTT AISI TOT III TIT IIIS III SSIS ITAA 
776 a 
77? ** Nare: RED-LF - Read characters fron the loop until <Lf> 
778 ** Nane: SKP-LF - Read & discard characters fron the loop 
779 ** Nare: REDCOO - Read characters fron the loop until <Lf> 
780 *k Narie: REDCHR - Read characters fron the loop 
781 a* Nane: RDSTO1 - Read characters fron the loop to stack 
782 a 
783 ** Category: LOCAL 
784 aK 
785 ** Purpose: 
786 ae Read data fron the loop onto the stack 
787 ak 
788 xk Entry: 
789 ak REDCHR, REDCOO, RED-LF, SKP-LF only: 
790 ak The 7 nibble device specifier 1s stored on the botton 
791 a (highest address) of the nath stack. 
792 ak RDSTO1 only: 
793 . &k R1[6:0] is the 7-nibble device specifier 
794 ak 
795 ax (Rll entries) 
796 we 
797 aX P=0, HEXNODE 
798 ax D1 points to current top of nath stack. Data read will 
799 as be stored on top of stack (last character placed at 
800 a lowest address) 
801 ak 
802 ax Available neriory on stack will be checked. 
803 kk 
804 a S5 (BytCnt): 
805 AK 1:Read a specified nurber of characters 
806 ie A[A] 1s the nuriber of characters to read 
807 ae O: Terminate by END frane or terminating char natch 
808 ois A[B] is the terminating character 
809 xx 
810 ak $6 (Trash): 
811 ae 1:Ignore the data which 1s read 
812 xa 0:Save the data which 1s read on the stack 
813 ae 
814 a S? (ChrTrp): 
815 a 1:Detect a special character in inconing data 
816 ax B[B] is the character to be detected 
817 kk If B[3:2]=00, ignore the character; 
818 xs otherwise replace the character with B[3:2] 
819 ak 0:No special character processing 
820 AS, 
821 a If systen flag -23 1s set: 
822 aR Terminate by ETQ, terrinating character 1s ignored 
823 ae 
824 a If $5 (BytCnt)=0, S6 (Trash)=0, and S-RO-3[0]>2 (the 
825 KA destination 1s a string), then S-R1-1[3:0] and R3[A] 
826 aS are the ttaximun nunber of chars to read before 


827 me interrupting the conversation with an NRD. 
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828 ak R3[S] must not be "F". 
829 Sa (R3 is for HPIL:1A only, S-R1-1 for all others) 
330 kk 
831 aa If $5 (BytCnt)=1 or S6 (Trash)=1, then flag -23 has 
832 ak no effect other than to terminate on an ETO instead 
833 xn of the terninator character. 
834 ak 
835 ak If ¢ S5 (BytCnt)=0 and S-RO-3[0]<=2 (not string dest) } 
836 xx OR { device node (not controller) }, 
837 ak then flag -23 has no effect (it is ignored). 
838 a 
839 ak 
840 kk Exit: 
841 ae HEX rode. 
842 &k KN=0. 
843 a Carry clear: 
844 ax Di points to the last character read 
845 ak Nunber of chars read=(FORSTK)-D1 
846 xk S4 (Menerr)=0 
847 xR A[S] contains the state of flag -23 (A[S]=0:flag clear) 
848 aK Carry set: 
849 ae S4 (Menerr)=1: Insufficient memory (Need to load eMEN) 
850 es S4 (Menerr)=0: P,C[O} is the error code 
851 & 
852 ** Calls: FSTK-7, SFLAG?, STGART, CHKSTK, GETDev, CLMODE, CS=TYP, 
853 * PUTC, SETTRM, PUTEFC, YTML, PUTE, GETX, FRAME-, CLNDUT 
854 & 
855 *k Uses: 
856 *k Inclusive: A,B{15:14,A},C,0[15:13,5:0],R1,R2,00,01,P,ST[7:0] 
857 xR 
858 AK Stk lvls: 4 (START) 
859 ak 
860 ** History: 
861 aK 
862 aR Date Progranner Modification 
863 hi? Hovedcte* iGecicwess. eteetsaipetouenaucduscomezeosesve 
864 kK 01/09/83 NZ Reurote character read loop to 
865 an be faster and shorter 
866 kk 12/19/83 NZ Updated docunentation 
867 xk sc Wrote routine 
868 ak 
869 JIT IO IIIS COICO OC OTT T IAT T I 


870 

871 F22D0 856 

872 F22EO 6600 

873 

874 

875 F22E4 846 

876 F22E7 845 

877 F22ER 847 

878 F22ED 1B00 
000 

879 F2eF4 148 

880 F22F? 119 

881 F22FR 72EE 


FORTIS TITER TTI 


SKP-LF  ST=1. Trash Read and trash data until <Lf> 
GOTO REDCOO 
x 
ke 
RED-LF ST=0 Trash Keep all data that 1s read 
REDCOO =ST=0 = BytCnt Read and save until <Lf> 
ST=0 = ChrTrp Don’t do special char matching 
DO=(5) =TERCHR 
A=DATO B Read the terminator char (<Lf>?) 
=REDCHR C=R1 (Preserve the upper nibs of R1) 
GOSUB FSTK-7 Get device address fron stack... 
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882 F22FE 109 R1=C ...and save it in Ri 
883 F2301 ACO RDSTO1 A=0 S$ Clear flag -23 indicator nibble 
884 F2304 102 R2=A Save character count in R2{A] 
885 x 
886 * Save systen flag(-23) in R2[(S] 
887 x 
888 F237 3100 LC(2) =f1lEOT 
889 F230B 8E00 GOSUBL =sFLAG? Check if flag -23 is set 
0 
890 F2311 5B0 GONC RDSTOS Not set...leave R2[S]=0 
891 F2314 112 A=R2 Flag -23 is set...set R2(S] 
892 F2317 B44 A=A+1 SS 
893 F231A 102 R2=A Save back in R2 
894 F2310 119 RDSTOS C=R1 Recall device address fron R1 
895 F2320 D? D=C A 
896 F2322 8E00 GOSUBL =START Set up the mailbox, DO 
oo 
897 F2328 560 GONC = RDST10 No error...continue 
898 F232B 664C ENTRex GOTO ENTREX Error...exit 
899 a 
900 k 
901 F232F 73F1 RDST1O GOSUB CHKSTK Set R1[A] to # bytes available 
902 F2333 DC ABEX A Suap # bytes to B[A], B[3:0] to A 
903 F2335 122 ARZEX Save B[A] in R2, recall R2 to A[S,A] 
904 F2338 7DB5 GOSUB getdev Check 1f in device tiode 
905 F233C 462 GOC RDST15 Yes...continue 
906 F233F 7B81 GOSUB CLNODE No...clear all terninate nodes 
907 F2343 47E Coc ENTRex (Error) 
908 F2346 948 *A=0 OS Is flag -23 clear? 
909 F2349 Al GOYES RDST15 Yes...continue 
910 F234B 875 *ST=1 BytCnt No...is this by count? 
911 F234E 14 GOYES RDST25 Yes...continue 
912 F2350 876 ?ST=1 Trash Not by count...keep data? 
913 F2353 83 GOYES RDST20 - No...set count to "FFFFF" 
914 x 
915 * Keep data which is read, flag -23 1s set, not by count 
916 . 
917 F2355 ?C9E GOSUB CS=TYP Check if nuneric destination 
918 F2359 413 GOC RDST20 Yes...set byte count to "FFFFF" 
919 . 
920 * Systen flag -23 is set, destination 1s a string variable, 
921 * read until EOT received or the string is full. 
ded * 
923 F235C 7231 GOSUB A=SLEN Set A[A] to naxinun string length 
924 * Use the max string length as count 
925 F2360 855 ST=1 By tCnt (Go to counting node) 
926 - 
927 F2363 875 RDSTIS ?ST=1 BytCnt Is this a read by count? 
928 F2366 92 GOYES RDST25 Yes...set 1t up 
929 * 
930 * Terminate by character matching; aluays terminate by an END 
931 * frane.. Flag -23 should be ignored for this case. 
S52 z 
933 F2368 ACO A=0 5 Clear flag -23 indicator nibble 


934 F236B 811 BSLC 
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935 
936 
937 
938 
939 


340 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 


952 
953 
954 
955 


956 
957 
958 
959 
960 
961 
962 


963 
964 
365 
966 
967 
968 
369 
370 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
935 


F236E 
F2371 
F2374 
F2377 
F237Rh 


F2380 
F2384 
F238? 
F238B 
F238D 


F238F 
F2392 


F2394 


F 239A 
F239D 
F239F 
F23A1 


F23A7 


F23AB 
F23RE 
F23B0 


F23B6 
F23B9 
F23BB 
F23BE 
F23C0 
F23C3 


F235 
F23C8 
F23CB 
F23CD 
F23D0 
F23D03 
F23D6 
F23D9 
F230 
F23DF 
F23E1 
F23E4 
F23E? 
F23EA 


811 
REB 
815 
815 
350 
00 
7051 
46A 
7181 
DO 
cc 


968 
80 


8E00 
00 
BAB 
EO 
06 
8E00 
00 
7C44 


8R8 
F? 
8EOO 
00 
435 
cc 
876 
E3 
867 
42 


122 
966 
61 

814 
814 
REG 
810 
810 
96E 
20 

122 
521 
874 
21 
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RDST20 


& 
RDST25 


& 


* All non-controller devices 


x 


RDST30 


t 
* Start 
t 


RDST35 


RDST40 


x 


BSLC 

B=A B 

BSRC 

BSRC 

LC(4) 

GOSUB pute 
GOC ENTRex 
GOSUB SETTRM 
A=0 A 
A=R-1 A 

70-0 =—«iB 
GOYES RDBSTH 


GOSUBL =YTNL 
*A=0 OR 

GOYES RDST35 
C=A A 
GOSUBL =hCPY5s 


GOSUB pute 
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Save the terminator char in 8({15:14] 


(=mSETTM)+12 Set node to terminate by END frane 


Error 
Set terninate by character natch 
Set byte count to "FFFFF" 


Is the device LOOP? 

Yes...leave addressing as it 1s 
will have 0[B}=0! 

No...address the device as talker 
Is the byte count zero? 
Yes...goto RDST75 (out of range) 
No...start conversation 


Load either SDA or Set frare count 


Send data, count=A[A] 


of tain data read loop 


7A=O OA 
GOYES RDST75 
GOSUBL =GETX 


Goc RDST65 
A=R-1 A 

?ST=1 Trash 
GOYES RDST55 
?ST=0 «Chrirp 
GOYES RDST5O 


Is the count to zero? 
Yes...exit 
No...read next nessage 


Not data...check frane 
Decrenent count 

Ts this data to keep? 
No...process next byte 

Is this special char trapping? 
No...store it 


* Special character processing 
t 


RDST45 
RDST5O 


AR2EX 

7RHC OB 
GOYES RDST45 
RSRC 

ASRC 

C=A B 

ASLC 

ASLC 

7C#HO «iB 
GOYES RDST45 
RRZEX 

GONC RDSTS2 
?ST=1 Menerr 
GOYES RDST55 


Save count in R2, get chars 

Is this the special character? 
No...restore A, R2; continue 
Yes...see uhat to do 


Copy the replace char/delete flag 


Test char to set carry if replace 
Carry SET to replace,CLEAR to delete 
Restore A, R2 

This was delete...ignore it 

Has stack collision occurred? 
Yes...do next char 
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986 
987 
988 
983 
9% 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 


1011 
1012 
1013 
1014 
1015 
1016 
101? 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
102? 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 


F23EC 
F23EE 
F23F 1 
F23F4 
F23F? 
F23FA 
F23FC 
F23FE 
F2401 


F2404 
F2407 


F240A 


F240A 
F240D 
F240F 


F2415 
F2418 


F241h 
F241D 
F24tF 


F2423 
F2426 


F2428 
F242B 
F24en 
F242eF 


F2433 
F24.35 
F2439 
F243B 


CD 
451 
101 
140 
BF6 
F6 
OD 
5AB 
49A 


854 
4aF 


8% 
62 
8E00 
00 
880 
BO 


94C 
6AF 


880 
71 


875 
4F 
20 
6330 


b3 
7180 
20 
02 
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RDSTS2 
ROST55 


xe 
x. 


RDST60 


ke 
ke 


RDST65 
x 


* & Mw OF 


If it 


>» oe he 


RDSH. 


ke 
ke 


RDST70 


x 


B=B-1 A 

GOC RDST60 
Di=D1- 2 
DAT1=C B 

CSR W 

CSR A 
P=P-4 

GONC = RDST40 
GOC RDST35 


ST=1 Nerierr 
GOC RDST55 


2p =eABORT 
GOYES RDST80 
GOSUBL =FRANME- 


PH = -=pEOT 
GOYES RDST70 


EQT received: check if 
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No...check 1f room for this char 
No roon...set renerr 
Roon...decrenent stack pointer 
Write out the character 

Shift to the next character, if any 


See if any characters left 


Yes...process next char 
Go always...get more chars 


Go always 


GETX returned in an error condition: 

If an ETO was received and flag -23 is clear, send SDA again 
If an ETO was received and flag -23 1s set, finished 

If matched terminating character, finished 


Is this an abort? 
Yes...exit innediately 
No...check the frane 


Is this an EQT? 
No...check nore 


flag -23 is set (to terninate on EQT). 


is not set, send an SDA to continue the conversation. 


AHO S 

GOYES RDST75 
GOTO —RDST30 
?PH = =p TERM 


GOYES RDST85 


Is flag -23 set? 
Yes...exit 
No...send SDA again 


Is it terrinator character watch? 
No...unexpected frare 


* Terminating char was detected. 
are in byte count node, just keep reading until the 


kf we 
* byte 
* 


RDST75 


ke 
ke 


RDST80 


count reaches zero. 


?ST=1 BytCnt 
GOYES RDS30. 
Ps 0 

GOTO RDSTX 


D=0 A 

GOSUB CLMDUT 
P= =eABORT 
RTNSC 


Is this a read by byte count? 
Yes... keep reading 
No...set P=0, exit 


Don’t send UNT 

Try to clean up the mailbox 
(Ignore any error fron CLMDUT) 
Set eABORT, set carry for error 
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1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1063 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 


F243D 
F2441 
F2443 
F244? 
F2449 
F244) 
F2450 
F2452 
F2456 


F2453 
F2458 
F245F 
F2461 


F2463 
F2467 
F246R 
F246) 
F2470 
F2473 
F2475 
F2478 
F247A 
F247D 
F247F 
F2482 
F2485 
F2488 
F248R 
F248D 
F2490 


80FO RDST85 CPEX 0 
DS B=C AR 
7370 GOSUB CLADUT 
DS C=B AR 
80D0 P=C 0 
880 ?PH =pSTATE 
% GOYES RDST&87 
8004 P=C 4 
540 ; GONC RDST89 
ke 
20 RDST8? P= =eUNEXP 
80FO RDST89 CPEX 0 
20 P= =ePIL 
02 RTNSC 
x 
x. 
x 
: End of main data entry loop 
* 
x 
7350 RDST9O =GOSUB CLMDUT 
400 RTNC 
811 BSLC 
811 BSLC 
874 ?ST=1 Menerr 
0 RINYES 
875 ?ST=1 BytCnt 
51 GOYES RDST95 
876 ?$T=1 Trash 
01 GOYES RDST9S 
853 ST=1— Endf rn 
14F C=DAT1 B 
965 BHC OO 
80 GOYES RDST99 
171 D1=D1i+ 2 
843 RDST95 ST=0 — Endfrn 
03 RDST99 RTNCC 
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xe 
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Save P in C(O] (could be C=P 0) 
Save the error code in B for nou 
Clear mode, untalk (if possible) 
Restore the error code fron B 
Recall P value for error 

Is the error code in the mailbox? 
No...set generic error 
Yes...read the error code 

Go always 


Unexpected frane error 

Put error code into C[0] 

Set P to ePIL error code 

Set carry to indicate error exit 


The following code 1s to clean up after nornal termination 


Clear node and send UNT 
(Error) 


B[B] is the terninator character 
Was there a stack collision? 
Yes...ansufficient menory 

Is this a read by count? 
Yes...don’t strip “terninator" char 
Is this read but through away? 
Yes...don’t look at garbage! 
Assune an END frane first 

Check the last character 

Is 1t the terninator character? 
No...keep the last character 
Yes...throw away terminator char 
Last frane 1s not an END frane 
Clear carry to indicate all OK 
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1080 STITLE Utility routines 
1081 JOTI CII IOI II IIIT SI OTT III III SII IIIS SOS SII I III ISIS AIK 
1082 JOIST ICICI IOC TOI CII II SI III III IIIT IIA 
1083 ax 
1084 ** Nane: A=SLEN - Set A[A] to the string length 
1085 ax 
1086 ** Category: LOCAL 
1087 aK 
1088 ** Purpose: 
1089 xR Read the string length fron S-R1-1 into A[A]} 
1090 xx 
1091 ** Entry: 
1092 a None 
1093 ax 
1094 x Exit: 
1095 Kx ALA] 1s string length (a[4]=0) 
1096 = 
1097 ** Calls: None 
1098 Ex 
1099 ** Uses....... 
1100 *k Inclusive: A[A] 
1104 ax 
1102 ** Stk lvls: 1 (internal push) 
1103 ae 
1104 ** History: 
1105 xs 
1106 xe Date Progranner Modification 
1107 aaa aaah aaltoetatatatetatatel 
1108 KK 01/12/84 NZ Wrote routine 
1109 ax 
1110 JIG III GOI IGE II IIT II III 
4111 FOTO I IOI OOO IO OOOO OI IIIT 
1112 F2492 06 A=SLEN RSTK=C Save C[A] on RSTK 
1113 F2494 137 CD1IEX Save D1 in C[A] 
1114 F249? 1FOO D1=(5) =S-R1-1 
000 
1115 F249E DO A=0 A Clear A[4] 
1116 F24A0 15B3 A=DAT1 4 Read string length 
1117? F24A4 137 CDIEX Restore [1 
1118 F24A7 07 C=RSTK Restore C{A] 
1119 F24A9 01 RTN Return (carry unchanged) 
1120 x 
1121 ae 
1122 F24AB 0 CON(1) =FIXSPC 15 nibbles available here 
1123 F24Ac BSS 15-1 
1124 ITO TORR OI TOIT ISTO IO OIG GOTO 
1 125 OOOO OO RII IGG IIE IO GIO 
1126 ae 
1127 ** Nane: CLNDUT - Clear tertinator nodes, send UNT 
1128 ** Nane: CLMODE - Clear terminator nodes 
1129 a 
1130 ** Category: LOCAL 
1131 ae 
1132 ** Purpose: 
1133 ae Clean up any special terminator nodes set up by ENTER, 
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1134 AK set up default nodes: 
1135 ak Controller: No terninator nodes enabled 
1136 ak Device: Terninate on <Lf> or END frane 
1137 ak 
1138 ** Entry: 
1139 ia DO points to the nailbox 
1140 ah Bit 2 (=Device) of LOOPST indicates whether device or 
1141 an controller 
1142 xn 
1143 RK Exit: 
1144 ak Carry clear: 
1145 xx P=0 
1146 xk Carry set: 
1147 kk Error (P, C[OQ] are the error code) 
1148 an 
1149 kk Calls: GETDev, UNT, PUTC 
1150 k 
1151 Kk Uses....... 
1182 kK Inclusive: C[W],P,ST(3:0] 
1153 aR 
1154 xk Stk lvls: 1 (GETDev:-1 level saved in C[A]))(UNT)(PUTC) 
1155 kk 
1156 ak History: 
1157 ak 
1158 * Date Progranner Modification 
1159 BK nen e ene ene e nen ren nnn nen en nnn nen ne nee nee ne 
1160 KK 12/19/83 NZ Added docunentation 
1161 aK 04/01/82 Sc Wrote routine 
1162 ; ak 
1163 JOGO UII OCIS OIG OCCU TT TE 
1164 JOO IOI OOO TTI 
1165 F24BR 07 CLMDUT C=RSTK Save 1 RSTK level used by GETDev 
1166 F24BC 7934 GOSUB getdev Check if we are in device rode 
1167 F24CO 06 RSTK=C Restore the RSTK level 
1168 F24C2 4A3 GOC TER/LF If in device node, set frane count=0 
1169 x 
1170 * Controller 
1171 x 
1172 F24C5 96B 7D=0 =—s«iB Is the device LOOP? 
1173 F24C8 60 GOYES CLNODE Yes...don’t send an UNT 
1174 F24CA 7810 GOSUB  UNT No...send an UNT 
1175 F24CE 20 =CLMODE P= 0 
1176 F24D0 3300 LC(4)  =nSETTN Clear terninate on character natch 
00 
1177 F24D6 7600 GOSUB putc 
1178 F24DA 3300 LC(4) (=nSETTN)+8 Clear terninate on END frane 
00 
1179 F24EO 8C00 putc GOLONG =PUTC 
00 
1180 x 
1181 x. 
1182 F24E6 20 9 =UNT P= 0 Send the UNT frane 
1183 F24E8 3300 LC(4) =nUNT 
00 


1184 F24EE 61FF GOTO = putc 
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1185 a 
1186 x. 
1187 x 
1188 * C(A] is the frane count 
1189 x 
1190 F24F2 25 putefc P= 5 
1191 F24F4 300 LC(1) ="SFC@S Load "SET FRAME COUNT" opcode 


1192 F24F7 8C00 
00 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

tens 

1226 

122? 

1228 

1229 

1230 

1231 F4FD De 

1232 Fe4FF ?FEF 

1233 F2503 400 

1234 F2506 31R0 

4235 F250A DA 

1236 F250C 3300 
00 

1237 F2512 7ACF 


pute GOLONG =PUTE 


IOI III OOO ICO ITO TTT TI TOR RIOT TIO 
JOO TOOT OT TOOT OTOL TD IK 
xk 


** Nanie: TER/LF - Set up to terminate conversation on <Lf> 
** Nane: SETTRN - Set up to terninate on character in A[B] 
ak 

** Category: LOCAL 

xk 

** Purpose: 

os Enable terminate on character match mode, with the 
ae character to natch set to <Lf> 

ak 

ee Entry: 

ie DO points to the nailbox 

xe SETTRN only: A[B] is the terminating character 

ak 

AR ENED: 

a Carry clear: 

#K P=0, frane count 1s zero, terminate on <Lf> 

aK Carry set: 

aK P, C{O] are the error code 

ah 

** Calls: PUTEFC, PUTC 

aK 

*x Uses: 


*k Inclusive: A[A],C{A),P,ST[3:0] (A[A] only for TER/LF) 
kK 


kk Stk lvls: 1 (PUTEFC)(PUTC) 


xk 


a* History: 
kk 


Be Date Prograrner Modification 

Hi Dect Ge- ee laee ie,  hidSh debts cue cue euch oaleeny 
KK 12/19/83 NZ Updated docunentation 

i 


x SE Wrote routine 
kk 


FOR OIRO OOOO IT TO OI OOOO 
FOO IOI TOI IOI OEIC III GIST 


=TER/LF C=0 A Set frane count to zero 
GOSUB putefc 
RTNC 
LCHEX OA Set up for <Lf> terminator 
A=C A 


SETTRN LC(4)) (=nSETTN)+1 Enable terminator character match 


GOSUB putc 
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1238 F2516 400 RTNC 
1239 F2519 3X0 LC(4)  =nSETTC 
00 
1240 F251F REG C=A B Set terminator character to A[B] 


1241 F2522 6DBF GOTO = putc 
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1242 STITLE Check # bytes nen available 
1243 JI IOI I III III IIIT IIS II TSI DI II IIA I III IIIT I TRI III ODI III II IIIA 
1244 II III IID I III IIIS ISI III I III III III IIIT IT ISD AT III ITI III I IIIA IIIA 
1245 ax 
1246 _ Narie: CHKSTK - Check hou many bytes available on stack 
1247 x 
1248 *k Category: LOCAL 
1249 aK 
1250 ** Purpose: 
1251 kx Check if the math stack has at least 16 bytes available 
1252 ak and return the actual number of bytes available 
1253 x 
1254 *k Entry: 
1255 aa 01 points to the top of the math stack 
1256 a $6 (Trash)=0: Do the computation 
1257 a $6 (Trash)=1: Don’t bother with conputation...don’t care 
1258 ‘ 
1259 Exit: 
1260 aE Carry clear: 
1261 ae OK (enough room for at least 16 bytes) 
1262 aK Ri{A] is nunber of bytes past 16 that are available 
1263 ak $4 (Menerr)=0 
1264 a Carry set: 
1265 aK $4 (Menerr)=1 
1266 ax 
1267 aX Calls? DI=AVS 
1268 als 
1269 xk Uses: 
1270 xk Inclusive: A[W],C{W],R1[AJ,ST[4] 
1271 x 
1272 ** Stk Lvls: 1 (D1=AVS) 
1273 xe 
1274 *k History: 
1275 ax 
1276 ee Date Prograrnner Modification 
1277 BR manne nn enn een n eee nner ener nen ener errr reer errenn- 
1278 RK 12/19/83 NZ Updated documentation 
1279 a SC Wrote routine 
1280 = 
1281 III II IIIS IIT IIIT IAI TTI TALI I III I IIIT IAAI STII I TTI IIIT T ITO IOI IH 
1282 JI TORI IKI ADE ITD TDD TEE KEIR EEDA EDIT A TTI IDI ITI I TTT TTI AT IIH 
1283 F2526 854 CHKSTK ST=1 9 Menerr Assune there 1s no roon left 
1284 F2529 876 ?ST=1 Trash Check nenory available? 
1285 F282C 03 GOYES CKST10 No...don’t care (exit) 
1286 F2S2€ 1CF Di=D1- 16 Yes...conpute available nenory, 
1287 F2531 1CF Di=D1- 16 leaving a 16 byte leenay 
1288 F2534 AF2 C=0 W (Clear nibble 5 for CSRB) 
1289 F2537 137 CDIEX Get stack pointer into C[R] 
129% F253A 8E00 GOSUBL =D1=AVS 
00 
1291 F2540 143 A=DAT1 A Read AVMENS into A[A] 
1292 F2543 135 01=C Restore 01 (-32) 
1233 F2546 17F D1=B1+ 16 
1294 F2549 17F Di=D1+ 16 Now D1 1s restored to entry cond’n 
1295 Fes4eC £2 C=C-A A Compute available neriory size 
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1296 F254E 400 RTNC (If carry, less than 16 bytes) 
: 1297 F2551 81E CSRB Convert count to bytes 
: 1298 F2554 111 A=R1 Preserve upper nibbles of R1 
1299 F255? DA A=C A 
1300 F2559 101 Ri=A Write the count to R1{A] 
1301 F255C 844 CKST10 ST=O Menerr If here, no error 


1302 F2SSF 03 RTNCC 
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1303 STITLE ENTER USING execution 
1304 JOIST ITO II III TOIT IT IIT ITT 
1305 * List of external calls and nodules: 
1306 a 
4307 x  AVE=D1on/f Set AvMenEnd = D1. 
1308 * 
1309 * COUNTC MB&USG Count #synbols in C(RA), 
1310 x for #input chars. 
1311 * 
1312 * —DCRMNNT MB&USG Decrenent synbol multiplier 
1313 x (e.g., “5D") 
1314 k 
1315 * ENDING NB&USG Reached end of IMAGE string: 
1316 - test for nore input fields. 
131? x 
1318 *  NKTEXP =-NB&USG Fetch next expression. Stores 
1319 x sone registers first, then 
1320 - calls EXPEXC. 
1321 t 
1322 *  RCVOFS MB&USG Recover offset: read offset 
1323 fron RAN, compute orginal 
1324 x address. 
1325 . 
1326 *  TstEnd MB&USG Test input last for EOL, @ or "I". 
1327 * 
1328 *  USloop MB&USG Conputes address for looping back 
1329 x to multiplier (e.g., "5D"). 
1330 * 
JOSIE III OCC I ET TIT ITT TAT 


1331 
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1332 
1333 KI IK II IDR TAI TIE IIIT I ITI ITALIA ISI DELL LILI TDL IT ITT III ISS IIS 
1334 x 
1335 * Status bits: 
1336 x 
133? sCOUNT €EQU BytCnt For ENTSTR: "Count input chars" 
1338 sTRASH EQU Trash For ENTSTR; "Read but trash chars" 
1339 SIGNOR EQU ChrIrp For ENTSTR: “Ignore special char" 
Maes JOGOS GIS GUIEUI CCI II 
1342 JOIST II ITT IIT 
1343 - 
1344 x 
1345 x--- Triage tokens for building expanded IMAGE. 
1346 *k 1) Tokens not identifying the end of a numeric field. 
1347 kk 1a) Tokens not used in backwards search. 
13448 *  uSTRPT String pointer 
1349 *  uMULT }D1| Multiplier 
1350 * uLOOPB Loop on byte 
1351 * uLOOPS Loop on string (12 nibs) 
1352 *  uINXCH Strange execution character. 
1353 x 
1354 k* 1b) Tokens used in backwards search. 
1355 * uOPNNN Open loop without multiplier 
1356 x uJNP{} Jurp over parenthesis loop pointer (9 nibs) 
1367 * uJMPst Junp over string pointer (14 nibs) 
1358 * uJMPdl Junp over unfilled delimiter (8nibs) 
1359 * ullbck Poll for backward search handler 
1360 * ulMsta IMAGE string start (|Dx|-see IMentr) 
1361 * uDPNN- Open loop with nult, decrenented 
1362 ; uOPNUN JEO| Open loop with multiplier (ends in 0!) 
1363 
1364 KAGEEAE HEATH EEF EEE EEE EEG E EES EEE tee e ete e det eet teste tes 
1365 *+ EndNun Any value >= this identifies the + 
1366 ay end of a nuneric field (used + 
1367 ay in execution). + 
1368 KEEEEEE EEE HEE FEE EE SEE EE EEE tte t td eset tt et tate tteeette 
1369 * 
1370 xx 2) Tokens identifying the end of a nureric field. 
1371 x* 2a) Tokens not used in backwards search. 
1372 x uCPLXC Complex field closed 
1373 * uLOOPP Loop on parentheses (variable #bytes) 
1374 * ulMend }FO| IMAGE string end 
1375 * 
1376 kk 2b) Tokens used in backwards search. 
1377 * uRESTP Restart parse 
1378 * uDELIN Deliniter 
1379 a Tokens delimiting an output/input field. 
1380 * uHKB™ H,K,B or ~ field 
1381 * uALit "A" literal field 
1382 * —uNUMNn |F8| Nuneric, no float chars, no sign* 
1383 * —uNUNNs |F9| Nuneric, no float chars, u/sign* 
1384 * UNUMFn |FA| Numeric, u/float chars, no sign* 
1385 * —uNUMFs [FB] Nuneric, u/float chars, u/sign* 
1386 * uNUMEn |FC| Nuneric, u/Exponent, no sign* 
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1387 * uNUNEs {FD| Nuneric, w/Exponent, u/sign* 
1388 x 
1389 x Note: these nuneric deliniters have values that 
1390 : deterniine the status bit setting in USING execute. 
1391 x 
1392 JOO TOO OTIC ICICI TIT E 
1393 JOIST II ICI OE OOK 
1394 x 
1395 * Register usage: 
1396 - The following registers are used in the ENTER USING 
1397 x execution routines, and tiust be saved during calls to 
1398 x external routines, such as ENTSTR, STOSUB, EXPEXC 
1399 x and SKP-LF: 
1400 x RO[A} = address of execution syribol 
1401 x R3(A] = program counter 
1402 x $8, $9, $10, S11 
1403 x 
JOO III TIO II UO IOI TOT TI TO TOA TIT 


1404 


Saturn Assenbler 


ENTER Execution <840113.1057> Tue Jan 17, 1984 1:23 pn 


Ver, 3.39/Rev. 26 ENTER USING execution Page 34 
1405 
1406 OI IOI IIT III TET IIIT TIT TT TTI TS III IOS SI III ISIS IIS SIS III ITA 
1407 JO I IU TTI TST TI OSI OAT ITS II IIA 
1408 Kk 
1409 ** Nane: ENTUSG - Execute the ENTER USING statenent 
1410 ah 
1411 ** Category:  STEXEC 
1412 aK 
1413 ** Purpose: 
1414 ak Execute ENTER USING statenent. 
1415 xk 
1416 xk Entry: 
1417 aE This is a poll handler in response to the pINXQT poll. 
1418 aK The only necessary conditions are: 
1419 RK RO[9-5]= address to begin execution of IMAGE tokens 
1420 o RAM set up at AvMerEnd as specified in MB&USGC. 
1421 
1422 aR Exit: 
1423 Through ENDING in mainfrarne (does NOT return fron POLL) 
1424 x 
1425 ** Calls: DO=PCA, CSRC5, AS=FTY, MEMBER, FINDA, <ENUFND>, 
1426 ak <CHRCONT>, <ENT'X">, <ENTstr>, <ENTn1t>, <ENTI pb>, 
1427 ak <ENT"C">, <ENT'P' >, CENT'H">, CENT" K">, <ENTI ps>, 
1428 ae <ENT1pp>, <ENTrst>, <ENDend>, <ENTdln>, <END"B">, 
1429 ak <ENT" /">, <ENTR'>, <IMerr> 
1430 ak 
1431 *k Uses: A-D,RO-R4,D0,D1,STNTDx, FUNCxx,ST[11:0], all 
1432 ae RAN that EXPEXC 1s permitted to use 
1433 ak 
1434 ** Stk lvls: 5 (<ENUFND>) 
1435 x 
1436 ** NOTE: 
1437 aa ENTUSG is the driving routine to execute the IMAGE 
1438 ee tokens. Each token has its own execution routine. 
1439 aR 
1440 ** Detail: 
1441 aR Call MEMBER and FINDA to execute each token. 
1442 7 
1443 ** History: 
1444 RK 
1445 ee Date Progranner Modification 
1446 RX boosie ea seeestewe, Lokies sce oe ee cct Soe eeaes 
1447 aK 01/10/84 NZ Updated docunentation 
1448 ek 01/06/83 NB Wrote routines. 
1449 KR 
1450 III III RII IIIT TTR TIA I IIIT III IIT ASSIST IIIT STII SIS IIS ISIS III IA 
1451 FOI TI III ITAA DRE ITE IIIT IAT III IIIT TI ITT SII L IA ISAS IIIA K 
1452 F2561 8FOO =ENTUSG GOSBVL =DO=PCA 
000 
1453 F2568 161 DO=D0+ 2 Step over the line length 
1454 F256B AFA A=C W Set A[15:6]=C[15:6] for test 
1455 F256E 3500 LC(6) =tENTER 
0000 
1456 F2576 15A5 A=DATO 6 Read current instruction 
1457 F257A 972 *A=C OW Is this ENTER USING? 
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1458 F257D 40 
1459 F2S7F 00 
1460 
1461 


1462 F2581 118 


1463 F2584 8E 


00 
1464 F258A 135 
1465 F258D 171 


1466 F2590 738C 


1467 

1468 F2594 D1 
1469 F2596 1C1 
1470 F2599 148 
1471 


1472 Fe59C 3100 


1473 F25R0 9E2 
1474 F25A3 60 


1475 F25A5 68B0 


1476 

1477 

1478 F259 
1479 

1480 

1481 

1482 F25A9 3F 
1483 F25AB $4 
1484 F25AD 44 
1485 FeSAF AS 
1486 F25B1 14 
1487 F25B3 Re 
1488 F25B5 35 
1489 F25B?7 D4 
1490 F25B9 E2 
1491 

1492 F2SBB 2F 


1493 F25BD 8FOO 


000 
1494 F25C4 460 
1495 F25C? 6B31 


ENTER Execution <840113.1057> 


x. 


ENTUOO 


ENTUOS 
x 


ENTUO? 
ENTUOS 


x 


ke 
we 


ENTU20 
k 


x 
x 


xe 
ke 


x 


1496 

1497 

1498 F25CB 8FOO ENTU30 
000 

1499 

1800 Fe5D2 85 

1501 F25D4 891 

1502 


1503 F25D? 00 
1504 F2509 681 
1505 

1506 F250C 00 
1507 FeSDE 2A1 
1508 

1509 F25E1 00 


x 


x 


x 





GOYES ENTUOO 
RTNSAN 


C=RO 
GOSUBL =CSRC5 


D1=C 
01=D1+ 2 
GOSUB AS=FTY 


B=0 A 
D1i=D1- 2 
A=DAT1 B 


LC(2)  =uHKB* 
eAx<C OB 

GOYES ENTUZO 
GOTO ENUFLD 


LCASC = \.MS*AZDE\ 


NIBHEX 3F 

CON(2) \E\ 
CON(2) \D\ 
CON(2) \Z\ 
CON(2) \A\ 
CON(2) \*\ 
CON(2) \S\ 
CON(2) \M\ 
CON(2) \.\ 


P= 15 
GOSBVL =MENBER 


ENTU30 
CHRENT 


GOC 
GOTO 


GOSBVL =FINDA 
CON(2) \X\ 
3 


REL(3) ENT'X" 


CON(2) =uSTRPT 
REL(3) ENTstr 


=uMULT 


CON(2) 
3) ENTnIt 


REL( 
CON(2) =uLOOPB 
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Yes...process it 
No...return carry clear, xM=1 


RO[9-5]=execute address. 
Execute address to C[A]. 


To D1. 
Undo next D1=D1-2. 
Zero input flag 


B[Aj= counter for input chars. 
Execute next token. 


Check if end of field. 
End field token match? 
No...check tokens. 

Yes...natch end field. 


Following 9 lines do this. 


Next 8 tokens count input chars. 
Input 5 chars (exponent). 

Input digit 

Input digit 

Input ASCII char. 

Input digit 
Input digit 
Input digit 
Input digit or 


Check af token in A[B] matches 

No...check for other tokens. 

Yes...take care of count. 

Execute next token. 

Skip input char. 

Pointer to inbedded literal. 
(Skip chars) 


Multiplier. 


Loop on byte. 
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1510 F2SE3 7A1 

1511 

1512 F256 34 

1513 F2SE8 F31 

1514 

1515 F25EB 05 

1516 F2SED C31 

1517 

1518 F25FO 84 

1519 F2SF2 FEI 

1520 

1521 F25F5 B4 

1522 FeSF? CF1 

1523 

1524 F25FR 00 

1525 F25FC 091 

1526 

1527 F25FF 00 

1528 F2601 081 

1529 

1530 F2604 00 

1531 F2606 491 

1532 

1533 F2609 00 

1534 F260B O£0 

1535 

1536 F260E 00 

1537 F2610 640 

1538 

1539 F2613 24 

1540 F2615 3A1 

1541 

1542 F2618 Fe 

1543 F261A B81 

1544 

1545 F261D 25 

1546 F261F £01 

1547 

1548 F2622 £5 

1549 F2624 C6F 

1550 

1551 F2627 00 

1552 F2629 800 

1553 

1554 

1655 

1556 

1657 

1558 

1559 F262C 00 

1560 F262E SB2 

1561 

1562 

1563 F2631 8D00 
000 


Se % OF 


x. 
xe 
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REL(3) ENTIpb 


CON(2) \C\ 
REL(3) ENT"C" 


CON(2) \P\ 
REL(3) ENT"P" 


CON(2) \H\ 
REL(3) ENT"H" 


CON(2) \K\ 
REL(3) ENT"K" 


CON(2) =uLOOPS 
REL(3) ENTlps 


CON(2) =uLOOPP 
REL(3) ENTlpp 


CON(2) =uRESTP 
REL(3) ENTrst 


CON(2) =ulMend 
REL(3) ENTend 


CON(2) =uDELIN 
REL(3) ENTdln 


CON(2) \B\ 
REL(3) ENT"B" 


CON(2) \/\ 
REL(3) ENT"/" 


CON(2) \R\ 
REL(3) ENT"R" 


CON(2) \*\ 
REL(3) ENTUOS 


CON(2) =uCPLXC 
REL(3) =CPLXER 


@ 
uINXCH 


CON(2) 0 
GONC ENTad3 


CPLXER GOVLNG =INerr 
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Input char or ignore ",". 


Input char or ignore ".". 


Input conpact forn (European). 


Input conpact forn. 


Loop on string. 


Loop on parentheses. 


Restart parse. 


IMAGE end. 


Unfilled deliniter. 


Input byte forn. 


Read record to EOL. 


Digit or convert "," to "." 


Skip over one variable 


Conplex execute 
(Error exit) 


These IMAGE syrbols are skipped for input: 


(Forn Feed) 
(Unrecognized IMAGE char) 


Others skip to next token. 
Go always. 
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1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
157? 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 


1607 
1608 
1609 


FOI III TIT II TST IT IIT IIIT IIIT ITI ETI ITT IIR 
JOR III IIT TT TTT II TTT TTT IDI TTT IIT IIIT IK 


aa 
** Narie: STRPcr - Strip trailing <Cr>, if any 

aa 

** Category: LOCAL 

ka 

** Purpose: 

= Renove the last character fron the string if it is a <Cr> 
aa 

** Entry: 

ak P=Q 

ak D1 points to the top of the stack (lowest address) 

ka 

xe Exit: 

ax D1 adjusted if last character was a <Cr> 

ak Carry set if no <Cr>, carry clear if renoved <Cr> 

ae 

**k Calls: None 

re’ 

aig eee 

*k Inclusive: A[B),C(B),01 

kk 

*X Stk lvls: 0 

ae 

xk History: 

ok 

AX Date Progranner Nodification 

Oh: copeties Cue eeese! - Teeter ees te Fel 
ek 12/02/83 NZ Added docunentation 

xk 04/01/82 Sc Wrote routine 

a 


FORT I III IIIT IIT IIT TTI III I SII III IIIT ITOK 
FORO ICO III OI TOTTI TIT IT II 


F2638 31D0 STRPcr LCHEX OD See if the last char 1s a <Cr> 
F263C 148 A=DAT1 B 
F263F 966 7RHC OB Is it a <Cr>? 
F2642 00 RTNYES No... return 
F2644 171 D1=D1+ 2 Yes...strip it 
F2647 03 RTNCC 
k 


xe 


F2649 8D00 strhed GOVLNG =STRHED 
000 


k. 
ke 
F2650 8COO Dinstk GOLONG =DI@AVE 
00 
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1610 EJECT 

1611 $I III IRIS IIIT IIIT IAT IIS IIS ISS IS SSIS SIS IIS IS IIIA IIR 
: 1612 JESUITS TOIT OSI ISIS 

1613 ae 

1614 tk Nane: ENUFLD - Clean up old field, set up new field 

1615 tk Nanre: ENTdln - Clean up old field (reached deliniter) 

1616 kk 

1617 *k Category: LOCAL 

1618 aK 

1619 ** Purpose: 

1620 ak "R new ENTER field has been encountered in the IMAGE" 

1621 ak Clean up the old one and prepare for the new. 

1622 aK 

1623 kk Entry: 

1624 aK P=0 

1625 ak D1 is the current execute pointer 

1626 ak B[A] is number of input characters (in DECINAL) 

1627 kk STMTD1 contains current stack pointer 

1628 ae The 7 nibble device specifier is on the botton of MTHSTK 

1629 ae 

16 tk Exit: 

1631 ak P=0 

1632 ak D1 is the execute pointer for next iter 

1633 ak STNTD1 contains current stack pointer 

1634 xx Device specifier unchanged on NTHSTK 

1635 ae 

1636 tk Calls: 

1637 Rk ENTdIn: © STORFL 

1638 ex ENUFLD: = STORFL,AS=FTY, TstEnd, Nf1lg=0, NXTEXP, NXTDS-, SAVED1, 

1639 aK RCVOFS, SKP-LF, <ENTUO7>, <RTNCHK> 

1640 am 

1641 tk Uses: A,B,C,D,RO-R4,D0,D1,P,ST[11:0], STAT xx, FUNCxx, 

1642 All RAM EXPEXC is pernitted to use 

1643 ax 

1644 *K Stk lvls: 7 (STORFL) 

1645 xe 

1646 ** Algorithn: 

1647 ze Clean up old field: 

1648 ae Read in pending chars and store in dest (STORFL) 

1649 xk If unfilled deliniter (ENTdln), then back to ENTUSG. 

1650 ax Else (ENUFLD) a new input field is required; 

1651 a Prepare for new field: 

1652 ae Save status bits in RAM. 

1653 ax Save offset to IMAGE execution in RAM. 

1654 ak Check if any nore input itens: 

1655 kk If not, then exit to NXTSTNM. 

1656 ae Call EXPEXC. (and DEST via NXTVA-) 

1657 ax Restore status bits. 

1658 aX Recover offset to IMAGE execution address. 

1659 % Back to ENTUSG. 

1660 a 

1661 *X History: 

1662 xe 

1663 pies Date Progranner Modification 


1664 WAY cote, pttteteuese  « pdavleeee das 2 oot eco ee ate 
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1665 KK 01/11/84 NZ Updated docunentation 
1666 &* 01/06/83 NB Wrote routines. 
1667 ak 
1668 JI III I III II III IIIT SIT IIIT II III II IIS IDI II TAI I III III ITS IIIA IK 
1669 SKI I IOI II II IDI IOI ITI SIT III III SS IIS IIIT IIIS III IST I SII IIIS IIASA 
1670 F2656 ENTdlin New deliniter, but no enter field. 
1671 F2656 76€1 GOSUB STORFL Input pending chars, store in dest. 
1672 F265R 6B3F ENTaO9 GOTO ENTUOS Next execution syribol. 
1673 t 
1674 t. 
1675 F265E ENUF LD New enter field. 
1676 F265E 7ED1 : GOSUB STORFL Store previous field. 
1677 
1678 * Save the IMAGE type to CHNHSV (type is in C[S] now) 
1679 * 3-H or K INAGE 
1680 * 2 - String IMAGE 
1681 * 1 - Nuneric IMAGE 
1682 ; 
1683 F2662 71BB GOSUB AS=FTY Position DO to CHNHSV 
1684 F2666 148 A=DAT1 B 
1685 F2669 3100 LC(2)  =uHKB* 
1686 F266D B46 C=C+1 § C{S] =1 
1687 x 
1688 F2670 962 ASC OB H or K IMAGE? (C[B] = uHKB*) 
1689 F2673 31 GOYES Hork Yes...set type = 3 
16% F2675 E6 C=C+1 A (C[B) = uAlit) 
1691 F267? 962 A=C OB String IMAGE? 
1692 F267R FO GOYES String Yes...set type = 2 
1693 F267C 5FO GONC = NunIrig Go aluays...set type = 1 
1694 as 
1695 oe 
1696 F267F 8D00) Tstend GOVLNG =TstEnd 
000 
1697 Bis 
1698 Re 
1699 F2686 B46 Hark C=C+1 §$ 
1700 F2689 B46 String C=C+1 $§ 
1701 F268C 1544 NunIng DATO=C S$ Save the IMAGE type in CHNHSY 
1702 x 
1703 F2690 7BEF GOSUB Tstend Test for end of ENTER stnt. 
1704 F2694 564 GONC = EndENT Yes, end of ENTER str. 
1705 F2697 133 ADIEX Save D1 in ALA] (stack pointer). 
1706 F263A 7130 GOSUB Nf lg=0 Clear multi-UDF flag, set TRACE ptr. 
1707 F269E 131 01=A Restore D1 fron arAY. 
1708 F26A1 8FOO GOSBVL =NXTEXP Get next expression. 
000 
1709 . 
1710 Fe6A8 7C9B GOSUB  NXTDS- Set up next destination variable. 
1711 . 
1712 * Get saved PC back from STMTDO and save AVMENE in STNTDO 
1713 , 
1714 F26AC 1800 DO=(5) =STMTBO 
000 
1715 F26B3 142 A=DATO A ALA] = saved PC 
1716 F26B6 103 R3=A Save PC in R3 
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171? F26B9 144 

1718 

1719 F26BC 8£00 
00 

1720 

1721 Fe6ce 174 

1722 F26C5 147 

1723 F26C8 OA 

1724 F26CA 8FOO 
000 

1725 F26D1 135 

1726 F26D4 1C7 

1727 F260? 6CBE 

1728 

1729 

17% F2608 

1731 

1732 

1733 

1734 

1735 

1736 F26DB 966 

1737 F26DE 50 

1738 F26EO 560 

1739 

1740 


1741 F26E3 76FB getEOL GOSUB 


1742 F26E7 6098 
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we 
x. 


EndENT 
x 


DATO=C A 
GOSUBL =SAVED1 


01=D1+ 
C=DAT1 
ST=C 

GOSBVL =RCVOFS 


DWM 


D1=C 
DI=DI- 8 
GOTO 8 ENTUO? 


Tue Jan 17, 1984 1:23 pn 


Page 40 
C{A] = AVMENE fron NXTDS- 
Save stack pointer in STMT01 
Set D1 to status storage. 
Read status bits. 
Restore status bits. 
Recover offset to xqt address. 
Position D1 to xqt address. 


Skip (unused) field digit counters. 
Next execution synbol. 


End ENTER statenent. 


* The following test nust be such that the jump to "exit" has 
* carry CLEAR, as RTNCHK checks carry to see if an error has 
* occurred. 
X 


xe 
ws 


exit 


ARC OC 
GOYES getEOL 
GONC = exit 
SKP-LF 
GOTO  RINCHK 


Is it an ’#’? 
No...just read and skip to EOL 
Go always...just exit 


Skip characters to EOL. 
To next statenent. 
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1743 
1744 JIS I TT II TI II TOI IIIS TOT II RII ITI II ITO II III III IIT ASIII II SSS 
1745 JOO IIIS IDO IGUI ORCC OC IIIS I I IIIT III 
1746 RK 
1747 ** Nane: ENTend - Execute the uINend token 
1748 xk 
1749 ** Category: LOCAL 
1750 aK 
1751 ** Purpose: 
1752 sia Execute the ulMend token. 
1753 Am 
1754 e*-Entry? 
1765 xx P=0 
1756 xx D1 1s the current execute pointer 
1757 wk B[A] 1s nunber of input characters (in DECIMAL) 
1758 KR STNTD1 contains current stack pointer 
1759 xk The 7? nibble device specifier is on the botton of MNTHSTK 
1760 Kx Fron ENTUSG through FINDA. 
1761 x 
1762 &k Exit: 
1763 a If there are nore input itens: 
1764 aK (returns through ENTUO9) 
1765 aK P=0 
1766 aS 01 1s the execute pointer for next iter 
1767 aie STMNTD1 contains current stack pointer 
1768 ss Device specifier unchanged on NTHSTK 
1769 aA If there are no nore input itens, exits via EndENT. 
1770 ae 
1771 kk Calls: STORFL, TstEnd, ENDING, <ENTUO9> 
1772 a 
1773 Ak Uses: 
1774 kx Inclusive: A,B,C,D,RO-R2,R3{15:5],R4,D0,D1,P, RESREG, FUNCD1, 
1775 a ST[11:8,6,5, 3:0] 
1776 as 
1777 ** Stk lvls: 6 (CNTSTR)(<STOSUB>) 
1778 xe 
1779 ** Algorithn: 
1780 aX Clean up old field: 
1781 ak Read in pending chars and store in dest (STORFL) 
1782 =e Restore status bits fron RAN at AvMenEnd. 
1783 ex Recover offset to beginning of IMAGE string. 
1784 ae If input fields have not been found, then 
1785 oe "Invalid USING" error (prevents infinite loop 
1786 as when looking for input field). 
178? xe If input field has been found, loop back to 
1788 ¥s recycle IMAGE string. 
1789 a 
1790 ax 
1791 ** History: 
1792 Be Date Progranner Modification 
1793 KK meen n eee emer ere perme rene nn recente rst recs tere 
1794 Re 01/11/84 NZ Updated docunentation 
1795 AX 01/06/83 NB Wrote routines. 
1796 = 


1797 [SESS SERS SPSS SSCSSESE SSE CSS SCS SES URS ES SELES SSS SSS SCSSCS SESS OSES 
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1798 FI III IIIS SII I IDI SII IDI IIIS III ISS SIS III II AISI AS SSIS IIS SII IIIS AS 
1799 F26EB ENTend End of IMAGE string. 

1800 F26EB 7151 GOSUB = STORFL Read pending chars, store in dest. 

1801 F26EF 7C8F GOSUB Tstend Test end of ENTER stnt. 

1802 F26F3 57E GONC EndENT Yes, end of strit. 

1803 F26F6 8FOO GOSBVL =ENDING Test valid flds, Di=start of IMAGE. 
000 

1804 F26FD 135 01=C 


1805 F2700 560 GONC ENTbO9 Go always... recycle IMAGE string. 
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1806 EJECT 
4807 JE IOI TOI III ISIS OC IOI III TI IOS I ISIS TIS II AS 
1808 JI I IIIS III IOC III II SII OI IIIA IIIS IITA 
1809 at 
1810 ** Narie: CHRCNT - Count the nunber of chars to be input 
1811 kK 
1812 ** Category: LOCAL 
1813 ak 
1814 ** Purpose: 
1815 #% Count the nunber of chars to be input fron loop. 
1816 a 
1817 ** Entry: 
1818 ak P=0 
1819 ae D1 is the current execute pointer 
1820 aa B[A] is number of input characters (in DECIMAL) 
1821 ak STMNTD1 contains current stack pointer 
1822 al The 7 nibble device specifier is on the botton of MTHSTK 
1823 ae 
1824 AX Exit: 
1825 x P=0 
1826 ax B[A] is the resultant count 
1827 a D1 is the execute pointer for next iten 
1828 xe STNTD1 contains current stack pointer 
1829 i Device specifier unchanged on MTHSTK 
1830 aS 
1831 ** Calls: COUNT 
1832 ae 
1833 xk Uses: 
1834 xk Inclusive: A[A],B[A],C(A],0[A},P,01 
1835 a 
1836 kk Stk lvls: 3 (COUNT) 
1837 ne 
1838 ** Note: 
1839 isla The E syribol generates a tokenized field 
1840 aR which looks like this: "€S$22Z". So it mill 
1841 ae aluays generate 5 digit counts. 
1842 = 
1843 xk Algorithn: 
1844 ae Call COUNTC, which does: 
1845 a If accoripanying multiplier (CNTNLT), 
1846 xx then set trate nultiplier, restore counter. 
184? xe ELSE, set C{A]= 00001. 
1848 xs Add C to B (Dec node). 
1849 ae If accorpanying multiplier, 
1850 RK then restore the count (at D1 + 4) to value 
1851 x8 Exit to ENTUO9. 
1852 ae 
1853 ** History: 
1854 ae 
1855 x Date Progranner Modification 
1856 Rh wenn een te nner nner ene nnn sneer enon 
1857 eK 01/11/84 NZ Updated docunentation 
1858 ak 01/06/83 NB Wrote routines. 
1859 ax 


1860 FOOT RRO IOI ROO TO IOI Oko 
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1861 FORO IIR RIO OJ TOI TTT TK 


1862 F2703 7400 CHRCNT GOSUB COUNT 
1863 F2707 6E8E ENTbOS GOTO ENTWS 


1864 a 

1865 Be 

1866 F270B 8FOO COUNT GOSBVL =COUNTC 
000 

1867 F2712 04 SETHEX 

1868 F2714 8% ?P= 0 

1869 F271? 00 RTNYES 

1870 F2719 20 P= 0 

1871 F271B 173 DI=Di+ 4 

1872 F271E 1503 DATI=C 4 

1873 F2722 1C3 Di=Di- 4 


1874 F2725 01 RTN 


Count multiplier, if there. 
Process next execution synbol. 


Process the count 


Was a count specified? 
No... just return 


Restore the count field to initial. 
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1875 EJECT 
1876 JI II III II TIO SIT TIT TSI IO STITT I I III IIIS IIIT OSI O SSIS I IA. 
1877 JI TOI IID IIIT III IIIT SII IIT III III IIIS III OAT IIIT TT ITO STII ITT I STII 
1878 ae 
1879 *k Narie: ENT"C" - Execute the "C" synbol 
1880 ** Nane: ENT"P" - Execute the "P" synbol 
1881 ** Narie: ENT"R" - Execute the "R" synbol 
1882 ak 
1883 ** Category: LOCAL 
1884 ak 
1885 ** Purpose: 
1886 a Execute the "C", "P", and "R" synbols. 
188? ak 
1888 *k Entry: 
1889 ak P=0 
1890 as D1 is the current execute pointer 
1891 kk B[A] 1s nunber of input characters (in DECIMAL) 
1892 KK STNTD1 contains current stack pointer 
1893 oe The 7? nibble device specifier 1s on the bottor of MTHSTK 
1894 
1895 AX Exit: 
1896 ax P=0 
1897 ak D1 is the execute pointer for next iten 
1898 xe STNTD1 contains current stack pointer 
1899 ax Device specifier unchanged on NTHSTK 
1900 a Exit to ENTUO9. 
1901 ak 
1902 ** Calls: CSRC5,CNTSTR,CSLC5, ENTSTr 
1903 ae 
1904 APSE S ucca's 
1905 *k Inclusive: A,B,C,0[15:13,5:0], RO-R2,D0,01,P,ST[7:0], STNTD1 
1906 ax 
1907 *K Stk lvls: 6 (CNTSTR)CENTSTr) 
1908 a 
1909 *k Algorithn: 
1910 a For "C": load OO02C (0 byte and ",") into C reg. 
1911 ax For "P": load OQO2E (0 byte and '".") into C reg. 
1912 a For "R': load 2E2C ("." and ",") into C reg. 
1913 ae Save in R1[15:12]. 
1914 ae Input all pending chars. 
1915 a Put R1[15:12] in B[3:0]. 
1916 ae Input one char, 1gnoring or replacing as specified. 
1917 eh Exit to ENTUSG. 
1918 +t 
1919 ** History: 
1920 = Date Progranner Modification 
1921 Rk nnn en meen nn ere nn nen nn nr nnn rene erent enee 
1922 ke 01/11/84 NZ Updated docunentation 
1923 aK 01/06/83 MB Wrote routines. 
9 ah 
ee FORO ROO OOo IOI OUI III IGE 
1926 JUICES SUI GOI II IIIS IIIS I ISIS S 
1927 F2727 20 ENT"C" P= 12 Loads "," anto C[B], 00 in C{3:2]. 
1928 F2729 OD  ENT'P" P=P-1 (For ENT"P", P is 0, gives P=14). 


1929 F272B ON P=P-1 Loads "." inte C[B], 00 in C{3:2]. 
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19 F272D 39C2 ENT"R" LCHEX OO02COO2E2C C[BJ= Character to ignore. 


E200 
C200 
1931 F2739 8E0O GOSUBL =CSRC5 
00 
1932 F273F 109 R1=C Store character info in R1[15:12]. 
1933 F2?742 7151 GOSUB CNTSTR Input pending chars. 
1934 F2746 119 C=R1 Char to ignore from R1[15:12]... 
1935 F2749 8£00 GOSUBL =CSLC5 
00 
1936 F274F DS B=C A sae to B[920]); 
1937 F2751 DO A=0 A 
1938 F2753 £4 A=A+1 A Input one char. 
1939 F2755 857 ST=1 — sIGNOR "Ignore char." 
1940 F2758 7B41 GOSUB ENTSTr Go read the character. 
1941 F275C SAR GONC  ENTbOS Go always (next execution symbol). 
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1942 EJECT 
1943 JI IOS OO TTT III III IIT TIS II IIIS ITI ISI TIT IIT IIIA III K 
1944 JI IOI TIS I III II II IO IIS IOI II IIIT III I ITI ISI ITI III TIT TIT H 
1945 aK 
1946 ** Nane: ENTstr - Execute the uSTRPT token (string IMAGE) 
1947 ** Nane: ENT"X" - Execute the "xX" token (skip character) 
1948 ae 
1949 ** Category: LOCAL 
1950 Ax 
1951 ** Purpose: ENTstr: Execute uSTRPT token, 
1952 ae ENT"X": Execute "X" symbol. 
1953 el 
1954 ** Entry: 
1955 ak P=0 
1956 es D1 is the current execute pointer 
1957 aX B[A] 1s number of input characters (in DECIMAL) 
1958 aK STNTD1 contains current stack pointer 
1959 ak The 7 nibble device specifier is on the botton of MNTHSTK 
1960 ax 
1961 tx Exit: 
1962 7 P=0 
1963 ak Di as the execute pointer for next iten 
1964 aX STNTD1 contains current stack pointer 
1965 AX Device specifier unchanged on MTHSTK 
1966 aK Exits to ENTUOS. 
1967 xk 
1968 kk Calls: CNTSTR, COUNT, CNTST1 
1969 ax 
1970 PEUSES cd teas 
1971 . Inclusive: A,B,C,D{15:13,5:0],RO-R2,D0,D1,P,STMTD1, ST[7:0] 
1972 
1973 *k Stk lvls: 6 (CNTSTR)(CNTST1) 
1974 ak 
4975 kk Algorithni: 
1976 * ENTstr: Input pending chars. 
1977 a Read in length of literal = #chars to trash 
1978 x Goto ENTXO?. 
1979 ax ENT'X": Input pending chars. 
1380 e If accompanied by multiplier, read nultiplier 
1981 aK into C[A]. Else, set C[A]=1. 
1982 aa ENTXO? Read in specified #chars and trash. 
1983 ax Exit to ENTUO9, 
4984 a 
1985 kk History: 
1986 ae Date Progranner Modification 
1987 RRO ewer ere cee e renee eee t rte ee ne rn en nen nn nee ner none n ee 
1988 RR 01/11/84 NZ Updated docunentation 
1989 tk 01/06/83 MB Wrote routines. 
1990 FOOT TORR OOOO OIG IO III GOI IO 
1991 FOROS ROO tot JOO OO IO tt took 
1992 F275F ENTstr IMAGE Literal. 
1993 F275F 7431 GOSUB CNTSTR Input necessary chars. 
1994 F2763 1C9 Di=D1- 10 To literal length. 
1995 F2766 147 C=DAT1 A Literal length= chars to trash. 


1996 F2769 SAO 


GONC = ENTXO? Go always...read and trash chars. 
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1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 


x. 
oo 


F276C 7721 ENT" X" 
F2770 779F 
F2774 05 ~=ENTXO? 
F2776 856 
F2779 7011 
F277D 598 ENTcO9 


Execution <840113.1057> Tue Jan 17, 1984 1:23 pn 
USING execution 


GOSUB 
GOSUB 
B=C 
ST=1 
GOSUB 
GONC 


CNISTR 
COUNT 
A 
sTRASH 
CNTST1 
ENTbOS 
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Input necessary chars. 

Count rultiplier, if there. 

Put count into B[A]. 

“Read but trash chars." 

Input chars. 

Go aluays...execute next synbol. 
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2005 EJECT 
2006 JISC III IE ICO TIT OS ISIS ISS IS III IK 
2007 JIG IOI III TOO I IIIT OS TSS ISI ISIS III IAI IK 
2008 a 
2009 ** Nane: ENTMLT - Execute the uMULT token. 
2010 xs 
2011 ** Category: LOCAL 
2012 aK 
2013 ** Purpose: 
2014 *x Execute the uNULT token. 
2015 ax 
2016 AR-ERUEYS 
2017 a P=0 
2018 a D1 is the current execute pointer 
2019 Kx B[A] is nunber of input characters (in DECIMAL) 
2020 a STMTD1 contains current stack pointer 
2021 The 7 nibble device specifier is on the botton of MTHSTK 
2022 
2023 AXES It: 
2024 ax P=0 
2025 a D1 1s the execute pointer for next aten 
2026 ax STNTD1 contains current stack pointer 
2027 ax Device specifier unchanged on NTHSTK 
2028 “ 
2029 xx Calls: DCRNNT 
2030 ae 
2031 BRUISES: Sie ssdrece 
2032 kk Inclusive: A[B],C{A},01 
2033 ae 
2034 ** Stk lvls: 1 (DCRMNT) 
2035 an 
2036 ** Algorithn: 
2037 ax Nove D1 to multiplier reserve, check if open 
2038 ze parentheses loop (u0PNWM). 
2039 kk If it 1s, change uOPNWM to uOPNN-. 
2040 AX Move 01 to mulitplier counter, decrenent. 
2041 ae If no carry, exit to ENTUSG. 
2042 ee If carry, restore counter to reserve value, 
2043 A set D1= value saved in D(A), exit to ENTUSG. 
2044 xx 
2045 ** History: 
2046 ae Date Progranner Modification 
2047 MK -SeceeSsae “esse e csc ke Sete veeee secede eos ee ees 
2048 Re 01/11/84 NZ Updated docunentation. 
2049 *X 01/06/83 ne Wrote routines. 
2050 as 
2051 OOOO OOOO OIE OI IO OIG IIIT IOI Or 
2082 FORO OR ORO ORO TOO ROTI ORO IO IO 


2053 F2780 8FOO ENTriit 


000 
2054 F2787 55F 


GOSBVL =DCRANT Decrenent nultiplier. 


GONC ENTcO9 Go aluays...next execution syrbol. 
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2055 EJECT 
2056 JIGS OIC CO TT TTT STI TI 
2057 JOIST I TI TOTTI IAS ITA I IIIS IS ASI IIS 
2058 zs 
2059 ** Nane: ENTipb - Execute the uLOOPB token 
2060 ** Nane: ENTlps - Execute the uLOOPS token 
2061 xt Nane: ENTIpp - Execute the uLOQPP token 
2062 z 
2063 ** Category: LOCAL 
2064 ak 
2065 ** Purpose: 
2066 &k Execute the three loop tokens. 
2067 ak 
2068 xk Entry: 
2069 ae P=0 
2070 aR D1 is the current execute pointer 
2071 xk B[A] 1s nunber of input characters (in DECIMAL) 
2072 ak STNTD1 contains current stack pointer 
2073 aK The 7 nibble device specifier 1s on the botton of MTHSTK 
2074 an 
2075 ak Exit: 
2076 aK P=0 
2077 ak D1 is the execute pointer for next iten 
2078 ak STNTD1 contains current stack pointer 
2079 eA Device specifier unchanged on NTHSTK 
2080 ah 
2081 ** Calls: USloop 
2082 ak 
2083 RE USESS .a.a bes 
2084 xk Inclusive: A[S],C{A],0[A],01,P 
2085 = 
2086 *k Stk lvls: 1 (USloop) 
2087 aR 
2088 ** Algorithn: 
2089 ak For uLOOPB: Set P=3 
2090 ak For uLOOPS: Set P=15 
2091 ta Nove D1 back to multiplier counter (C+P+1) 
2092 & ENlop3 Save original D1 in D (execution address 
2093 xk in case nultiplier decrerients past 0. ) 
2094 an Jump to ENn105 to decrernt counter, etc. 
2095 an (exits to ENTUSG). 
2096 ~~ For uLQOPP: Move D1 to offset for open paren. 
2097 AX Recover offset (point to open paren). 
2098 ak Goto ENlop3. 
2099 oe 
2100 ** History: 
2101 ae Date Progranner Modification 
2102 RR awn e enn ween ener n en nee nn en rere nn ne nent erence terre eens 
2103 01/06/83 NM. Banwarth Wrote routines. 
Sine JI I CIO TOI OI TTI TIT III IIIT III II IIIS TI IIIS 
2106 JU OI IS III III I A TIT III IIIT ISI I III III ITI TS 
2107 F278A 24 =ENTIpb P= 4 (For P=3: back up D1 4 nibs) 
2108 F278C OD ENTIps P=P-4 (P=15: back up D1 16 nibs) 


2109 F278E 8FOO ENTlpp GOSBYL =USloop Back up D1 to multiplier. 
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000 
2110 F2795 20 P= 0 


2111 F2797 55E GONC =ENTcO9 Go always...next execution char. 
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2112 EJECT 
2113 JUICE COC OTIS RT 
2114 JU OOOO TC STOTT TTI IAT IIS 
2115 ak 
2116 ** Nanie: ENTrst - Execute the uRESTP token 
2117 ak 
2118 ** Category: LOCAL 
2119 ak 
2120 *% Purpose: 
2121 ak Execute the uRESTP token. 
2122 ah 
2123 ** Entry: 
2124 ae P=0 
2125 ak D1 is the current execute pointer 
2126 kk B[A] 1s nunber of input characters (in DECIMAL) 
2127 ak STNTD1 contains current stack pointer 
2128 - The 7 nibble device specifier is on the botton of MTHSTK 
2123 
2130 ae Exit: 
2131 RK P=0 
2132 aK D1 is the execute pointer for next iter 
2133 ak STNTD1 contains current stack pointer 
2134 ax Device specifier unchanged on MTHSTK 
2135 aK 
2136 RE USES ee aixbis 
2137 ** Inclusive: A,B,C,D,R1,R2,R3[15:5],R4,00,01,P,RESREG, FUNCD1, 
2138 aK S$T[11:8,6,5, 3:0] 
2139 ak 
2140 ** $tk lvls: 7 (STORFL) 
2141 aR 
2142 *k Algorithn: 
2143 ak Store D1 (address of uRESTP token) in RO(9-5) 
2144 aR for use back in MB&USG nodule. Return fron 
2145 xn poll with carry cleared, XM=0. 
2146 x 
2147 xk History: 
2148 . Date Progranner Modification 
2149 KK nanan eee een ne een ne ern nn re nnn nn nnn nen nen renee 
2150 ke 01/11/84 NZ Updated docurentation 
2151 kk 01/06/83 MB Wrote routines. 
2152 x 
9153 JO RIO DI IK SI TIL TI TTT IIT ITT OT TATA III IIIT SASS SS SSS SSS SSSI SIS: 
9154 JIT IO IIIT TITS O TI III I IIIS IOS ISS IS SSS SASSI IS 
2155 F273A ENTrst Restart parse. 
2156 F279AR 72A0 GOSUB STORFL 
2157 F279E 8D00 GOVLNG =USGrst End poll handler. 


000 
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2158 EJECT 
2159 JI II III III III IIIT IIIT IID I III DIT I IIIT IIIS ISIS SSI IIS AS IASI IS: 
2160 ISI III OAS II III III III SI IIIS III III TID III ISIS IASI SS SSS IIIS SNS ITI 
2161 aK 
2162 ** Narie: ENT" /" - Execute the "/" token 
2163 ax 
2164 ** Category: LOCAL 
2165 ae 
2166 ** Purpose: Execute "/" synbol. 
2167 ak 
2168 *k Entry: 
2169 ax P=0 
2170 ak D1 is the current execute pointer 
2171 ak B[A} is nunber of input characters (in DECIMAL) 
2172 ak STMTD1 contains current stack pointer 
2173 a The 7 nibble device specifier is on the bottom of MTHSTK 
2174 
2175 xk Exit: 
2176 ax P=0 
2177 aK STNTD1 contains current stack pointer 
2178 a Device specifier unchanged on MTHSTK 
2179 ak 
2180 xk Calls: STORFL, SKP-LF 
2181 ak 
2182 ¥* US@S? ocivex 
2183 ** Inclusive: A,B,C,D,R1,R2,R3[15:5],R4,00,P, RESREG, FUNCD1, 
2184 - ST{11:0] 
2185 is 
2186 x Stk lvls: 7 (STORFL) 
2187 ak 
2188 ** Algorithn: 
2189 ak Calls SKIP to skip to EOL of input record. 
2190 ae 
2191 ** History: 
2192 i Date Progranner Modification 
2193 KK ee nnn ner n enn ne nn ne nn nn nr rn eee nen renner ne 
2194 ee 01/11/84 NZ Updated docurientation 
2195 kx 01/06/83 NB Wrote routines. 
2196 ae 
2197 JS IO IT IIIT IS ETI I TAT I ITI SIS SATII 
2498 JI II ILL TT TIT TOTTI ATT I IIIA ID ISI SIISI ISS SSS ASSIS 
2199 F27A5 ENT" /"' Skip to EOL. 
2200 F27A5 77% GOSUB STORFL Store pending iten. 
2204 F27A9 7038 GOSUB SKP-LF Skip to end of line. 
2202 F27AD 560 GONC =ENT/03 Go if no error. 
2203 F27B0 6A7B GOTO ENTRex Error exit 
2204 - 


2205 
2206 F27B4 6FDD 


ENT/O3 GOTO ENTUO? Next execution synbol. 
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2207 EJECT 
2208 JUSSI ITO TIT IIS I III TIO ISOS III IASI 
2209 JI UTI OTIS ITI IIIS IDI A IOS ISIS ISIS IIA 
2210 ax 
2211 *x Nanre: ENT'B" - Execute the "B" token 
2212 aK 
2213 ** Category: LOCAL 
2214 ak 
2215 *x Purpose: 
2216 ak Execute the "B" synbol. 
2217 ak 
2218 &* Entry: 
2219 ak P=0 
2220 ax D1 is the current execute pointer 
2221 &K B[R} 1s number of input characters (in DECIMAL) 
2222 ak STNTD1 contains current stack pointer 
2223 7 The 7 nibble device specifier is on the botton of MTHSTK 
2224 
2225 RX Exit: 
2226 ak P=0 
2227 ak D1 is the execute pointer for next iten 
2228 ak STNTD1 contains current stack pointer 
2229 ae Device specifier unchanged on MTHSTK 
220 ax 
2231 ** Calls: CNTSTR, STOBIN 
2232 ae 
2233 AR OUSES., cede 
2234 ** Inclusive: A,B,C,D,RO[15:5),R1,R2,R3[15:5],R4,D0,01,P, 
2235 x RESREG, STNTD1, ST{11:0] 
2236 ze 
2237 ** Stk lvls: 6 (CNTSTR)(<STOBIN>) 
2238 xe 
2239 ** Algorithn: 
2240 ak Set B[A]=1 (counter for #chars to input) 
2241 xk Read one char (CNTSTR) 
2242 ax Exit to ENTWS. 
2243 ak 
2244 *k History: 
2245 x Date Progranner Modification 
2246 a aa aaa ataiataatatate! 
2247 kK 01/12/84 NZ Updated docunentation 
2248 kK 01/06/83 NB Wrote routines. 
2249 aa 
2250 JOTI UII TOTO IT III IIIT II III IIIT III ISI II IITA 
9251 JOC I III ICI IO I TIS OR OO III I IIIT AH 
2252 F27B8 ENT"B" B field in IMAGE. 
2253 F27B8 E5 B=B+1 A Input one char. (B[A]=0 already) 
2254 F27BA 79D0 GOSUB CNTSTR Read the character. 
2255 F27BE 146 C=DATO A Read stack pointer (from STMTD1). 
2256 F27C1 7400 GOSUB STOBIN Convert and store the binary nunber. 
2257 F27C5 6ACD ENTUOS GOTO ENTUOS Next token, 
2258 a. 
2259 ne 
2260 F27C9 135 STOBIN D1=C Set D1 to top of stack. 


2261 F27CC DO A=0 A 
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2262 F27CE 148 A=DAT1 B Read the character. 
2263 F27D1 8FOO GOSBVL =HDFLT Convert to floating nunber. 
000 
2264 F27D8 04 SETHEX 
2265 F27DR 10D D1=D1- 14 


2266 F27DD 6180 GOTO STODE1 Write value to stack, store it. 
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2267 EJECT 
2268 JCS III TOIT T ISIS SS 
2269 JOU IO TI OOO TOT TIS TI TID III DSI ITT II IITA 
2270 aR 
2271 xx Nane: ENT"K" - Execute the "K" token 
2272 ** Nane: ENT"H" - Execute the "H" token 
2273, a 
2274 ** Category: LOCAL 
2275 ax 
2276 ** Purpose: 
2277 aK Execute the "K" or "H" token: free fornat ENTER 
2278 is 
2279 ** Entry: 
2280 ak P=Q 
2281 ax D1 is the current execute pointer 
2282 kk B[A}] is number of input characters (in DECINAL) 
2283 aK STMID1 contains current stack pointer 
2284 a The 7 nibble device specifier is on the botton of MTHSTK 
2285 
2286 Ke Exit: 
2287 ea P=0 
2288 = D1 1s the execute pointer for next iten 
2289 a STMTD1 contains current stack pointer 
229% a Device specifier unchanged on MNTHSTK 
2291 kx Exit to ENTUOS. 
2292 kk 
2293 7 Calls: CS=TYP,ENTST2, ENT160, DIGAVE, TstEnd, AVE=D1, ENTST3 
2294 
2295 ** Uses: 
2296 kk Inclusive: A,B,C,D,RO,R1,R2,R3[15:5], R4,D0,01,P,ST[11:0], 
2297 xx RESREG 
2298 aa 
2299 ** Stk lvls: 7 (ENT160) 
200 ak 
2H &* Algorithn: 
2H2 ak If destination 1s numeric and "H", 
2H3 ax then set up to replace cornmas with decimal points. 
2H4 ae Set up to read until terminator character natch. 
2305 Kx Read the data. 
26 a Do the assignnent. 
2x7 = If nore variables reriaining, 
208 ae then set AVMEME back to original value; goto ENTUOS. 
209 =e else exit to next statenent. 
2310 si 
2311 *k History: 
2312 ae 
2313 RR Date Progranner Modification 
2314 RR meen nen eee ere ween rer enn rn neem eer cen ereeees 
2315 *K 12/21/83 NZ Added GOSUB to ENT"H", changed 
2316 ae GOTO ENTFRMN to GOC ENTFRA to fix 
est? wx SR #0039-1073(6) (ENTER USING "H"; A$ 
2318 aia with a comma in the input character 
2319 xx sequence) 
2320 xx SC/NB Wrote 


2321 = 
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2322 
2323 
2324 
2325 


2326 
2327 
2328 
2329 
2330 
e201 


2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 


2340 
ya 
2342 
2343 
2344 
2345 
2346 


234? 
2348 
2343 
2350 
2351 
2362 


F27E1 
F27E5 


F27EB 
F27ED 
F27FO 


F27F3 
F27F6 


F27FD 
F2800 
F2803 
F2806 
F280A 
F280D 
F2810 
F2813 


F2819 
F2810 
F2821 
F2824 


F2828 
F282F 
F2832 
F2835 


F2839 
F2830 
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OO IO TIT TI ITI IIT ITI ID IK 
FORO III TIT TOO IG III OI IO OO II OK 


701A ENT'H" 
332 
EZ 
DS 
857 
450 
x 
847? ENT'K" 
1B00 ENTFFH 
000 
14A 
845 
846 
70RO 
146 
135 
855 
8EFC 
7F 
733€ 
7ESE 
460 
62CE 


x. 
x. 


1B00 H&Kent 
000 


146 
137 
7289 

& 


7290 
578 


GOSUB 
LCASC 


B=C 
ST=1 
GOC 


ST=0 
bo=(5) 


A=DATO 
ST=0 
ST=0 
GOSUB 
C=DATO 
D1=C 
ST=1 
GOSUBL 


GOSUB 
GOSUB 
COC 
GOTO 


do=(5) 
C=DATO 
CDIEX 
GOSUB 


GOSUB 
GONC 


CS=TYP 
\.a\ 


A 
sIGNOR 
ENTFFM 


sIGNOR 
=TERCHR 


B 
sCOUNT 
sTRASH 
ENTST2 
A 


KorH 
ENT160 


Dinstk 
Tstend 
H&Kent 
exit 
=STNTDO 
A 
aVE=D1 


ENTST3 
ENTUOS 


Check if the destination is string 
Set up to replace "," with "." 


Nurieric destination...D0 change "," 
Don’t change connas to "." 
Read terriinating char 


A[A] is the terminating character. 
Don’t count chars. 

Do keep chars. 

Read the characters. 

Recall stack pointer fron STMTD1. 


This 1s either "K" or “H". 
Do the assignnent 


Set D1 to AVNENE. 
Reached end of statenent? 


No...set up for next iten. 
Yes...exit from ENTER USING. 


Restore AYMENE to its old value 


(value was saved by STORFL) 


Restore D1 to execute address 
Go always (process next iten). 
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2353 
2364 JI IIIT TI TIT TTI IE ETE TET IIIT IST III III ADI SIS I IAT IS 
2355 JORIS ITT IT TITTIES IIIT DI I TTT III III IIIS I IATA IAI I A 
2356 RR 
2357 m3 Narie: STORFL - Read pending chars, store in destination 
2358 x 
2369 ** Category: LOCAL 
2360 ak 
2361 xk Purpose: 
2362 ak Read pending input chars, store in dest. 
2363 ae 
2364 ** Entry: 
2365 ak P=0 
2366 aa 01 1s the current execute pointer 
2367 aR B[A}] is number of input characters (in DECIMAL) 
2368 ak STNTD1 contains current stack pointer 
2369 ue The 7? nibble device specifier 1s on the botton of NTHSTK 
2370 
2371 aX Exit: 
2372 RE P=0 
2373 ak D1 is the execute pointer for next iten 
2374 ak STNTD1 contains current stack pointer 
2375 ah Device specifier unchanged on NTHSTK 
2376 a B[A}=0 
2377 ah 
2378 ** Calls: CNTSTR, AS=FTY, CS=TYP, STRHED, GETNUM, POPSTK, DI@AVE , 
2379 ax <STOSUB> 
2380 aK 
2381 B® WSBSi05 45% 
2382 *x Inclusive: A,B,C<D,RO,R1,R2,R3[15:5],R4,00,01,P,ST[11:0], 
2383 ae FUNCD1, RESREG 
2384 ak 
2385 *K Stk lvls: 6 (CNTSTR)(<STOSUB>) 
2386 Be 
2387 &*K Algorithn: 
2388 aX Input pending chars (CNTSTR). 
2389 RK If inputting field, store stacked chars in 
2390 ax variable destination. 
2391 x Return. 
2392 ae 
2393 ** History: 
2394 ax Date Progranner Modification 
2395 RRO geereneh, “Rereneeass “teeesegeasosace ees ase cea ten asks 
2396 KK 01/12/84 NZ Updated docunentation 
2397 Xk 01/06/83 NB Wrote routines. 
2398 Re 
2399 JI IO ISI III IIIT TIT TIT IS IIA TOR III III SII IIT IIT IISA IIS SATIN 
2400 ett etittetittttttttterettitettetettstttttttttestttt tester tces! 
2401 F2840 STORFL Store field in expr dest. 
2402 F2840 7350 GOSUB CNTSTR Input remaining chars. 
2403 F2844 7FC9 GOSUB AS=FTY Get IMAGE field type to A(S] 
2404 F2848 RAC A=A-1 § Inputting field? 
2405 F284B 400 RTNC No. Trashing chars. 
k 


2406 
2407 F284E 1B00 


DO=(5) =STNTD1 
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2408 F2855 
2409 F2858 
2410 F285B 
2411 F285F 
2412 
2413 
2414 
2415 F2862 
2416 F2865 
241? 
2418 F2868 
2419 F286C 
2420 
2421 
2422 F2870 
2423 
2424 
2425 F2874 
2426 F2877 
2427 F287R 
2428 F287D 
2429 
2430 F2880 
2431 F2884 
2432 F2888 
2433 F288C 
2434 F288F 
2435 F2893 


000 
146 
135 
7699 
441 


A4C 
40 


7000 
6620 


66F3 


844 
AAC 
AaC 
42F 


7E28 
7019 
74CD 
iCF 

151? 
6608 
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k 
* IMAGE 
x 


xe 
ke 


badtyp 
k. 
ke 


STONUM 


STODE1 
STODES 


C=DATO A 


D1=C 
COSUB 
COC 


CS=TYP 
STONUM 


type must not 


R=A-1 
coc 


GOSUB 
GOTO 


S 
badtyp 


strhed 
STODES 


BADTYP 


MitItn 
S 
$ 
badtyp 


GETNUN 
popstk 
Dinstk 
16 

W 
STOSUB 


Restore Di to the top of the stack. 
Get destination variable type. 
Nuneric variable goto STONUN 


be nuneric, as variable is not nuneric 


Is the IMAGE type nuneric? 
Yes..."Data Type" error 


Generates header for string 
Store the string 


“Data Type" error 


Var is nuneric...check IMAGE type 


Is the IMAGE type string? 
Yes..."Data Type” error 


Parse the nunber string fron stack 
Pop the iten off the stack into A 
Set Di to AVMENE 

Back up for numeric field 

Write out the iten to the stack 

Do the assignnent to the variable 
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2436 EJECT 
2437 JI IOI CTS OTS SII OT ISS III I IIIS IAS. 
2438 SOOO RISO TI TTT TIT OK 
2439 aK 
2440 ** Narie: CNISTR - Read characters onto stack by count 
2441 ** Nare: CNTST1 - Read characters by count, obey sTRRSH 
2442 ae 
2443 ** Category: LOCAL 
2444 kK 
2445 ** Purpose: 
2446 fe Read characters onto stack, save stack pointer in STMTD1 
2447 
2448 xk Entry: 
2449 ax B[A] is the nunber of characters to read 
2450 ak STMTO1 is the current stack pointer 
2451 ae 
2452 ** Exit: 
2453 kk Carry clear 
2454 aK DO points to STMTD1 
2455 ak STNTD1 contains the new stack pointer 
2456 a If an error is detected, takes a direct error exit 
2457 
2458 *k Calls: DTOH, RESTD1, REDCHR 
2459 ak 
2460 Ak USCS... 000. 
2461 a Inclusive: A,B,C,D[15:13, 5:0], RO-R2,00,01,P,STNTD1,ST[7:0] 
2462 
2463 ** Stk lvls: 5 (REOCHR) 
2464 ox 
2465 ** Algorithn: 
2466 ax CNTSTR:Set sTRASH=0 (Don’t trash characters) 
2467 aE CNTST1:Set sIGNOR=0 (Don’t ignore any characters) 
2468 aK Copy #chars fron B[A] to ALA] 
2463 ak Convert #chars fron decinal to hex, put into A[A] 
2470 xx ENTSTr:Set sCOUNT=1 (Do enter characters by count) 
2471 aR Save execute pointer in RO 
2472 xk If count <> 0, 
2473 ax then read characters fron loop (REDCHR), 
2474 ax save stack pointer in STNTD1 
2475 aK Zero B[A] (count) 
2476 ae Restore execute pointer 
2477 ak Return. 
2478 aE 
2479 xk History: 
2480 at 
2481 ax Date Progratiner Modification 
2482 a aaa 
2483 ak 42/19/83 NZ Added docunentation 
2484 ae SC Wrote routine 
2485 a 
2486 JI TOI I IA III ITIL II II IIIT IIIT IT IIT IIIS III ISI I ISIS ISIS SIS ISS SIS. 
2487 J IOI III IIIT III IAT I IIIT II ISTO TIO IIIS III III III SI SS ISS ISSA SI SIS. 


2488 F2897 846 
2489 F289R 847 
2490 F289D D4 


CNTSTR ST=0 = sTRASH Don’t trash. 
CNTST1 ST=O0 = sIGNOR No special char to ignore. 
A=B A # input chars. 
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243) 


2492 
2493 
2494 
2495 
2496 


2497 
2498 
2499 
2500 
2501 


2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 


2516 
2ory 
2518 


2519 
2520 
2621 
2622 


2523 
2524 
2625 


F289F 8£00 
00 
F28A5 DA 
F28R? 855 
F28AR 137 
F28AD 108 
F28B0 8£00 
00 
F28B6 8A8 
F28B9 61 
F28BB 783A 
F28BF 491 
F28C2 1B00 
000 
F28C9 13? 
F28cC 144 
F28CF D1 
F28D1 118 
F28D4 135 
F28D7 03 


F28D9 874 
F28DC 60 
FesDE 6C4A 


F28E2 8000 
000 


F28E9 8D00 
000 


F28FO ACI 
F28F3 8000 
00 


F28F9 8COO 
00 


ENTER 


ENTSTr 
ENTST2 


ENTST3 


ke 
ke 


REDCer 


ke 
ae 


NENerr 


ke 
we 


Dif stk 


x. 
x 

fndchb 
fndchk 


Woe fF 


getdev 
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USING execution 


GOSUBL =DTOH 


A=C A 

ST=1— sCOUNT 
CDIEX 

RO=C 


GOSUBL =RESTD1 


A=0) OA 

GOYES ENTST3 
GOSUB REDCHR 
GOC REDCer 
DO=(5) =STMTD1 


CDIEX 
DATO=C 
B=0 
C=RO 
D1=C 
RTNCC 


DD 


?ST=1 Mererr 
GOYES MNEMerr 
GOTO ENTRex 


GOVLNG =MENERR 


GOVLNG =DIFSTK 


C=B 5 
GOLONG =FNDCHK 


GOLONG =GETDev 


Page 61 
Result in C{A] 
Count input chars. 
Save D1 (=xqt addr) in RO. 
Restore stack pointer fron STNTD1. 
Is the input count zero? 
Yes...skip the read phase. 


No...input chars. 


Write the stack pointer to STNTO1. 


Zero counter to start again. 
Restore Di (=xqt addr). 


Insufficient nenory? 
Yes...go to MEMERR 
No...set up the error, exit 


Say "Insufficient nerory" 
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2526 STITLE 
2527 JI RI IRI AI TOS TI ISI III III I IIIT III DIT II IISIDIS IS ISIS SI SS TN 
26528 $I OS OTIS TTI II II SII III OT IIT III IST IOS IIIS ITI I ITT T TS 
25293 a 
25H ** Narie: CKnode - Check if the nailbox is controller 
2531 ax 
2532 *k Category:  PILUTL 
2533 ae 
2534 *® Purpose: 
2535 aK Check if the mailbox is the loop controller. If it is 
2536 alas not, take a direct error exit. 
2537 ak 
2538 tk Entry: 
2539 te DO points to the selected mailbox 
2540 a 
2541 &* Exit: 
2542 aK Carry clear 
2543 ax Direct exit to error routine if not loop controller 
2544 RK 
2545 tk Calls: GETDev 
2546 ak 
2547 tk Uses: ST{3:0] 
2548 ak 
2549 ** Stk lvls: 2 (GETDev) 
2550 ak 
2551 tk History: 
2552 = 
2553 ak Date Prograriner Modification 
2554 R00 “Sscueek ss “kee eeiesk:. -ReSecsaceceanctoek let se see lesen ss 
2555 Rk 12/19/83 NZ Updated docunentation 
2556 x SC Wrote routine 
2557 a 
2658 JI II I I IOI I IIIS IT III IIT II III III ISI III IIS SI SII II IIT IA 
2559 ISI I SIO SI OS IOS OI TIT ITI IIIS IIIT III III IIIT ISI TOI ITI IIIT OT IIT 
2560 F28FF 76FF =CKnode GOSUB getdev Check if controller 
2561 F2903 500 RTNNC Controller...return, carry clear 
2562 F2906 300 LC(1) =eBADND Not controller...error exit 
2563 F299 20 P= =ePIL 


2564 F290B GFIA GOTO ENTRex "Invalid Node" 
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2565 STITLE REQUEST execute 
2566 JI I II IIIT III ILI KIT IIIT IIIT TIT IIT IIIT I TTT IIIS III IT ITI TI 
2567 JIT II IIT III ITS I TID IID III III ISI III III IIA I SSIS III IR ISIS SI IIIA 
2568 is 
2569 xk Nanie: REQST - Execute the REQUEST statenent 
2570 ak 
2571 ** Category:  STEXEC 
2572 ak 
2573 ** Purpose: 
2574 - Set up HPIL response to serial poll: 
2575 ax If bit 6 of the status byte 1s set, this also sets 
2576 a a loop SRQ. 
2577 ak If Titan is a controller at the tine, it won’t set 
2578 ak service request but will still set up to respond to 
2579 ax serial poll when later it becone a device. 
2580 ax 
2581 &k Entry: 
2582 x DO 1s the PC 
2583 a 
2584 RX Exit: 
2585 x Through NXTSTM 1f no error, BSERR if error 
2586 ox 
2587 tk Calls: GLOOP# , GETARG, PUTE,<NXTSTM> 
2588 xs 
2589 BE UG OSiedcccahets 
25% kk Inclusive: A,B,C,D,RO-R4,D0,D1,P,STNTDO, ST[11:0], FUNCxx, 
2591 ax All RAM EXPEXC 1s permitted to use 
2592 ax 
2593 ek Stk lvls: 7 (GLOOPH)(GETARG) 
2594 sa 
2595 ** History: 
2596 a* 
2597 a Date Progranner Modification 
2598 RK en we ere ween reer rece n mere weer enc te cere ecercene 
2599 ak 12/20/83 NZ Packed, changed call to GETARG to 
2600 xe call GLOOPH first to save a stack 
2601 A level 
2602 RK 12/19/83 NZ Added docunentation 
2603 ae SC Wrote routine 
2604 hk 
2605 JOSIE UI CIC TOSI III TIT ETI I 
2606 JIS I TOI II IORI UOT ITE I IK 
2607 F290F 0000 REL(S) =REQSTd 
0 
2608 F2914 0000 REL(5) =REQSTp 
0 
2609 F2919 7000 =REQST GOSUB =GLOOP# Get loop nuriber 
2610 F291D 7620 GOSUB GETARG Get argunent 
2611 F2921 3500 LC(6) =nSETS1 Set status length=1 byte 
0000 
2612 F2929 7ACB GOSUB pute 
2613 F292D D9 C=B A 
2614 F292F Fe CSt A 
2615 F2931 Fe CSL A 
2616 F2933 3100 LC(2)  =nSETST Load low 2 nibs of SET STATUS nsg 


Saturn Assenbler 


2617 F2937 24 
2618 F2939 3100 
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P= 4 
LC(2) =nSTS@4 
GOSUB pute Set status value to B[B] value 


2619 F293D 76BB 
2620 F2941 8C54 
6F 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 F2947 8£00 
0) 


2665 F294D 72AF 
2666 F2951 4F5 
2667 F2954 8E00 
00 
2668 F295R 161 


RQSTRT GOLONG ENTRIN 


FOI III IO OIG II ITO IG IO 
JOO TOTO IIT IO IOI II 
xx 


** Nane: GETARG - Get an argunent frori nenory 

ak 

** Category: LOCAL 

oe 

** Purpose: 

Re Get an argurent which follows an (optional) loop # 

xe (Assunes GLOOPH has been called just before this) 

ik 

xk Entry: 

ae All exit conditions of GLOOPH 

a 00 is the PC 

a 

RA-ERAT: 

Ae DO points to the railbox 

aK B[B] is the value of the argunent 

a Carry clear 

x P=0 

dk 

** Calls: SAVEDO , FNDCHK, SWAPDO, GTYPR+, RESTDO 

&K 

RF USCS id cce-oa 

&* Inclusive: A,B,C,D,RO-R4,00,01,P,STMTOO,ST[11:0], FUNCxx, 
ax All RAN EXPEXC is permitted to use 

ek 

** Stk lvls: 6 (GTYPR+) 

kk 

x* History: 

kK 

ax Date Progranrer Modification 

PO eobatees. GEeeca lee Siti poet eat am ee isl Take 
** 12/20/83 NZ Installed fix for SR #0039-1075(1) 
= The fix involves moving the call 
x to GLOOPH to the calling routine 
wk to save one RSTK level, then calling 
x GE TARG 

*K 12/19/83 NZ Added docunentation 

a SC Wrote routine 

tok 


FOOT ITO OO ITT II OK 
FOI OOO TOI OTT TOI TIT III 


GETARG GOSUBL =SAVEDO Save DO in STNTDO for use later 
GOSUB = fndchk Find the nailbox 
GOC Errorx Error...exit 
GOSUBL =SWAPDO Save nallbox addr in STNTDO, get PC 


DO=D0+ 2 Skip the leading <tCOMMA> 
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2669 F295) 8E00 GOSUBL =GTYPR+ Get the status byte 

oO 
2670 F2963 404 COC Errorx Error...exit 
2671 F2966 8C00 GOLONG =RESTDO Restore nailbox pointer 
00 

2672 x 

2673 x 

2674 F296C 7000 ENABFx GOSUB =GLOOPH Get loop nunber 

2675 F2970 73DF GOSUB GETARG Get argurent 

2676 F2974 6E60 ‘ GOTO ENABLI1 Continue uith enable code 

2677 - 

2678 kn 

2679 F2978 0 CON(1) =FIXSPC 3 nibbles available here 

2680 F2979 3-1 

2681 JISUICIJO I ISOC IIIT IO TI I III TIT TIT IRR 

2682 JISC IOI SUIS IO ISO CITI IIS IIT STII ITI IK 

2683 ae 

2684 ** Nane: CKLOPH - Read and check loop # for range 

2685 xx Nane: GETLOP - Check loop # for range, put into C[S] 

2686 ax 

2687 *k Category: LOCAL 

2688 x 

2683 ** Purpose: 

269% sie Get loop nuriber from nenory, if there. If not there, 

2691 ax return loop #1. If there, verify that the loop # is 

2692 ae in the range 1 <= 1 <= 3 

2693 *x 

2694 ** Entry: 

2695 xx P=, HEXNODE 

2696 ae CKLOP#:DO points to the loop # expression, if any 

2697 a GETLOP:B[A} is the loop # (in HEX) 

2698 aK 

2699 *k Exit: 

2700 ae Carry set 

2701 aR C[S] 1s the loop # - 1 

2702 a If an error is detected, takes a direct exit to BSERR 

2703 ae 

2704 ** Uses: 

2705 a CKLOPH:A,B,C,D, RO-R4, 00,01, P, FUNCxx,ST{11:0],al1 RAN 

2706 ae EXPEXC 1s pernitted to use 

2707 am GETLOP:A[A}, C(W} 

2708 xx 

2709 ** Stk lvls: 

2710 =e CKLOPH:6 (GTYPR+) 

2711 ae GETLOP:0 

2712 xX 

2713 ** History: 

2714 ae 

2715 as Date Progranner Noadification 

2716 AM weceeses” Seheeeteh sk, | Cece ode Se ee ee cee eet eee eek 

eri? KK 12/19/83 NZ Updated docunentation 

2718 kk 03/19/83 NZ Nodified routine 

2719 ae SC Wrote routine 

2720 a 


2721 


ESC R CSS SC ESC CCS CESSES SSCL S.S.0.9.9,5.5.0,6.2,9.0,9-2,5.5.0 6. 22,2,9,0,2,0.¢.0,0,0.5,5.5,9.5.0,08, 
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2722 FIT III TI I III III III ISIS III ISIS III OSS ISIS ISIS SSS SSSI 
2723 F297B AC2 =CKLOPH C=0 Ss 
2724 F297E 14fA A=DRTO B Read first token 
2725 F2981 R80 A=0 P (Check if it is Fx hex) 

2726 F2984 AOC A=A-1 P 
2727 F2987 B64 A=A+1 B 
2728 F298AR 400 RTNC If carry, done (return C[$]=0) 
2729 F298D 8EOO GOSUBL =GTYPR+ Get byte fron @ PC 
00 
2730 F2993 401 GOC Errorx Error 
2731 F2996 D4 = = GETLOP A=B A Copy loop # to A[A] 
2732 F2998 CC A=A-1 A Convert to option base zero 
2733 F299R 441 COC outrng If carry, too snall 
2734 F299D D2 C=0 A 
2735 F299F 303 LC(1) 3 Set C[AJ="00003" 
2736 F29R2 8BE 7Ar=C A Is ALA] too big? 
2737 F29A5 RO GOYES outrng Yes... too big 
2738 F29AR7 A86 C=A P No...accept it 
2739 F29AR 816 CSRC Put loop # into C[S] 
2740 F29AD 02 RTNSC Set carry for exit 
2741 t 
2742 x. 
2743 F29AF 20 outrng P= =eRANGE SAY "ARG. OUT OF RANGE" 


2744 F23B1 6ERO ErrorX GOTO Errorx SAY "ARG. OUT OF RANGE" 
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2745 
2746 
2747 
2748 
2749 
2750 
2751 
2782 
2753 
2754 
2755 
2756 
2757 
27568 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 


2779 


2780 
2781 
2782 


2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 


F29B5 0000 
0 


F29BA 0000 
0 
FOSBF 86D 
F29C2 FO 
F29C4 1F00 
000 
F29CB 136 
F29CE 145 
F2901 6F OF 
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STITLE ON INTR/ENABLE INTR execute 
JI ITO ITI TTI IIIT IIIS II TIO TIA II III II ITT IIIA III III IAI IK 


FOI III II I RTI TIT RII TI TIT IIIA 
aK 


xk Narie: ONINTx - Execute the ON INTR statenent 
xk 


Ak Category:  STEXEC 
aK 

** Purpose: 

ax Execute the ON INTR statenent 
ak 

*k Entry: 

ae DO is the PC 
aa 

AK Exits 

a Through NXTSTM 
as 


kk Calls: None 

kk 

Xk Uses....... 

xk Inclusive: C{A],00,01 
xk 


aX Stk lvls: 0 
xk 


** History: 
ks 


aA Date Prograrner Modification 
TS ascetics” Saiethees,  ctudeteacecs cosas veceeecuceses 
KK 12/19/83 NZ Added docunentation 


xk Sc Wrote routine 
kK 


FOTO IO OO III IIIT OTITIS IIIT 
FOR IIIT ITO OI TIO TTT IIIT IOI ITI IIIT ITI IN 


REL(5) =ONINTd 
REL(5) =ONINTp 


=ONINTx ?ST=0 13 Is the machine currently running? 
GOYES ENTrtn No...don’t do anything 
D1=(5) =ONINTR Yes...save the current address... 
CDOEX 
DAT1=C A ...in the “ONINTR" RAM location 
ENTrtn GOTO RQSTRT Go to NXTSTN 


FORO OOOO ITO I IO IOI I 
UO III IIIT OTT OT OOOO TT OTTO OK 
ak 


xk Narie: ENABLE - Execute the ENABLE INTR statenent 
Ak Category:  STEXEC 


** Purpose: 
xt Execute the ENABLE INTR statenent 


ek Entry: 
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2797 xx DO is the PC 
2738 aK 
2799 aK Exit: 
2800 kh Through NXTSTM if OK, BSERR if error 
2801 aK 
2802 xk Calls: GLOOP# , GETARG, PUTC, <NXTSTMD> 
2803 ak 
2804 kK Uses....... 
2805 ** Inclusive: A,B,C,D,RO-R4,D0,01,P,STMTDO,ST[11:0], FUNC xx, 
2806 aK All RAN EXPEXC is pernitted to use 
2807 ae 
2808 ** Stk lvls: 7 (GLOOPH)(GETARG) 
2809 ah 
2810 kt History: 
2811 a 
2812 ze Date Progranner Modification 
2813 Kk penne ee ene n eee e ee ree -- +27 - + eo e -- == e 
2814 Kk 42/21/83 NZ Split call to GETARG into two calls; 
2815 ak one to GLOOPH, then to GETARG to 
2816 ak fix a stack level bug (see REQST) 
2817 kk 12/19/83 NZ Added docunentation 
2818 ak sc Wrote routine 
2819 ak 
2820 KIKI KKK RER EKER ERI IO IIIT TO 
2821 JURIST IOC OC ISO ROC TK 


2822 F29D5 0000 
0 


2823 F29DA 0000 
0 

2824 F29DF 6C8F 

2825 

2826 F29E3 3X0 
00 


2827 F23E9 AES 
2828 F29EC 7OFR 
2829 F29FO 60EF 


REL(5) =ENABLd 


REL(5) =ENABLp 


=ENABLE GOTO 

ke 

ENABL1 LC(4) 
C=B 


GOSUB 
GOTO 


ENABF x Goto enable fix space 
=HSETIN Set interrupt mask... 

B ...to the value in B[B] 
putc 


ENTrtn Exit through NXTSTM 
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2830 STITLE PASS CONTROL execute 
2831 JI IID III III IDI IIIS ISIS IIIT ISSO IIS IIS IS ISSISISISISS SSS SS SSS IIS. 
2832 JI III III III III IIIT IST IIIT IIIT TISAI IIIS IIIS SI SSIS I SSIS SSS SIS. 
2833 a 
2834 - Nave: PASS - Execute the PASS CONTROL statenent 
2835 
2836 *k Category: STEXEC 
2837 ae 
2838 ** Purpose: 
2839 a Execute the PASS CONTROL statenent (device specifier 
2840 ak is optional) 
2841 wh 
2842 AX Entry: 
2843 ak DO is the PC 
2844 kk 
2845 Rk Exit: 
2846 aE Through NXTSTM if OK, through BSERR if error 
2847 ak 
2848 s Calls: GETDID, START, CKriode, UNLPUT, TALK, PUTE, PUTGF 
2849 
2850 AX USES. cece 
2851 ** Inclusive: A,B,C,D,RO-R4,00,01,P, STNTD1[3:0], STMTR1,S1[11:0], 
2852 aR FUNCxx, All RAN EXPEXC is permitted to use 
2853 on 
2854 *k Sth lvls: 7 (GETDID) 
2855 aK 
2856 ** History: 
2857 =e 
2858 ee Date Progranner Modification 
2859 aaa aa aaa lala tata niet 
2860 12/20/83 NZ Packed 5 nibbles for future use 
2861 kk 12/19/83 NZ Added docunentation 
2862 ms SC Wrote routine 
2863 ay 
2864 JI II OOOO OTITIS SII III II III IASI IIIT 
2865 JIS ITI III IDI I ITI IAT IAT IOSD ITT IOI ITTI ISI III III IIIS IIS SI SSSI SSI IS 
2866 F29F4 0000 REL(5) =PASSd 
0 
2867 F29F9 0000 REL(5) =PASSp 
0 
2868 F2SFE 14A =PASS A=DATO B 
2869 F2AO1 3100 LC(2) =tCOMNA 
2870 F2AO5 966 ARC OB Is there a device specifier? 
2871 F2AOS RO GOYES PASS10 Yes...process it 
2872 F2ROR D3 D=0 R No...use “LOOP” 
2873 F2ROC AF2 C=0 W *k* This statenent 1s unnecessary*** 
2874 F2ROF 5B0 GONC =PASS20 Go always 
2875 Xn 
2876 X- 
2877 F2A12 8EOO PASS10 GOSUBL =GETDID Get the device specifier 
00 
2878 F2A18 474 GOC Errorx Error 
2879 F2A1B 8E0O PASS20 GOSUBL =START Find and set up the loop 
00 
2880 F2A21 4E3 GOC Errorx Error 
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2881 
2882 
2883 
2884 


2885 
2886 


2887 
2888 


2889 
28% 


2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
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F2A24 77DE GOSUB 

F2A28 96B 7D=0 

F2A2B 41 GOYES 

F2A2D 8E0O GOSUBL 
oo 

F2A33 4C2 GOC 

F2A36 8E00 GOSUBL 
00 

F2AIC 432 GOC 

F2A3F 3500 PASS30 LC(6) 
0000 

F2A47 7CAA GOSUB 

F2A4B 8E00 GOSUBL 
00 

F2R51 4E0 GOC 

F2A54 890 ?P= 

F2A57 06 GOYES 

F2A59 20 P= 

F2A5B 300 LC(1) 

F2ASE 20 P= 

F2R60 6000 Errors GOTO 

ke 
F2A64 O CON(1) 
F2R65 BSS 


CKrnode 
B 
PRSSH 
=UNLPUT 


Errorx 
=TALK 


Errorx 
snITCT 


pute 
=PUTGF 


Errorx 
=pACK 
CNTR35 
© 
=eNORDY 
=ePIL 
=eRRORX 


=FIXSPC 
5-1 


Page 70 
Make sure I’m the loop controller 
Is this either "LOOP" or (nothing)? 
Yes... just send TCT 
No...unaddress all listeners 


Error 
Make the device the talker 


Error...set up code, goto BSERR 
Send TCT 

Get back response fron riailbox 
Error 

Is 1t an "ACKNOWLEDGE" frare? 
Yes... 0K 


No...Device Not Ready error 


5 nibbles available here 
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2902 STITLE CONTROL ON/OFF execute 
2903 JO IOI IOC TIS IOC CCT TSK 
2904 JOGO II GOO IOI CI II IOC TOT TTI 
2305 ak 
2906 a% Narie: CONTRL - Execute the CONTROL ON/OFF staterents 
2907 ae 
2908 *k Category:  STEXEC 
2909 ak 
2910 ** Purpose: 
2311 a Execute the CONTROL ON/OFF statenents (take or give up 
2912 ar control on a loop) 
2913 ax 
2314 ** Entry: 
2915 ax DO is the PC 
2916 ax 
2917 RX Exit: 
2918 Through NXTSTM af no error, through BSERR if error 
2919 x 
2920 tk Calls: CKLOP# , FNDMBD, CHKSTS, PUTE, FNDCH~,PUTC, <NXTSTM>, 
2921 ak <REST1IO> 
2922 ak 
2923 RK Uses. ....ee 
2924 ** Inclusive: A,8,C,D,RO-R4,D0,D1,P,STNTDO, ST[11:0], FUNCxx, 
2925 xx All RAM EXPEXC is pernitted to use 
2926 A 
2927 ** Stk lvls: 7? (CKLOPH) 
2928 ae 
2929 ** History: 
2930 ax 
2931 ae Date Programmer Modification 
2932 RR een ne nena ene ee wenn nen enon en ene ene nee 
2933 RK 12/19/83 NZ Added docunentation 
2934 ik sc Wrote routine 
2935 ax 
2936 JI II III IGE III RIO ISIS I IK 
2337 FOOT TOI JOTI IOI OOO OOO OOO OIG IORI CR TOO 


2938 F2AR69 0000 
0 


2939 F2R6E 0000 
0 


2940 
2941 
2942 


2943 
2944 
2945 
2946 
2947 
2248 
2949 
2950 
2951 
2982 
2953 


F2R?73 
F2A76 
F2A?R 


F2R81 
F2A84 
F2A8?7 
F2A8A 
F2R8D 
F2R91 
F2R94 


F2A96 


161 =C 
710F 
1F0O 
000 
143 
131 
177 
148 
3100 
962 
72 

t 

t 

* 


SEOO 


REL(5) =CNTRLd 
REL(5) =CNTRLp 


ONTRL DO=D0+ 2 Skip the tON/tOFF token for now 
GOSUB CKLOP# Get the loop # fron menary 
01=(5) =PCADDR (C{S] is the loop #) 
A=DAT1 A 
DI=A Set D1 to the current PCADDR 
DI=zN1+ 2+6 Skip the line length, CONTROL token 
R=DAT1 B Read the tON/tOFF token 
LC(2) =tON 
*A=C OB Is this CONTROL ON? 
GOYES CNTR4O Yes...set the controller flag 


CONTROL OFF if here 
GOSUBL =FNDMBD Clear DISPLAY OK bits 
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2954 
2955 


2956 
2957 


2958 
2959 
2960 
2961 
2962 
2963 
2964 


2965 
2966 


2967 
2968 
2969 
2970 


F2ASC 
F2ASF 


F2AAS 
F2RR8 


F2ABO 
F2RB4 
F2AB? 


F2ABB 
F2ABE 


F2AC4 
F2AC? 


F2ACD 
F2AD1 
F2AD4 
F2AD?7 


OO 

43C 

8EOO 

00 

4B 

3500 

0000 

734A 

4BA 

698E CNTR IS 


we 


ACS CNTR40 
8£00 
0 
489 
3300 
00 
7FOAR 
48 
ACS 
8C00 
0 


GOC Errorx 
GOSUBL =CHKSTS 
GOC Errorx 
LC(6) =nCLRCA 
GOSUB pute 
GOC Errorx 
GOTO RQSTRT 
B=C S 
GOSUBL =FNDCH- 
GOC Errorx 
LC(4)  =nSETCA 
GOSUB putc 
GOC Errorx 
C=B S 


GOLONG =REST10 
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Error 
Check if reset, get status 


Error 
Clear Controller Active state 


Goto NXTSTA 


Save mailbox in B[S] for REST1O 
Find and check the mailbox 


Set Controller Active state 


Restore nailbox # fron BLS] 
Restore I0 (readdress, etc) 
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2971 STITLE Zero progeay poll handler 

2972 FI OI I II III I III IIT TIA III III III TOT ITO ISIS ISI III IIIS SSSI IK 

2973 JOIST III III II III I II II III IIS IIR III ISIS ISIS IIIS IIA 

2974 xx 

2975 *x Nane: hZERPG - Handler for the ZERO progran poll 

2976 el 

2977 ** Category: POLL 

2978 KK 

2979 ** Purpose: 

2980 iS Handle the ZERO progran poll (set interrupt task=0) 

2981 x 

2982 xk Entry: 

2983 ex None 

2984 ae 

2985 *k Exit: 

2986 xk XM=1, carry clear 

2987 am 

2988 ** Calls: SAVSTS, FNDCHK, PUTC, RESSTS 

2989 xx 

2990 RPE USES Sch o'5s 

2991 *k Inclusive: A,B{[S],C,00,P, SNAPBF [37:0] 

2992 xx 

2993 . Stk lvls: 1 (SAVSTS) (SAVSTS saves the levels in SNAPBF) 

2994 x 

2995 ** History: 

23996 xs 

goa? ax Date Progranter Modification 

2998 ER gaemasee USdessteeek ueceeseeec casio Se ate nseSceeo eee 

2999 *K 12/19/83 NZ Added docunentation 

3000 = SC Wrote routine 

3001 aK 

3002 JIS II IOI ITI I IOI OI OO TI TIO IIIT TAI OTA ITS IIK 

3003 JOISTS SI II IOI IOUT IIIT IO RII SII TI IIS TIA AIK 

3004 F2ADD 8E00 =hZERPG GOSUBL =SAVSTS Save 5 RSTK levels & status bits 
oo 

3005 F2RE3 ACI B=0 S Counter for which loop is next 

3006 F2RE6 ACS ZERPOS C=B S 

3007 F2RES 760E GOSUB = fndchk Find that mailbox 

3008 FRED 421 COC ZERP10 Not found or error...exit 

3009 F2AFO 3300 LC(4)  =nSETIN Set interrupt nask to 0 
Oo 

3010 F2AF6 76E9 GOSUB putc 

3011 F2RFR B45 B=B+i S$ Go to next loop 

3012 FeRFD 58E GONC ZERPOS Go "always" (if fall through, done) 

3013 te 

3014 Ae 

3015 F2B00 8E00 ZERP10 GOSUBL =RESSTS Restore RSTK levels, D[A},ST[11:0] 
oo 

3016 F2BO6 6F20 GOTO 8 RtnSxN Return, XM=1, Carry clear 
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017 STITLE Exception poll handler 
18 JAI TO TOTTI EIT IIIT SII TI I TAT IS 
3019 SIRI SI DIDI TT TRE TTS TSO TTS IIS II SII SSIS IS SII IIIS SIS ISI IA 
H20 aa 
H21 ** Nane: hEXCPT - Exception poll handler 
22 ak 
H23 ** Category: POLL 
24 as 
25 *% Purpose: 
26 ~ Handle the exception poll (check for EOL branch due) 
27 
28 xk Entry: 
29 ak None 
30 ak 
031 aX Exit; 
32 as If not ON INTR: XM=1, carry clear 
X33 a If ON INTR pending and due: exits through ONTINR! 
3034 ak 
35 ** Calls: FNOCHK, PUTC, <ONTINR> 
36 aK 
3037 ek Uses....... 
H38 A Inclusive: A,B,C,00,01,P,ST[11:0] (also what ONTINR uses) 
39 x 
40 ak Stk lvls: 3 (FNDCHK) 
3041 ih 
H42 ** History: 
H43 ak 
3044 ak Date Progranner Modification 
045 AN. couetech . Walosccesal. “sieteeuete oe ee eee 
#46 eR 12/19/83 NZ Added docunentation 
3047 an SC Wrote routine 
3048 ah 
3049 JSR I OI I II IIT III IO IIIT II IIIT IIIS III IS ISI IOI ISIS IIAA 
50 JI IO III OI TI IO TIT III II OS III IIS II ISIS SSI ISI IIS IA. 


3051 F2BOR ACI 

3052 F2BOD ACI 

3053 F2B10 7FDO 

3054 F2B14 412 

3055 

3056 

3057 

3058 F2B17 OB 

3059 F2B19 870 

3060 F2BIC 80 

3061 F2BIE B45 

362 F2B21 SBE 

363 

3064 

#65 

3066 

3067 

3068 F2B24 1F00 
000 


3063 F2B2B 147 
3070 F2B2E 8AE 


=hEXCPT B=0 S Initialize loop counter to first 
EXPT10 C=B S 

GOSUB fndchk Find the current loop 
: GOC RtnSxn If mailbox not found, done 


* FNDCHK returns with status in C[X]} 
k 


CSTEX 
?ST=1 =sINTR Interrupt pending? 
GOYES EXPT20 Yes...see if ON INTR branch defined 
B=B+1 S$ No...check next loop 
GONC EXPT10 Go “aluays" (if fall thru, OK) 
xk. 
x. 
k 


* Interrupt pending on mailbox, see if ON INTR branch exists 
k 
EXPT20 D1=(5) =ONINTR 


C=DAT1 A 
7CHO OR Is the ON INTR address zero? 
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3071 F2B31 BO GOYES EXPT40 No...see if program running 
3072 
3073 : Interrupt pending, but ONINTR=0, set Except and exit for now 
3074 
3075 F2B33 850 EXPT) ST=1 =Except 
3076 F2B36 21 = =RtnSXN P= 1 Clear carry and set XM 
77 F2B38 OD P=P-14 
3078 F2B3A 00 RTNSXA 
3079 x. 
3080 &- 
81 x 
W82 * Interrupt pending and ONINTRHO, check if progran running 
083 x 
3084 F2B3C 86D EXPT40 ?ST=0 13 Running? 
3085 F2B3F 4F GOYES EXPT30 No...set Except and keep waiting 
386 
308? * See if the ATTN key pressed 
3088 . 
3089 F2B41 1F00O D1=(5) =ATNFLG 
000 
3090 F2B48 147 C=DAT1 A 
3091 F2B4B 90E 7CHO OP Has the ATIN key been hit? 
3092 FOB4E 5E GOYES EXPT30 Yes...ualt for next tine around 
93 x 
3094 ; Interrupt pending, ONINTRHO, Running; check if at end of line 
3095 
3096 F2B50 07 C=RSTK Current PC 1s on third RSTK level 
3097 F2B52 05 B=C A save first RSTK level in B[A] 
3098 F2B54 0? C=RSTK Pop off the second RSTK level 
3099 F2B56 DA A=C A save 1t in A[A] 
3100 F2B58 07 C=RSTK Pop off the third RSTK level 
3101 F2B5A 06 RSTK=C and push 1t back on 
3102 F2B5C DE ACEX A Get the second RSTK level fron A[A] 
3103 F2BSE 06 RSTK=C and push it back on 
3104 F2B60 DD BCEX A Get the first RSTK level fron B[R] 
3105 F2B62 06 RSTK=C and put 1t back on 
3106 x 
310? * Now check if the PC is at an EOL 
3108 - 
3109 F2B64 131 D1=A Set D1 to the current PC 
3110 F2B67 148 A=DAT1 B 
3111 F2B6R 3100 LC(2)  =tEOL Check if it points to an EOL 
3112 F2B6E 966 ARC OB Is 1t at EOL? 
3113 F2B71 2C GOYES EXPT30 No...set Except, wait for next tine 
3114 & 
3115 * We are going to do an end-of-line branch here!! 
3116 
3117 F2B73 13? CDIEX Save PC on stack 
3118 F2B76 06 RSTK=C 
3119 x 
3120 F2B78 3300 LC(4)  =nSETIN Set interrupt mask to zero 
00 
3121 F2B7E 7E59 GOSUB putc to clear interrupt pending 
3122 F2B82 1FO0 D1=(5) =ONINTR 


000 
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3123 F2B89 147 C=DAT1 A 

3124 F2B8C 08 CLRST 

3125 F2B8E 850 ST=1 =sEXTGS 
3126 F2B91 8000 GOVLNG =ONTINR 


000 
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Read the ONINTR address again 
Clear ON ERROR & ON TIMER flags 
Set external flag 

Take the junp 
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3127 
3128 
3129 
3130 
3134 
3132 
3133 
3134 
3135 
3136 
313? 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
31514 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 


3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 


F2B98 110 
FeB9B 8£00 
00 
FOBA1 31FF 
F2BA5 966 
F2BR8 E8 


FeBRA ACI 
F2BAD 7F 3D 
F2BB1 464 
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STITLE Key definition poll handler 
FI III I III IR II II II III III I SII IIS II IIIS IOI III IIIS ISS SIS ISIS IIS 


FOI ITT TOOT TOOT TOT TT TTI IC 
xk 


**x Narie: hKYDF ~ Handler for the keydef poll 

oe 

kk Category: POLL 

ak 

** Purpose: 

aK Handle the key def poll for HPIL key (#FF) 

ka 

ak Entry: 

aK P=0 

xx RO[6:5] is the key nunber 

at 

AX Exit: 

Kk If HPIL data and renote then define a colon-def key 
x to execute the statenent 

ae 

ak Calls: ASRC5, FNDCHK, GETHSS, DINSTK, CHKSTK, PUTE, RDST35, 
aR STRPcr, DI=AVE, T/OALL 

oe 

RK Uses...... 


*k Inclusive: A,C(B] (If not handled) 

xk Inclusive: A,B,C,D,RO,R1,R2,D0,D1,P (If handled) 
ok 

AK Stk lvls: 4 (RDST35) (If handled...if not, 1) 
tn 


** History: 


a 
xx Date Progranner Modification 

PP eee, hecteekasse lion Wee c serait oo lee 

eK 01/10/84 NZ Changed size checking to always 

ay get the first 255 characters fron 
a the loop, 1f more than 255 received 
aK 42/21/83 NZ Added code to force valid s1ze 

ak (<4096 nibs) for key def...check 

BR is done BEFORE call to I/OALL! 

ae 12/19/83 NZ Added docurentation 

Rk 04/01/82 SC Wrote routine 

ek 


FORO OOOO TOO TOOT I 
JOO III III OOOO IO TO TO OTT IIE 


=hKYDF A=RO Recall key number... 
GOSUBL =ASRC4 ... fron AL6:5] 
LCHEX FF 
“RHC OB Is it the special HPIL key? 
GOYES RtnSxn No...return, carry clear, XM=1 


k 
* Find out which nailbox has data available 
x 


B=0 8 Start fron narlbox #1 
DFKY10 GOSUB fndchb Find loop B[S] (Sets Device bit) 
GOC NokYDF No nailbox has data available 
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3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
31% 
3191 
3192 
3133 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 


3212 
3213 
3214 
3215 
3216 
321? 


3218 
32193 
3220 
3221 


3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
32H 
3231 
3232 


F2BB4 DS 
F2BB6 7000 
F2BBA 454 
F2BBD 870 
F2BCO 80 


FeBC2 B45 
F2BC5 5S7E 


F2BC8 


F2BC8 D9 
FeBCA OB 
FeBCC 860 
F2BCF 3F 


F2BD1 787A 
F2BD5 08 
F2BD7 7B49 
F2BDB D8 
F2BDD AF2 
F2BEO CE 
F2BE2 AFA 
F2BE5 8£00 
00 
F2BEB 7809 
F2BEF D9 
F2BF1 2€ 
F2BF3 31A0 
F2BF? RFS 
F2BFA 8EBA 
7F 
F2C00 454 
F2C03 713A 
F2CO7 133 
F2COR 8E00 
00 
F2C10 AF2 
F2C13 147 
F2C16 E2 
F2C18 81E 
F2C18 AFS 
F2C1E AF2 
F221 AGE 
F2C24 8B) 
F227 40 
FeC29 D5 
FeC2B C5 


ENTER Execution <840113.1057> 
Ver. 3.39/Rev. 2306 Key definition poll handler 
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B=C A 

GOSUB =GETHSS 
COC NoKYDF 
?ST=1  =hsRQSR 
GOYES DFKY3X 
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Save status bits in B[X] 

Read nailbox’s handshake bits 

If abort, exit 

Is this mailbox requesting service? 
Yes...see if it has data available 


* Continue on to next nailbox...this one not requesting service 
& 


DF KY20 


ke 
re 


DF KY30 
x 


* Status bits 
k 


x 


B=B+1 


S 
GONC ODFKY10 


C=B A 
CSTEX 
?S$T=0 
GOYES 


=sDATAV 
DFKY20 


are in B[X] 


Go aluays 


Recall status bits 


Is data available? 
No...try next mailbox 


* Read the data fron the mailbox and save it on math stack 
k 


NoKYDF 


DFKY40 


GOSUB Dinstk 
CLRST 
GOSUB 
B=A 
C=0 
C=C-1 
A=C 
GOSUBL 


CHKSTK 


snKepDewpw 


hCPYSs 


GOSUB 
C=B 
P= 14 
LCHEX OA 

B=C W 
GOSUBL RDST35 


pute 
A 


GOC NOKYDF 

GOSUB STRPcr 

ADIEX 

GOSUBL =D1=AVE 


C=0 


5 

QQ 

| 2» 
>a>—- 

~ 
awveEe 


co 


FKY40 


WO voOornrnwnrnonn 
' 


nom ut au 
O<crvA ODrnnaom 


DBPDVUDVDWOE. EK 


B=B+B 


Set D1 to the top of stack 


See 1f roon left on stack for string 
Put neriory linit into B[A)} 

Clear C[S],C{A] 

Set C(AJ="FFFFF" 

Set up flag -23 indicator, count 

Set up frare count opcode 


Set the frane count to infinite 
Put frane count into C[A] 


Put <Lf> in B[15:14] (Tern. char) 
Read the data fron the loop 


Return no key def if error 
Strip off trailing <Cr>, if any 
A[A]) 1s address of top of stack 


Clear C[5] for belou 

C[A] is botton of stack 

C{A] is string length in nibbles 
Convert length to bytes (tenp) 
Put length into B[A} (for I/OALL) 
Truncate string to 255 chars max 


Is the length currently <=255? 
Yes... leave it as 1S 

No...set it to 255. 

Convert back to nibbles 
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3233 F2C2d 07 C=RSTK Save 1 level... I/OALL uses three 
3234 F2C2F 108A R2=C RSTK levels if buffer shrinks 
3235 F2C32 3200 LC(3) =bSTNXQ Load HPIL stnt execute buffer ID 

0 
3236 F2C37 8F0O GOSBVL =I/OALL Allocate the buffer 
000 
3237 F2C3E 711A C=R2 
3238 F2C41 06 RSTK=C Restore the RSTK level fron R2 
3239 F2C43 470 GOC DFKY50 Go if OK 
3240 x 
3241 * Not enough nenory to create the stnt execute buffer 
3242 * 
3243 * If fail to return a key definition, set S0=0 
3244 * XM is zero already 
3245 i 
3246 F2C46 840 NOKYDF ST=0 0 No key definition 
3247 F2C49 03 RTNCC Handled, no error 
3248 == 
3249 Pe 
3250 x 
3251 * Save the input string in the buffer 
3252 * D0 points to the buffer header 
3253 * D1 points to the buffer start 
3254 k 
3255 F2C4B 137 OFKY5O COD1TEX C(A] is the buffer start address 
3256 FeC4E 162 DO=D0+ 3 DO points to the buffer length 
3257 FectS1 142 A=DATO A Read the buffer length 
3258 F2C54 1F0O D1=(5) =DEFADR 
000 
3259 F2C5B 810 ASRB A[X] is the string length in bytes 
3260 F2C5E 149 DATI=A B Write out the length to the buffer 
3261 F2C61 171 D1=01+ 2 Nove to key type 
3262 F2eC64 BF2 CSL W Put buffer start address in C[5:1] 
3263 F2C6? 306 LC(1) 6 Type 6: colon def key 
3264 F2C6R 1505 DAT1=C 6 Write type, buffer start address 
3265 F2C6E 7ED9 GOSUB Diristk Set Di to start of input string 
3266 F2C?2 162 DO=D0+ 3 Set DO past the buffer header 
3267 : 
3268 F2C75 AoC DFKY60 A=A-1 8B Are all characters written yet? 
3269 F2C78 411 GOC DFKY?70 Yes...exit 
3270 FeC7B 101 DI=D1- 2 No...read next character 
3271 FeC7E 14F C=DAT1 B 
3272 Fet&i 14€ DATO=C 8B Write the character to buffer 
3273 F2C84 161 DO=D0+ 2 
3274 F2C8? SDE GONC DFKY6O Go aluays 
3275 Be 
3276 Be 
3277 FeC8R 850 DFKY70 ST=1 0 Do have a key definition 
3278 FeCa&d 03 RTNCC No error 
3279 te 
3280 x 
3281 F2C8F 0 CON(1) =FIXSPC 7? nibbles available here 
3282 F2C9 BSS 7-1 


3283 Fee96 END 
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A=SLEN 
AS=FTY 
ASRC5 
ATNFLG 
AVE=D1 
Array 
BADTYP 
BLOCON 
BytCnt 
CHKASN 
CHKEOL 
CHKSTK 
CHKSTS 
CHNASY 
CHRCNT 
=CKLOP# 
CKST10 
=CKnode 
CLMDUT 
=CLNODE 
CNTR35 
CNTR40 
CNTRLd 
CNTRLp 
CNTST1 
CNTSTR 
=CONTRL 
COUNT 
COUNTC 
CPLXER 
CS=TYP 
CSLCS 
CSRC5 
Chrirp 
Cup lex 
DO=PCA 
DI=RVE 
DI=RVS 
DI@AVE 
DIF STK 
DINST+ 
DIf stk 
Ditistk 


DCRNNT 
DEF ADR 
DEVADR 
DFKY10 
DFKY20 
DFKY30 
DFKY40 
DFKYSO 
DFKY60 
DFKY70 
DTOH 


Rbs 
Rbs 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Rbs 
Abs 
Abs 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 


Ext 
Ext 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 


992402 
991 767 


991847 


992550 


993027 
993659 
992604 
993535 
992442 
992462 
993975 
993979 


993434 
993431 
993907 
993035 


992817 
991733 


wn 


993513 
992848 


991682 
994 221 
994 242 
994 248 
994 347 
994 379 
994421 
994442 
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Synbol Table 


HF 2492 
HF 2217 


#0000 1 
HF 2267 


#00005 


HF 2526 


#F 2703 
HF 297B 
HF 255C 
HF 28F F 
HF 24BA 
HF 24CE 
WF 2AB? 
HF 2RBB 


HF 289A 
HF 2897 
#F2R73 
#F 270B 


HF 2631 
HF21F5 


#0000 7 
#0000 3 


HF 28E9 
HF 2650 


HF21C2 
HF 2BAD 
HF 2BC2 
HF 2BC8 
#F2C2B 
HF 2C4B 
#F2C75 
HF 2C8A 


' ' 1 t t 1 1 t 1 


1112 
668 
3174 
3089 
504 
12 
740 
419 
18 
758 
198 
1283 
2955 
668 
1862 
2723 
1301 
2560 
1165 
1175 
2960 
2963 
2938 
23939 
2489 
2488 
2940 
1866 
1866 
1563 
625 
480 
49 
22 
14 
1452 
3221 
129 
1609 
2518 
731 
2518 
1609 
2432 
2053 
3258 
540 
3179 
3189 
3193 
3232 
3255 
3268 
3277 
2494 


<840113.1057> 


253 
1466 


738 
737 


1337 


724 
901 


1495 
2941 
1285 
2881 
1036 

906 
2893 
2949 


2003 
1933 


1862 


1552 
224 
482 
492 

1339 
736 


780 
109 
3204 


177 
3190 
3200 
3185 
3230 
3239 
3274 
3269 


$23 
1683 


2422 
876 


3206 


1043 
1173 


1993 


917 
1935 
1463 

877 


249 
3265 


184 


2403 


910 


1063 


1999 


2324 


1931 
967 


279 


242 
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925 927 
2254 2402 
2410 

49774? 

305 


1:23 pr 
Page 80 


1029 1069 


765 2340 
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DsLoop Ext - 166 
EXABL1 Abs 993763 HF29E3 - 2826 2676 
=ENABLE Abs 993759 HF29DF - 2824 


ENABLd Ext e.qeeee 
ENABLp Ext - 2823 
ENABFx Abs 993644 HF296C - 2674 2824 
ENDING Ext - 1803 


ENT"/" Abs 993189 WF27A5 - 2199 1543 
ENT"B" Abs 993208 HF27B8 - 2252 1540 
ENT'C’ Abs 993063 WF2727 - 1927 1513 
ENT"H" Abs 993249 WF27E1 - 2324 1519 
ENT'K" Abs 993267 HF27F3 - 2330 1522 
ENT"P" Abs 993065 #F2729 - 1928 1516 
ENT'R" Abs 993069 HF272D - 1930 1546 
ENT'X" Abs 993132 WF276C - 1999 1501 
ENT/O3 Abs 993204 #F27B4 - 2206 2202 
ENT120 Abs 991171 HFIFC3- 198 191 
ENT130 Abs 991185 HFIFD1 - 207 199 297 
ENT150 Abs 991192 HFIFD8 - 209 269 
ENT155 Abs 991205 WFIFES - 214 210 
ENT160 Abs 991208 HFIFES - 215 2339 
ENT180 Abs 991225 HFIFF9 - 224 217 220 339 
ENT190 Abs 991263 HFQ01F - 248 231 
ENT200 Abs 991296 4F2040 - 260 256 
ENT220 Abs 991304 HF2048 - 268 225 
ENT250 Abs 991311 HF204F - 270 
ENT300 Abs 991321 HF2059- 273 261 
ENT302 Abs 991330 #F2062- 278 274 
ENT305 Abs 991378 WF2092 - 297 285 
ENT310 Abs 991382 WF2096 - 30 293 
ENT320 Abs 991393 #F20A1 - 305 301 
=ENTER Abs 991064 HFIF53 - 158 
ENTERD Ext - 157 
ENTFFMN Abs 993270 WF27F6 - 2331 2328 
ENTREX Abs 991090 HFIF72- 170 159 173 898 
ENTRIN Abs 991112 WFIF88 - 180 2620 
ENTRex Abs 992043 4F232B- 898 761 907 941 2203 2512 2564 
ENTST2 Abs 993450 WF28AA - 2494 2335 
ENTST3 Abs 993487 HF28CF - 2504 501 2351 2498 
ENTSTr Abs 993447 WF28A7 - 2493 1940 
ENTWOO Abs 992641 WF2581 - 1462 1458 
ENTUOS Abs 992656 4F2590 - 1466 1549 2257 
ENTUO? Abs 992660 WF2594 - 1468 1727 2206 
ENTUOS Abs 992662 WF2596 - 1469 1672 1863 
ENTU2O Abs 992681 HF25A9 - 1478 1474 
ENTU3O Abs 992715 WFOSCB - 1498 1494 
=ENTUSG Abs 992609 WF2561 - 1452 
ENTXO? Abs 993140 4F2774 - 2001 1996 
ENTaO09 Abs 992858 HF265A - 1672 1560 
ENThO9 Abs 993031 4F2707 - 1863 1805 1941 2004 
ENTcOS Abs 993149 #F277D - 2004 2054 2111 
ENTdel Abs 991099 HFIF7B- 177 208 302 
ENTdln) Abs 992854 #F2656 - 1670 1537 
ENTend Abs 993003 WFO6EB - 1799 1534 
ENTlpb Abs 993162 HF278A - 2107 1510 
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ENTI pp 
ENTIps 
ENTnlt 
ENTrst 
ENTrtn 
ENTstr 
ENTUOS 
ENUFLD 
ERROR 

ERRORX 
EXPT10 
EXPT20 
EXPT30 
EXPT40 
EndENT 
Endf rv 
Errork 
Errorx 


Except 
FINDA 
FIXSPC 
FNDCH- 
FNDCHK 
FNDMBD 
FORSTK 
FRAME - 
FSTK-7 
GETARG 
GETDOS 
GETDIO 
GETDID 
GETDeyv 
GETHSS 
=GETLOP 
GETNIO 
GETN20 
GE TN30 
GETN4O 
GETN5O 
GETN60 
GETN89O 
GETNUN 
GETX 
GLOOP# 
GTYPR+ 
He Kent 
HDF LT 
Ko rk 
I/OALL 
IMerr 
KorH 
MEMBER 
NENERR 
NeNerr 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Rbs 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Rbs 
Abs 
Rbs 
Ext 
Ext 
Ext 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Rbs 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 


993166 #F278E 
993164 #F278C 
993152 #F2780 
993178 #F279R 
993745 #F2901 
393119 HF275F 
993221 #F27C5 
992862 HF265E 


994061 #F2B0D 
994084 HF2B24 
9940939 #F2B33 
994108 #F2B3C 
992987 #F26DB 

3 #00003 
993713 #F29B1 
993888 #F2A60 


991712 HF21E0 - 


993607 #F2947 
991118 HFIFSE 
991121 HFIFS1 


993686 HF2996 
991435 HF20CB 
991455 #F20DF 
991471 WF2OEF 
991476 HF20F4 
991512 #F2118 
991518 HF211E 
991592 #F2168 
994410 HF20B2 


993320 #F2828 


992902 #F 2686 


5 #00005 


993506 #F28E2 


2109 
2108 
2053 
2155 
2785 
1992 
2257 
1675 
112 
170 
52 
68 
3075 
3084 
173% 
15 
2744 
2897 
2956 
3075 
1498 
720 
2964 
2522 
2953 
540 
1010 
586 
2664 
183 
184 
158 
2525 
3182 
2731 
372 
379 
392 
396 
40? 
411 
431 
360 
962 
2609 
2669 
2346 
2263 
1699 
3236 
1563 
19 
1493 
2515 
2515 


1528 
1525 
1507 
1531 
2781 
1504 
2352 
1475 


H62 
60 
85 
071 
1704 

219 
2666 
2744 
2989 


743 


586 


280 
2610 
168 
164 
2877 


370 
408 
387 
380 
405 
398 
427 
268 


2674 
2729 
2342 


1689 


214 


2511 
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2829 


92 
1802 
1073 
2670 


2878 
2965 


1122 


881 
2675 


401 
2430 


273 
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3113 


1078 
2730 
2880 2885 2887 2891 
2968 


2679 200 3281 


308 2338 
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2954 








Saturn Assernbler 


NF LG=0 
NLFFLG 
Henerr 
Hf 1g=0 
AltItn 
NOKYDF 
NRMCON 
NUMSCN 
NXTDIO 
NXTD20 
NXTDS- 
=NXTDST 
NXTEXP 
NX TVA- 
NoKYDF 
NunIng 
ONINTR 
ONINTd 
ONINTp 
=QNINTx 
ONTINR 
OUTPd 
=PASS 
PASS10 
PASS20 
PASS30 
PASSd 
PASSp 
PCADDR 
POPNTH 
PUTC 
PUTE 
PUTGF 
RANGEN 
RCVOFS 
RDATTY 
RDSH. 
RDSTO1 
RDSTOS 
RDST10 
RDST15 
RDST20 
ROST2S 
RDST30 
RDST35 
RDST40 
ROST45 
RDST5O 
RDSTS2 
RDST55 
RDST60 
RDST65 
RDST70 
RDST75 
RDST8O 


Ext 
Ext 
Abs 
Rbs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Ext 
Ext 
Rbs 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Rbs 
Abs 


Abs 


4 #00004 
991951 #F22CF 
4 #00004 
994374 HF2C46 


991870 HF227E 
991939 #F22C3 
991816 HF2248 
991793 #F2231 


994304 #F2C00 
992908 #F268C 


993727 HF 29BF 


993790 HF29FE 
993810 HF2A12 
993819 ¥F2A1B 
993855 HF2A3F 


992287 #F241F 
992001 HF2301 
992029 #F2310 
992047 HF232F 
992099 #F2363 
992139 #F238B 
992143 #F238F 
992154 #F239A 
992171 #F23RB 
992185 #F23B9 
992225 HF23E1 
992231 BRF23E? 
992247 #F23F? 
992252 HF23FC 
992260 #F2404 
992266 #F240R 
992291 #F2423 
992301 #F2420 
992307 HF 2433 
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772 
192 
1? 
771 
16 
3246 
420 
416 
747 
765 
730 
724 
1708 
730 
3218 
1701 
2782 
2778 
2779 
2780 
3126 
156 
2868 
2877 
2879 
2888 
2866 
2867 
2942 
498 
1179 
1192 
2890 
397 
1724 
740 
1019 
883 
894 
901 
927 
943 
946 
952 
960 
964 
982 
984 
990 
992 
99? 
1001 
1022 
1031 
1035 
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753 
984 
728 
215 
3218 


997 
1706 
230 


733 
756 
1710 
207 


3180 
1693 
3068 


3183 
3122 


2871 
2874 
2883 


748 


1030 
110 
890 
897 
905 
913 
9114 
947 
953 
993 
974 
968 
983 
966 
987 
963 

1012 
961 

1009 


%9 
918 
928 
1019 
994 


981 


985 


1018 


106? 


30? 


3217 


998 
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1283 
369 


1301 2510 


386 = 2425 
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RDST85 Abs 992317 #F243D - 1041 1023 
RDST87 Abs 992345 #F2459 - 1052 1047 
RDST89 Abs 992347 #F245B - 1053 1049 
RDST9O0 Abs 992355 HF2463 - 1063 1032 
RDST95 Abs 992397 HF248D - 1078 1070 1072 
RDST99 Abs 9392400 #F2490 - 1079 1076 


RED-LF Abs 991972 HF22E4 - 875 209 
REDCOO Abs 991975 HF22E7 - 876 872 
=REDCHR Abs 991991 HF22F7 - 880 2499 
REDCer Abs 993497 HF28D9 - 2510 211 2500 
=REQST Abs 993561 #F2919 - 2609 

REQSTd Ext - 2607 

REQSTp Ext - 2608 

RESSTS Ext - 3015 

REST10. Ext - 2970 

RESTDO Ext - 283 2671 
RESTD1 Ext - 2496 


RQSTRT Abs 993601 #F2941 - 2620 2785 2960 
RTNCHK Abs 991096 HFIF?8 - 173 1742 
RtnSXNh Abs 994102 #F2B36 - 3076 Wi6 354 3174 


S-RO-3 Ext - 626 

S-R1-1 Ext - 1114 

SAVEDO Ext - 2664 

SAVED1 Ext - 1719 

SAVEIT Ext = 179. .185 
SAVSTS Ext - 704 

SETTRN Abs 992524 HF2500 - 1236 942 
SKP-LF Abs 991965 HF22DD - 871 1741 2201 
START = Ext - 760 896 2879 
STKVCT Ext - 732 

STHTDO Ext - 1714 2346 
STATD1 Ext - 2407 2501 


STOBIN Abs 993225 HF27C9 - 2260 2256 

STODE1 Abs 993423 HF288F - 2434 2266 

STODES Abs 993427 #F2893 - 2435 2419 

STONUM Abs 993396 #F2874 - 2425 2411 

STORE Ext - 485 

STORFL Abs 993344 #F2840 - 2401 1671 1676 1800 2156 2200 
STOSUB Abs 991594 #F216A - 473 275 278 2435 


STRHED Ext - 1606 

STRPcr Abs 992824 #F2638 - 1598 222 3219 

SVTRC = Ext - 774 

SWAPDO Ext - 2667 

Sign Abs 6 #00006 - 20 «378 «©6402 «= 406) 426 
StrIng Abs 992905 #F2689 - 1700 1692 

String Abs 2 #00002 - 13 

TALK Ext - 2886 
=TER/LF Abs 992509 HF24FD - 1231 1168 

TERCHR Ext - 878 2331 

TRESDO Ext - 186 

TRESD1 Ext - 421 

TSAVD1 «Ext - 418 

Trash Abs 6 #00006 - 21. 1338 «©6871. 875) Ss 8912s: 965s«1071 1284 
TstEnd Ext - 1696 


Tstend Abs 992895 #F267F - 1696 1703 1801 2341 
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UNLPUT Ext - 2884 
=UNT Abs 992486 HF24E6 - 1182 1174 
USGrst Ext - 2157 
USING Ext - 195 
USloop Ext - 2109 
YTNL Ext - 951 


ZERPOS Abs 994022 HF2RE6 - 3006 W112 

ZERP10 Abs 994048 HF2B00 - 3015 3008 

zaVE=D1 Abs 991675 HF21BB - 504 115 296 388 473 499 749 2349 
bSTMXQ Ext = (3295 

badtyp Abs 993392 #F2870 - 2422 2416 2428 


eRBORT Ext - 1008 1037 
eBADMD Ext - 2562 

eDSPEC Ext - 169 

eNORDY Ext - 2895 

ePIL Ext - 1054 2563 2896 
eRANGE Ext -~ 2743 

eRRORX Ext - 2897 

eUNEXP Ext - 1052 

exPEXC Ext - 729 

exit Abs 992999 #F26E7 - 1742 1738 2343 
flEQT Ext - 888 


fndchb Abs 993520 #F28FO - 2521 3179 

fndchk Abs 993523 HF28F3 - 2522 2665 X07 3053 
getEOL Abs 992995 HF26E3 - 1741 204 1737 
zgetdev Abs 993529 #F28F9 - 2525 994 1166 2560 
hCPY5s) Ext #965 3211 

=hENTER Abs 991028 HFIF34 - 107 

=hEXCPT Abs 994058 #F2BOR - 3051 
=hKYDF Abs 994200 #F2B98 - 3170 


=hZERPG Abs 994013 #F2ADD 3004 

hsRQSR Ext - 3184 

nCLRCR Ext - 2957 

mSETCR Ext - 2966 

nSETIM Ext - 2826 3009 3120 
nSETST Ext ~ 2616 

mSETS1 Ext - 2611 

nSETTC Ext - 1239 

NSETTM Ext - 939 1176 1178 1236 
nSFC@5 Ext - 1191 

nSTS@4— Ext - 2618 

nit Ext - 2888 

HUNT Ext - 1183 

NXTSTM Ext - 180 

outrng Abs 993711 HFOSAF - 2743 2733 2737 
pACK Ext - 2892 

pENTR1 Abs 991050 HFIF4A - 115 111 

pEOT Ext - 1011 

pSTATE Ext - 1046 

prerm Ext - 1022 


popstk Abs 991653 #F21A5 - 497 2431 

putc Abs 992480 HF24EO - 1179 940 1177 1184 1237 1241 2828 2967 
3010 3121 

pute Abs 992503 HF24F? - 1192 956 2612 2619 2889 2958 3212 

putefc Abs 992498 HF24F2 - 1190 1232 
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rEV$ Ext = 239 371 
sCOUNT Abs § #00005 - 1337 2333 2493 
sDATAV Ext - 3199 
sEXTGS Ext - 34125 
sFLAG? Ext - 889 
sIGNOR Abs 7 #00007 - 1339 1939 2327 2330 2489 
sINTR Ext - 359 
sTRASH Abs 6 #00006 - 1338 2002 2334 2488 
strhed Abs 992841 #F2649 - 1606 238 260 364 2418 
tCONMA Ext - 2869 
tENTER Ext - 1455 
tEOL Ext - N11 
tON Ext - 2947 
tUSING Ext - 189 
uCPLXC Ext - 1651 
uDELIN Ext - 1536 
uHKB™ = Ext - 1472 1685 
ulfend Ext - 1533 
uLOOPB Ext - 1509 
uLOOPP Ext - 1527 
uLOOPS Ext - 1824 
uMULT = Ext - 1506 
uRESTP Ext - 1530 


1503 


uSTRPT Ext 
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Input Paraneters 
Source file nane is SC&ENT:: MS 
Listing file nane is SC/ENT::ML::-1 
Object file nane is SCZENT::MS::-1 


111111 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Asserbler Neus 
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50 

51 F2C96 0000 
0 

52 F2C9B OOO 
0 

53 FeCAO 7841 
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TITLE User Utility Routines <830927.1255> 
ABS  #F2C96 TIZHP6 address (fixed) 

x 

a N N 22772 & UU iT - 

x NON z7 && UO T L 

% NN ON zZ &8& UU T L 

x NNN Z & uU oU T b 

* N NN Z &&& UU T L 

* N NZ & & Ui U T L 

: N N 22222 8& & UU T LLLLL 


FOI IO OT TO IOI TOK 
2.06.2. 0 6.0.5. 5.0.05.5.5.6.9.0.9,0.5.9.5.9.9.5,5.6.5,5,0,9,0.0.9.0.0,5,0.0,0,0,0,0,0,0,0,9,0,9,5,0,0,0.0.0,5.0,5,0,5,5.' 
ax 


xk Nane: SEND - Execution of the SEND cormand 
kk 

** Category:  STEXEC 

e 


** Purpose: 


aK Send frane(s) on the [specified] loop 

ak 

** Entry: 

aig DO points to loop #, if any; if none, DO points to the 
aa first frane to send 

ka 

eA BRIA: 

1 Through NXTSTM via ENDST, or through ERROR 

D3 

x% Calls: GLOOPH, START+, GETDev, GFTYPE, FRAMEE ,GST'NO,PUTC, 
aS PUTD, PUTE, SAVEDO, SHAPDO, RESTDO, SAVEZC ,REST2C, 
aK GETERR, <ENDST> 

ek 

EE USOB Sc pada 

*k Exclusive: A,B,C,D, 00,01,P 

xx Inclusive: A,B,C,D,RO,R1,R2,R3,R4,00,01,P,ST[11:0], FUNCxx 
Pe 

** Stk lvls: 7 (GLOOPH) 

aa 

** History: 

kA 

ke Date Prograrner Modification 

RS: ceases ~~ Seciww ee ee 4 eben bee eee eee eee ee eee ere eee 
ee 09/26/83 NZ Updated docunentation 

*k 08/02/83 NZ Changed to not change frane count 
xs if device node 

Rk 04/01/83 NZ Added set frane count=inf 

KA 03/01/83 N2 Updated docunentation 

tok 


FOR ROI RO IOI I IO OGIO IOI GOO IO IOI IOI 
ORR UII JOO TOI TOO Took 


REL(5) =SENDd 
REL(5) =SENDp 


SEND) = GOSUB. = GLOOP# Get loop number 
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54 k 

55 * GLOGPH returns with the loop nunber in C[S] 

56 k 

57 F2CA4 7000 GOSUB =SAVEDO Save DO in STNTDO RAN 

58 F2CA8 D3 D=0 A Clear D[x] 

59 F2CAA 8E00 GOSUBL =START+ Entry point for loop # in C[S] 
00 

60 F2CBO 451 GOC SENDer Error, P=error # 

61 x 

62 * Nou DO points to the mailbox, STMTDO points to input string 

63 x 

64 F2CB3 7000 GOSUB =getdev Check if in device node 

65 F2CB7 4E5 GOC SENG41 Yes...leave frane count as 1s 

66 F2CBA 3500 LC(6) (=nSETFC)+#FFFFF Set frane count to don’t count 
0000 

67 F2CC2 7000 GOSUB =Pute 

68 F2CC6 6770 SENDer GOTO  SEND4O If carry set, GOTO eRRORX 

69 ke 

70 x 

71 F2CCA 7051 SEND1O GOSUB GFTYPE Get Frane TYPE 

72 & 

73 * DO points at first character not in A-Z, A[A[S]:0] is frare 

74 x 

75 Fecce AF6 C=A W 

76 F2CD01 DO A=0 A Clear substitute value 

77 x 

78 * FRAMEE leaves DO unchanged, C[X]: frame value, B[B]: nask 

79 * FRAMEE also sets P=0! 

80 x 

81 F2CD3 8£00 GOSUBL =FRAMEE 
00 

82 F2CD9 590 GONC SEND1IS If no carry, match! 

83 z 

84 * If NOT watch, this is EOL! 

85 x 

86 F2CDC 3200 LCHEX FOO Value is FOO (EOL) 
F 

87 F2cei 05 B=C A Mask in B[B] (00) 

88 : 

89 F2CE3 F2 SENDIS CSL A 

90 F2CES F2 CSL A 

91 F2CE7 RES C=B B Put nask in C{B], frane in C[4:2] 

92 F2CER 7000 GOSUB =SAVE2C Save in STNTR1 

93 F2CEE 4C4 GOC SENDS. If carry (EOL), send it! 

94 F2CF1 14A A=DATO B Read in next token 

95 F2CF4 3100 LC(2) =tCOMNA Is there an expression? 

96 F2CF& 966 ARC OB 

97 F2CFB 04 GOYES SENDS. No...send the frane and continue 

98 x 

39 * Now need to get the expression (One byte) 

100 , 

101 F2CFD 161 DO=D0+ 2 Skip the Corima token 

102 F2D00 7871 SEND20 GOSUB GSTINO Get STring or Nunber (EXPEXC) 

103 x 


104 * GST'INO eliminates complex nunbers fron consideration! 
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105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
11? 
118 
119 
120 
121 
122 
ted 
124 
125 
126 
12? 
128 
123 
130 
131 
132 
133 
134 
138 
136 


137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
14? 
148 
149 
150 
151 
Voc 
153 
154 
165 
156 
157 
168 


F2D04 
F2008 


F2D0B 


F2D0F 
Febd11 
FeD14 
FeD16 
F2D19 
FeDIC 
F2D1F 
F2b23 
F2025 


F202? 
F2D2A 
F202E 


F 2034 
F203? 


F2D3B 


F2D3E 
F2D41 


F2D45 
F2D48 
F2D4B 
F2D4F 
Fepse 
F2054 
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* If nunber, converts to HEX and returns with # in A[A], carry 
* clear (If overflow or <O, junps to error) 
* If string, returns with D1 pointing to string, D[A] = length 
* of string (D1 needs to be decrenented to next character), 
* and carry is set. 
* If complex, junps to error routine 
k 
7000 GOSUB =SWAPDO Nailbox-->D0, PC-->RAN 
517 GONC SEND6O Nuriber! 
k 
x 
* String if here! 
x 
7000 SEND30 GOSUB =REST2C Get back the value of byte, task 
x 
* C[B] is the nask, C[4:2] is the value 
x 
D1 B=0 A Clear high nibbles of B[A} 
RES B=C B Mask into B[B] 
CF D=D-1 A Carry if done... 
4A2 SENd41 GAC SEND41 ... done! 
148 A=DAT1 B Now ALB] is the character value 
1C1 D1=Di- 2 Point to next character... 
OEFO A=R&8B A Mask the value... 
F6 CSR A 
Fé CSR A Get value back into C[X] 
x 
* This is a hard-wired opcode calculation!!! !11! 
x 
B56 C=C+1 ff Opcode for send frane!!! 
OEFA C=C'A A OR in the frane value 
BE GOSUBL =PUTC Send the franre 
00 
56D GONC SEND30 Go if no error 
6000 =eRRORX GOTO =ERRORX 
ke 
xe 
483 SENDS. GOC SENDSO Go aluays 
he 
ke 
48F SEND40 GOC eRRORX 
SEND41 
x e 
* Done with string handling 
X 
7000 GOSUB = =SWAPDO Nai lbox-->RAN, PC-->00 
x 
* Check if tCOMMA...1f so, continue at SEND20 
& 
14A A=DATO B 
161 DO=D0+ 2 
3100 LC(2} =tCONNA 
862 7A=C OB Is it a comra? 
ER GOYES SENDZO Yes...nore data 
3100 LC(2)  =tCOLON Frane? 
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159 F2058 966 

160 F2D5B 60 

161 F205D 6Cé6F 

162 

163 

164 

165 F2061 7000 

166 F2D65 8E00 
00 

167 F206B 48C 

168 F2D6E 8000 
00 

169 

170 

171 F2d74 DO 

172 F2D76 7000 

173 

174 

175 

176 F2D7A 7000 

177 Feb7eE D1 

178 F2D80 DS 

179 F2D82 F6 

180 F2D84 F6 

181 F2086 OEFO 

182 F2D8A OE3A 

183 

184 

185 

186 F2D8E B56 

187 

188 

189 

190 

191 F2091 B26 

192 F2094 A2E 

193 F2097 5D0 

194 F2D9A 96A 

195 F209D 21 

196 

197 

198 

199 F2D9F AR2 

200 F2DA2 B56 

201 F2DAS 8E00 
00 

202 F2DAB 629F 

203 

204 

205 F2DAF 1FO00 
000 

206 F2DB6 15F6 

207 F2D0BR DO 

208 F2DBC A&A 

209 F2DBF 81C 
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?RAC 
GOYES 


GOTO 
k 


B 
SEND45 
SEND10 
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Ts it a frane type? 
No... DONE! 
Yes...continue 


* If here, then done with processing... 
* 


SEND45 = GOSUB 


GOSUBL 
SENDEr GOC 
GOLONG 


x. 
xe 


SEND5O =A=0 


GOSUB 
* 


=RESTDO 
=GETERR 


eRRORX 
=ENDST 


A 
=SWAPDO 


Restore mailbox pointer 
Check if detected an HPIL error 


YES...report it! 
Next statenent after cleanup 


Fall through to send code 
(Mailbox-->D0, PC-->RAM) 


* Nunber if here (Value in A[A]) 
k 


SEND60 GOSUB 
B=0 
B=C 
CSR 
CSR 
A=A&B 
C=C'A 


C=C+1 


(OR an EOL... 


% 


C=C+1 
C=C-1 
GONC 
?C=0 
GOYES 


C=0 
C=C+14 
SEND70 GOSUBL 


GOTO 
x. 


ke 


SEND8O  01=(5) 


REST2C 


xpDDowmDDDi 


M 


Restore value of frane 
B[A] is now the nask 
C[X] is now the frane value 


Now C[X] 1s the frane to send 


Opcode 1xxx (xxx is frane) 


Next, check if this is MTA or MLA (FO4 or FO2, respectively) 


FOO - if so, send EOLSTR) 


KS 

XS 
SEND?70 
B 
SEND8O 


XS 
q 
=PUTC 


SEND40 


=EOLLEN 


If carry, is MxA 
Not MxA... continue 


This 1s EOL! 


Opcode 200x, x=4:T, x=2:L 
Send the frare 


Check if all OK, continue 


Read in the EOL string, length 


Convert to bytes 
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210 F2DC2 BFE 

211 F2DC5 AFS 

212 F2DC8 ROC 

213 F2OCB 461 

214 F2DCE AES 

215 F2bD1 BFS 

216 F2dD4 F5 

217 F2DD6 8E00 
00 

218 F2DDC SBE 

219 F2DDF 4B8 

220 

221 

222 F2dE2 D2 

223 F2DE4 AGE 

224 F2DE? 7000 

225 F2DEB 655F 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

co3 

254 

255 

256 

25? 

258 

259 

260 

261 FeDEF 14A 

262 F2DF2 20 

263 F2DF4 3100 
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CSR W C{5:0] 1s the string! 
B=C W Save in B[5:0]) for SENDIT 
SEND9O =A=A-1 P Check if done 
GOC SEND95 Done! 
C=8 B 
BSR W 
BSR A Next character is ready 
GOSUBL =PUTD Send the data byte 
GONC SEND9O Loop back if no error 
: GOC SENDEr Go always... 
ke 
SENDI5 C=0 A Clear mask, value (DATA) 
C=C-1 8 Mask is “FF", value=0 
GOSUB =SAVE2C Save it away for next iter! 
GOTO  SEND41 Continue on 


FOI III IO TTT TTT TT I III 
FORO IOI TOT TTT TIT K 


ak 
xk 
ak 
ak 
xk 
ah 
xn 
xk 
ak 
xx 
xk 
tok 
xk 
ak 
xk 
xk 
ae 
ak 
ak 
ax 
xx 
xk 
ak 
xk 
aK 
xe 
ak 
ak 
ak 
an 
aK 


Narie: GLOOPH - Get loop # fron RAN (if one present) 
Category:  EXCUTL 
Purpose: 
Get loop nurber fron nenory 
Entry: 
DO points to next token 
Exit: 
P=0 
DO points to next iten on line 
C{S] is loop # [0-2} 
Carry set if no loop # given 
Calls: GTYPRN 
Uses....... 
Inclusive: A,B,C,D,RO,R1,R2,R3,R4,00,01,P,ST[11:0], FUNCxx 
Stk lvls: 6 (GTYPRM) 
History: 
Date Progranner Modification 
09/26/83 NZ Updated docunentation 
03/01/83 NZ Added docunentation 


FORO RR JOO DOIG OOOO 
JOO OI IOI IIIT TTT TOT ITI IO 


=GLOOPH A=DATO B 


P= 0 
LC(2)  =tSEMIC 
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264 F2DF8 AC2 C=0 5 Clear loop #... 
265 F2DFB 966 7AHC OB Is there a loop #? 
266 F2DFE 00 RTNYES No...return 
267 & 
268 * Need to get the loop # 
269 . 
270 F2EOO 161 DO=D0+ 2 Skip the leading tSENMIC 
271 F2E03 8E00 GOSUBL =GTYPRM Get type (Sequence #) fron RAN 
00 

272 F2EO9 401 GOC GLOOPE Error 
273 F2EOC 161 DO=D0+ 2 Skip the trailing tSENIC 
274 % 
275 * Now B[B] is the nunber 
276 & 
277 FEOF A6D B=B-1 8B Decrenent by 1... 
278 F2E12 421 GOC GLOOPe Error! 
279 F2E15 3120 LC(2) 2 Max loop # 
280 F2E19 9E1 7Boc OB 
281 F2EIC 90 GOYES GLOOPe Too big! 
282 F2E1E D9 C=B A 
283 F2E2O 816 CSRC Now C{S] is loop # 
284 F2E23 03 RTNCC 
285 x 

286 xe 

287 F2E25 20 GLOOPe P= =eRANGE 
288 F2E27 6000 GLOOPE GOTO =ERRORX 
239 20K IU OI IOC TIO SOS IIIS IIIA ISIS ASIII ISAS SAIS 
2% JOIST IIIT TI II IAS OSI III III III SIS SII IIOS SSS SIS 
291 ss 

292 ** Nare: GFTYPE - Get frane type fron RAN 

: 293 * 
294 *& Category:  EXCUTL 
295 ae 
2396 ** Purpose: 
297 aK Get frame type fron RAN, given string of chars 
298 as 
299 tk Entry: 
300 kx DO points to string of chars (<=7) 
301 ak 
302 AX Exit? 
303 ax A contains the string (A[S] is WP value) 
304 ax Carry SET if errar 
305 ak 
306 kx Calls: CONVUC , RANGER 
307 ak 
308 ERS 08). 4 sivas 
309 kK Exclusive: A[W],C{W),P, DO 
310 *k Inclusive: A[W],C{W],P, DO 
311 ak 
ate tk Stk lvls: 2 (CONVUC) 
313 ak 
314 ** History: 
315 ae 
316 ah Date Progratriner Modification 


317 We keeeeen, Geeta tees, Siete ee eee eee 
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318 
319 
320 
321 
322 
323 
324 
325 
326 
32? 
328 


329 
330 


331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
34? 
348 
349 
350 
351 
352 
353 
354 
355 
356 
35? 
358 
250 
360 
361 
362 
363 
364 
365 
366 
36? 
368 
369 
370 


F2E2B AFO 
F2E2E AF2 
F2E31 181 
F2E34 161 
F2E37 14A 
F2E3A 8E0O 
00 
F2E40 580 
F2E43 8E00 
00 
F2E49 4E0 
F2E4C 814 
F2E4F 814 
FeES2 B46 
F2ESS SED 


F2E58 AEO 
F2ESB 934A 
F2ESE 00 
F2E60 80DF 


F2E64 OD 
F2E66 810 
F2E69 810 
F2E6C OD 
F2EGE 57F 


F2E71 A46 
F2E74 A4E 
F2E7? ACR 
F2E7A 03 
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tk 99/26/83 NZ Updated docunentation 
kK 03/01/83 NZ Added docunentation 
kk 


TORI JOO TOU TOTTI TOO ITI TTI IK 
SOOO II ITO TI II IIT TIT II III III IIIT I ITN 


=GFTYPE A=0 W 
C=0 W Could be C=0 § 
DO=DO- 2 
GFTYP1 MO=D0+ 2 
R=DATO B Read the byte 
GOSUBL =CONVUC Convert to upper case 
GONC GFTYP2 Was lower case...OK 
GOSUBL =RANGEA Check if in [A-Z] 
GOC GFTYP3 No...done 
GFTYP2 ASRC 
ASRC Shift around into high nibbles 
C=C+1 § Increnent count of characters 
GONC GFTYP1 Go always 
ke 
he 
GFTYP3 AO B Clear this entry! 
7C=0) —S 
RTNYES Carry set 1f error 
P=C 15 


i 
* Shift A{W] left circular P*2 tines 
i 


P=P-1 Set terminate on base zero count 
GFTYP4 ASLC 

ASLC 

P=P-4 

GONC  GFTYP4 Not done yet...keep shifting 


tk 
* Now A[W] 1s zeroes, string 
k 


C=C+C § Convert to nibbles... 
C=C-1 § ...and to base zero... 
A=C S ...and copy to A[S] 
RTNCC 


OTTO IO OIC IOI IOI IO OOO IO 
JOO IOI TOTO TOO OTTO 
ae 


kx Narie: GST'NO - Get string or nunber fron RAN 
aX 

eX Category:  EXCUTL 

aR 

** Purpose: 

is Get string or number fron RAN 

xx {If conplex or out of range, exit to error) 
ax 

®* Entry: 

ea DO points to the iten 

aR 
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371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
383 
390 
391 
392 


393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
Ai 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 


F2E?C 


F2E82 
F2E85 
F2E88 
F2E8B 
F2E8E 
F2ES® 
F2E93 
F2E95 
F2E98 
F2E9B 
F2ESD 
F2EAO 


F2ER2 
F2ER4 


F2EA8 
F2EAR 


8£00 
0 


REG 
B06 
R66 
96A 
C2 

ABG 
0$ 

B36 
A3E 


932 
DO 


20 
6000 


20 
49F 


User Utility Routines <830927. Tue Jan 17, 1984 12:22 pn 


Page 8 
EE EXIT: 
ae Carry set: String...Di->first byte, D[A}=length(bytes) 
an Carry clear: Number... A[AJ=Hex value 
xk 
** Calls: EXPEXC , GHEXBT 
ak 
RIOUSES wes Sits 
x* Exclusive: A, C,D, D1 


** Inclusive: A,B,C,D,RO,R1,R2,R3,R4,00,01,P,S1[ 11:0], FUNC xx 
aa 


** Stk lvls: 5 (EXPEXC) 


kk 
** History: 

ah 

ax Date Progranner Modification 

Wei tee seas! eee eee [ett ee epee eee tee 
Kk 09/26/83 NZ Updated docunentation 

xk 03/01/83 NZ Added docunentation 

ak 


FOO TOI UOT TOO TTT TTT TOK 
FORO IO OT OTT TTT IRI II TI TK 


=GST'NO GOSUBL =eXPEXC Expression execute 


Now check if valid nunber or conplex or NAN or ...... 


If ALBJ=#0F or 8F, than this is a string. 
If A[B}=(3 legal digits), than this 1s a nunber. 


ee eS He He He 


C=A B 

C=C+1 P 

C=C+C 8B 

7-0) «=«=B 

GOYES GST!20 This is a STRING! 

C=A x 

SETDEC Check if all BCD digits... 

C=C+1 x 

C=C-1 X 

SETHEX 

*A=C x 

GOYES GST!10 This is a NUMBER! 
x 


* If here, have SONETHING else! 
k 


P= =eNNUNR Non-nuneric data 
GST!ER GOTO =ERRORX 
x 
ke 
GST'05 P= =eRANGE 
GOC GST'ER Go always 
k. 
ko 
k 
* Nuniber! 
x 
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425 


426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 


F2EAD 


F2EB3 
F2EB6 
F2EBS 


F2EBA 
F2EBD 
F2ECO 
F2EC3 
F2EC5 
F2EC8 
F2ECA 
F2ECD 
FZEDO 
F2ED2 
F2EDS 
F2ED? 


8E00 GST!10 GOSUBL =GHEXBT 
00 
44F GOC GST!05 
D4 A=B A 
03 RTNCC 

ko 

k. 

* 

* String! 

x 
BFA GST!20 ASR W 
BF4 ASR W 
AF2 C=0 W 
D6 C=A A 
81E CSRB 
0? D=C R 
17D Di=D1+ 14 
137 CDIEX 
C2 C=A+C A 
135 d1=C 
02 RTNSC 

END 
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Pop stack, Get HEX ByTe 


Range error 
GHEXBT returns B[A]=value 
Carry clear for nunber 


Nou string length in A[A] 
(Length 1s in nibbles) 


Convert to bytes... 
Copy length to D[A] 
Skip string header (-2 for end) 


"Start" of string in C[A]... 
...and in 01 
Carry set for string 
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CONVUC Ext - 328 
ENDST = Ext - 168 
EOLLEN Ext - 205 
ERRORX Ext - 138 288 415 
FRAMEE Ext - 31 
GETERR Ext - 166 


GFTYP1 Abs 994868 #F2E34 - 326 335 
GFTYP2 Abs 994892 HF2E4C - 332 329 
GFTYP3 Abs 994904 #F2E58 - 338 331 
GFTYP4 Abs 994918 HF2E66 - 346 349 
=GFTYPE Abs 994859 #F2E2B - 323 71 
GHEXBT Ext - 425 
=GLOOPH Abs 994799 HF2DEF - 261 53 
GLOOPE Abs 994855 HF2E27 - 288 272 
GLOOPe Abs 994853 HF2E25 - 287 278 281 
GST'05 Abs 994984 #F2ER8 - 418 426 
GST'10 Abs 994989 #F2EAD - 425 410 
GST'!20 Abs 995002 #F2EBA - 434 403 
GST'ER Abs 994980 #F2ER4 - 415 419 
=6ST'NO Abs 994940 HF2E7C - 392 102 


GTYPRMN Ext = 221 

PUTC Ext - 136 201 

PUTD Ext - 217 

Pute Ext a 67 

RANGER Ext - JW 

REST2C Ext - 118 176 
RESTDO Ext - 165 

SAVE2C Ext - 92 224 
SAVEDO Ext = 5? 

=SEND Rbs 9394464 HF2CAO - Ss 

SEND1O Abs 994506 #F2CCA - 71161 
SENDI5 Abs 994531 #F2CE3 - 89 82 
SEND2O Abs 994560 #F2D00 - 102 157 
SEND30 Abs 994571 HF2DOB - 118 137 
SEND40 Abs 994622 HF2D3E - 144 68 202 
SEND41 Abs 994625 HF2D41 - 145 125 225 
SEND45 Abs 994657 #F2D61 - 165 160 
SENDS. Abs 994619 #F2D3B - 141 93 9? 
SENDSO Abs 994676 #F2D74 - 171 141 
SEND60 Abs 994682 #F2D7A - 176 113 


SEND?7O Abs 994725 #F2DA5 - 201 193 
SEND8O Abs 994735 HF2DAF - 205 195 
SEND9O Abs 994760 #F20C8 - 212 218 
SEND9S Abs 994786 HF2DE2 - 222 213 
SENDEr Abs 994667 #F2D6B - 167 219 


SENDd = Ext e 51 

SENDer Abs 994502 HF2CC6 - 68 60 

SENDp = Ext * 52 

SENd41 Abs 994582 #F2016 - 125 65 
START+ Ext _ 59 

SWAPDO Ext - 12 149 172 
eNNUNR Ext - 414 

eRRNGE Ext - 287 418 


=eRRORX Abs 994615 #F2D37 - 138 144 167 
eXPEXC Ext =. ~392 
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getdev Ext = 64 
nSETFC Ext i 66 
tCOLON Ext = 158 
tCONNMA Ext - 95 155 


tSEMIC Ext =. 263 
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Input Paraneters 
Source file nane is NZ&UTL::NS 
Listing file name is NZ/UTL:TI:ML::-1 
Object file nane is NZZUTL:TI:MS::-1 


114111 
0123456789012345 
Initial flag settings are 
Errors . 
None 


Saturn Asseribler Neus 
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1 k 
2 k 
3 & NN 2272772 & BBBB III FFFFF 
4 x N oN 7 && B B I F 
5 x NN ON Z &8& B B I F 
6 & NNN Z & BBBB I FFFF 
7 x N NN 7 &&88& B B I F 
8 & N N Z & & B B I F 
9 & N WN 27272 8& & BBBB. III F 
10 k 
8} TITLE Basic interface <840124.1345> 


12 FED? ABS #F2E07 TIZHP6 address (fixed) 
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13 STITLE Cold start handler 
14 JOO IDOI ISOS OO IOC IO TT IIR 
45 JOIST ISI OOO ICC IOI IO IIE 
16 zx 
17 kk Nane: PILCST - HPIL cold start handler routine 
18 ax 
19 *x Category: POLL 
0 kk 
21 tx Purpose: 
22 ak Diariond cold start POLL handler routine 
23 kk 
24 tk Entry: 
25 aK P=0, HEXMODE 
26 ax 
27 aK Exit: 
28 ates Carry clear, XM=1, P=0 
29 a 
4) kk Calls: I/OALL, FNDNBX, GETERR, CHKST+,D1=DSP,D1=DST 
ry kk 
32 RK Uses... .... 
33 tk Exclusive: B(W),C{W], RO, D1,P 
34 ek Inclusive: A[W],B[W),C{W],0[15:5],R0,00,D1,P 
35 ak 
36 tk Stk lvls: 2 (FNOMBK)(I/OALL)(CHKST+) (GETERR) 
37 ax 
38 ** Detail: 
39 aK Reset all HPIL nailboxes, set up LOOPST and DSPSET, 
40 RK set DISPLAY IS DISPLAY, PRINTER IS PRINTER 
4) aA 
42 xk History: 
43 aX 
44 xr Date Progranner Modification 
45 MA Sobceeee) Seeeecmceke  (ieeesecd seeder ote Tee 
46 &* 07/26/83 NZ Added check for Diariond error 
47 ae after resetting it 
48 x* 06/30/83 NZ Added wakeup of Dianond after 
49 x RESET (to be sure Manual Mode bit 
50 ax is Clear) 
51 kk 03/15/83 NZ Renoved check for RAN changed 
2 RK 02/22/83 NZ Changed CLEAR of mailboxes into 
53 ak RESET of mailboxes 
54 RK 02/11/83 NZ Added save of D[A] in RO 
55 Re 12/21/82 NZ Updated docunentation 
56 be 
5? FORO IO TOI IO ROTO GI IORI I GIO 
58 FOR RRO OO ORO OI IOI IO IOI OIG OI IO IOI IOI OI OT te 
59 F2ED? =PILCST 
60 * 
61 * PIL buffer (used by PILCNF to determine if HPIL was present 
62 * at the last configuration before current one - if not, then 


63 * calls PILCST as a subroutine) 

64 k 

65 F2ED? PILCSO 

66 FED? [4 B=0 A Allocate 0 nibs (no info to store) 
6? F2ECS DB C=B A 
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68 F2EDB 108 RO=C Save D[A] in RO (I/OALL uses D[AR}) 
69 F2EDE 3200 UC (3) =bPILSV 

0 
70 F2EE3 8F00 GOSBVL =I/OALL 1/0 ALLocate 
000 
71 F2EER 118 C=RO 
72 FEED 07 D=C A Restore D[A] fron RO 
73 & 
74 * Now reset all HP-IL marlboxes (Up to 16 of then!) 
75 i 
76 F2EEF AF2 C=0 W 
77 F2EF2 27 P= 7 
78 F2EF4 8 LE(1) 8 Reset the mailbox 
79 FEF? AFS B=C W Save the message in B[8:0] 
8) F2EFR ACS PILCS3 C=B $ Find out which mailbox I’n on... 
81 F2EFD 8€&00 GOSUBL =FNDNBX ..-and see if it’s there 
ro) 
82 F2FO3 491 GOC PILCS4 Not there...no nore railboxes 
83 F2FO6 AFI C=B W Found one...reset it 
84 F2F0O9 15C8 DATO=C 9 Reset the nailbox, clear NRD bit 
85 F2FOD 8600 GOSUBL =GETERR Wake 1t up, read the error nessage 
oO 
86 & (ignore any error message here) 
87 F2F13 7ED2 GOSUB CHKST+ Set up paraneters 
88 F2F17 BAS B=B+1 §$ Increnent to next nailbox 
89 F2FIAR SFD GONC PILCS3 Go always (carry= >16 mailboxes) 
90 ke 
94 x. 
92 F2F1D PILCS4 
93 x 
94 * Wow initialize the IS-TBL 
95 x 
96 F2F1D 7063 GOSUB 01=DSP 
97 x 
98 * Set IS-DSP ="O3F1FFF", IS-PRT="O2F1FFF", IS-INP="FFFFFFF", 
39 * IS-PLT="FFFFFFF" 
100 x 
101 F2F21 20 P= 0 FNDNBX leaves PHO when not found 
102 F2F23 36FF LCHEX O3F1FFF 
FIF3 
0 
103 FeF2C 1506 DAT1=C 7 Write IS-DSP entry 
104 F2F3 176 01=01+ 7 
105 F2F33 36FF LCHEX O2F1FFF 
FIF2 
0 
106 F2F3C 15D6 DATI=C 7 Write IS-PRT entry 
107 x 
108 * Now enable the loop (Loop0K bit of DSPSET) 
109 x 
110 F2F4O D2 C=0 A 
111 FeF42 1000 01=(2) =LOOPST 
112 F2F46 15D0 DATI=C 1 Clear Offed, InptOk 
113 F2F4A 7033 GOSUB D1=DST Clear DispOK, set LoopOK 


114 
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115 * Set LoopOK until proven trong 
116 * Set Display to restart and check device ID 
117 x 
118 FOF4E 7 w(1) 7? *DispOK, Printr, Wallby, LoopOK 
119 F2F51 15D0 DATI=C 1 Write bits out to RAN 
120 
121 * Set terminating character to LF for ENTER 
122 x 
123 F2F55 1£00 01=(4) =TERCHR 
oO 
124 F2F5B 31A0 LCHEX OR 
125 F2F5F 14D DATI=C B 
126 % 
127 * Done 
128 x 
129 F2F62 21 =RINCCX P= 1 
130 F2F64 OD P=P-1 Clear the carry... 
131 F2F66 00 RTNSXM ...and set XM 
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132 STITLE No key wakeup poll handler 
133 KAKI KAS KEK ERROR RIO SII OOOO 
134 OI RII TO OOOO TT ITI 
135 aR 
136 aX Narie: PILWNK - Wakeup, no key poll handler 
137 ak 
138 ** Category: POLL 
139 AK 
140 ** Purpose: 
141 ak Deep sleep wakeup-no key 
142 ak 
143 ak Entry: 
144 aR None 
145 a 
146 AX Exit: 
147 aK Carry clear, XM=1, P=0 
148 aE 
149 ak Calls: None 
150 ak 
151 RX Uses....... 
152 *k Inclusive: C{P],D1 
153 ak 
154 *k Stk lvls: 0 
155 ae 
156 XX NOTE: Must not alter D[A] or STATUS 
157 ax 
158 *% History: 
159 xe 
160 mn Date Progranner Nodif ication 
161 AX. “Seceledcs  teesesienkY satcicceecsescoodsudewesucusoe cj 
162 12/21/82 NZ Updated docunentation 
a JO I SII SII I III III ITI IIIS IOS TOS TI SIO III SST SII AS 
165 ITI III II II IIIT III III IIIS III IIIT I IID IIO SI ISI IIIA IIO SII I IIS ISAK 
166 F2F68 80E =PILWNK SREQ? First check if SRQ pending 
167 F2F6B 834 *SR=0 
168 F2F6E F1 GOYES PILWNx Not ne (no SRQ) 
169 x 
170 * Check if this is a Dianond service request...if so, wake up 
171 * the HP-71 by simulating the ATTN key (Setting ATNFLGHO) 
172 * (Should really set ATNFLG = "F" to say "ATTN pressed once") 
173 x 
174 F2F70 824 SR=0 
175 F2F73 OB CSTEX 
176 F2F75 860 ?ST=0 «=sDIAsr 
177 F2F?78 20 GOYES WNKOO 
178 F2F7R OB WNKOO CSTEX 
179 F2F7C 401 GOC PILWNx 
180 F2F7F 1F0O D1=(5) =ATNFLG 
000 

181 F2F86 301 tC(1) 1 
182 F2F89 1590 DAT1=C P 
183 x 
184 * Now exit, carry clear, XM set 

x 


185 
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186 F2F&8D 640F PILWNx GOTO RINCCX Return, clear carry, set XM 
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187 STITLE cont tgureiion handler 
188 RII III LISD ADIT IIIT IIIA III III IIIS ITI II IIS I ISI IIIS IIIS IIIS. 
189 JIT DRI IS IIT II III III IIIS ISIS IOI OI STIS IIIA ISIS IIIS 
190 he 
191 ** Narie: PILCNF - Configuration poll handler for HPIL 
192 ie Narie: PILWKP - Deep-sleep wakeup poll (no processing) 
193 
194 *& Category: POLL 
195 aX 
196 ** Purpose: 
19? KK Configuration entry point - Restore buffers, set DSPCHX 
198 ak to address of display routine, etc 
199 ak 
200 ak Entry: 
201 ak P=0, HEXMODE 
202 ae 
203 RAO ERTAG 
204 ak Carry clear, XM=1, P=0 
205 aa 
206 ** Calls: RESTOR, I/ORES, PILCST,D1=DST,D1=DSP,D1=DSX, 
207 aK CHKASN, (PILWKs) 
208 ak 
209 AX Uses.....5. 
210 kk Exclusive: B[A],C(W], DO,D1,P 
211 re Inclusive: A[W],B(W),C{W],0[15:5],RO,00,01,P 
212 
213 ** NOTE: Must NOT alter D[A], Status 
214 ax 
215 ** Stk lvls: 3 (PILCST)(CHKASN) 
216 ax 
217 ** History: 
218 xk 
219 x Date Progranner Modification 
220 KR eictecees.  wetesdoses.,  -solebccsecle Ss oce cies ol ce eee ceee. 
221 kK 02/25/83 NZ Moved IS-DSP check and DSPCHX set 
222 ae later in the code 
223 02/18/83 NZ Added check for IS-DSP before 
224 =e setting DSPCHX 
225 kK 02/11/83 NZ Updated docunentation (uses D,RO) 
226 s 12/21/82 NZ Updated docunentation 

k 
-. JOIST ITT IIT IIIT ITO I TI ITI IIIT 
929 JI II I III III IIT I AISI ISI ISI SAIS II ITS S III SIIIISIS SSIS SSI SISISIS SSI IA 
230 F2F91 =PILCNF 
231 F2F91 3200 LC(3) =bPILSV Check if save buffer is here 

0 

232 F2F96 719 GOSUB I/ores Restore it 
233 F2F9R 460 GOc PILCN4 Found it...continue 

x 


234 
235 
236 
237 


239 
240 FFA 


238 F2F9D 763F 
x 


* Save buffer not found...therefore HPIL was not present at 
* last configuration poll...need to reset Diariond, set it up 
k 


GOSUB PILCST Go through ny coldstart code 
PILCN4 
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241 x 
242 * Set the display device to be restarted with next character 
243 k 
244 F2FA1 75E2 GOSUB 01=DST 
245 F2FAS 1572 C=DAT1 XS Read display status... 
246 F2FA9 OB CSTEX 
247 F2FAB 840 ST=0  =DispOK Set the display to be restarted 
248 F2FRE OB CSTEX 
249 F2FBO 1552 DAT1=C XS .. Write it back out 
250 x 
251 * Clear the OFFed bit in each device 
252 * 
253 F2FB4 8E00 GOSUBL =RESTOR 
© 
254 z 
255 * Now reclain all I/0 buffers I use 
256 * Reclain IS-DSP, IS-PRT, bSTMXQ (shouldn’t be needed), bPILAT 
257 x 
258 F2FBA 1B00 DO=(5) (=IS-DSP)+3 Check if I/0 buffer type 
000 
259 F2FC1 7850 GOSUB PILWKs Restore IS-DSP if needed 
260 F2FC5 166 DO=D0+ 7 Next entry 
261 FeFC8 7150 GOSUB PILUKs Restore IS-PRT if needed 
262 FeFCC 20 P= 0 (PILWKs leaves PHO) 
263 x 
264 F2FCE 3200 LC(3) =bSTMXQ 
0 
265 F2FD3 7450 GOSUB I/ores Restore HPIL stnt execute buffer 
266 x 
267 F2FD?7 3200 LC(3) =bPILAI 
0 
268 F2FDC 7840 GOSUB I/ores Restore the ASSIGNIO buffer 
269 F2FEO 7D92 GOSUB 01=DSP Check 1f a display is assigned 
270 FeFE4 15F6 C=DAT1 7 Read it in 
271 F2FE8 8EOO GOSUBL =CHKASN Check if assigned 
00 
272 F2FEE 4A2 GOC RTNCCx Not assigned...leave DSPCHX alone 
273 F2FF1 7E92 GOSUB D1=DSX Display location... 
274 F2FFS 147 C=DAT1 A Read it first... 
275 F2FF8 8AE 7CHO) OA 
276 F2FFB E1 GOYES RINCCx Exit if occupied 
277 F2FFD 7500 GOSUB  PILxxx Get address of REL(5) on RSTK... 
278 Ae 
279 FXO1 0000 REL(5) =BDISPJ Offset to display entry 
0 
280 Be 
281 * 
282 F306 0? ~—-~PILxxx =C=RSTK ...pop it off... 
283 FOS D5 B=C A ...save address in B[A]}... 
284 FIOOR 135 DI=C ...and set DO to offset 
285 FOOD 147 C=DAT1 A Read in display offset... 
286 FH10 CI C=B+C A ...to get address of display junp 
287 FH12 7072 GOSUB D1=DSX Point back to entry 
288 F3016 145 DAT1=C A Write out display routine address 


289 


x 
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j 2% FO19 =PILWKP 
291 F019 684F RTNCCx GOTO RINCCX 
292 ae 
293 te 
294 FHX1D 146 PILWKs C=DRTO A Read in ID, type 
: 295 FH20 80D0 P=C 0 P=type 
: 296 FIO24 834 PH 4 Single I/0 buffer? 
297 FH27 OO RINYES No...return (No buffer) 
298 ‘ 
299 * 1/0 buffer...restore it 
300 
301 FH29 F6 CSR A ID in C{X] now 
302 FW2B 8D00 I/ores GOVLNG =1/ORES Restore the I/0 buffer 


000 
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303 STITLE Power-off poll handler 
304 JI IRI III IT KI II III II III STITT ITI TIT IIIS IIS IIIS IAI ISI I IOS 
305 JI II ITS III ITI II III TI TOT IIIT III TTI O TTI III IIIT ITH 
306 oe 
30? ** Nane: PILPOF - Handler for power-off poll 
308 tok 
309 ** Category: POLL 
310 xe 
311 *k Purpose: 
312 a Power-off code for HPIL: 
313 7 -Sets device codes (DISPLAY, PRINTER, KEYBD, PLOTTER) 
314 ae to power-off values (to allow restart on next usage) 
315 ax -If f1PDWN is clear and the OFFED flag is clear, sends 
316 % power-doun riessage to all Diamonds ip to 16) which 
317 aK are not in tanual mode and are controller 
318 am 
319 ** Entry: 
320 a P=0, HEXMODE 
321 tm 
322 ek Exit: 
323 al Carry clear, XM=1 
324 aX 
325 *k Calls: RESTRT, SFLAG?, FNDMBX, CHKSTS, PUTC+ 
326 xx 
327 PESOS o.oo isa 
328 ** Exclusive: B[S], C{W],00,P,ST[11:0] 
329 tk Inclusive: A{W],B[W],C{W],00,P,S1[11:0] 
330 x 
331 ** Stk lvls: 3 (RESTRT)(CHKSTS) 
332 xe 
333 ** History: 
334 a 
335 Ee Date Prograrner Modification 
336 Th: aGiticsnd: wescieecsu, ‘wiemesaGtiouteclsusenugaeuen sane 
337 ee 03/29/83 NZ Added check of f1lPDWN flag before 
338 7 powering down the loops 
339 12/21/82 NZ Updated docunentation 

i 
+ JOO IO IIIT ROO ISI IG IG ISO III III II II Ik 
342 JOO I OT TI IIE IC II TTR TKI IIIS IIIT ISIS IIIA I STII IIA 
343 FX32 7750 =PILPOF GOSUB RESTRT Restart all devices on loop 
344 x 
345 * Check 1f loop is OFFED (by OFFIO) 
346 z 
347 FXH36 100 =(4) =LOOPST 

00 

348 F303C 1562 C=DATO XS 
349 . 
350 * =0ffed is 11 
351 . 
352 F340 A26 C=C+C XS If carry, OFFED 
353 F3043 454 GOC PILPO3 If carry (=O0ffed), exit 
354 - 
350 


356 


® Check if powerdown inhibit flag is set 
x 
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357 F3046 DB C=D A Save D[A] in DO (SFLAG? puts DO 
358 F3048 134 DO=C into D[A] to save DO) 
359 F304B 3100 LC(2) =f 1lPDWN Check if power doun inhibited 
360 F304F 8&0 GOSUBL =sFLAG? 
00 
361 F3055 433 GOC PILPO3 If carry, just return 
362 x 
363 * Now shut down all the loops... 
364 x 
365 F3058 ACI B=0 5 Initialize loop counter 
366 F305B ACI PILPO1 (C=8 S 
367 F305E 8£00 GOSUBL =FNDMBX 
oO 
368 F3064 442 GOC PILPO3 No nore nailboxes 
369 F3067 8E00 GOSUBL =CHKSTS Check status, RESET 
oO 
370 F306D 451 GOC PILPO2 In manual node...leave it alone 
371 x 
372 * C[X] is the device status fron Dianond 
373 x 
374 F3070 OR ST=C 
375 F3072 860 7§T=0 =sCONTR Rn I controller? 
376 F3075 £0 GOYES PILPO2 No...try next loop 
377 x 
378 * OK to power doun this loop 
379 x 
380 F307? 20 P= 0 
381 F3079 3100 LC(2) =nPDLOP Power down loop 
382 F307D 8E00 GOSUBL =PUTC+ Send it 
00 
383 z 
384 * Don’t check carry...even if carry set, continue with the 
385 * other loops (if any) 
386 x 
387 F3083 B45 PILPO2 B=B+1 S$ Increrent loop counter 
388 F3086 54D GONC PILPO1 Go always (if carry, > 16 loops) 
389 m 
3%) * Done with power-off processing 
391 . 
392 F3089 68DE PILPO3 GOTO RINCCX Return, carry clear, XM set 
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393 STITLE Restart HPIL to search 
394 JO IGIOI IIIS IIIT I IT ITI TTT IIIT IIIS IIS III IAK 
395 JO CII TOI III III III II IOI ISI SI SII IISISSITIS SST III IIA I SIS 
396 aK 
397 ** Nane: RESTRT - Restart all HPIL devices (readdress) 
398 xx 
399 ** Category:  PILUTL 
400 ka 
401 ** Purpose: 
402 ax Restart all device addresses in the HPIL systen 
403 aK (set to search for address at next access) 
404 aa 
405 ** Entry: 
406 ax P=O0, HEXMODE 
407 ok 
408 KK Exit: 
409 Ke P=0 
410 aR Carry clear 
411 KK 
412 ** Calls: RESTRs,CSRC5,CSLCS, FIBOFF 
413 Kk 
414 KK Uses. ....5 
415 xk Exclusive: C(W],DO,P 
416 kk Inclusive: A[W],C[W],BO,P 
41? kx 
418 ** Stk lvls: 2 (FIBOFF) 
419 a 
420 ** History: 
421 aX 
422 x* Date Progranner Modification 
423 RK) “Soeeeics Soebobee ceed ceceuce cobalt skeet ee Se Sse 
424 xx 06/01/83 NZ Added call to FIBOFF 
425 we 12/21/82 NZ Updated docunentation 
426 ae 
427 JOIST OIC CII IIIS TI TTI ITT 
428 JOO IOI III UII II IIT TTI 
429 F308D =RESTRT 
430 F308D 137 CO1EX 
431 F30% 8E00 GOSUBL =CSLC5 Save D1 in C[9:5] 
oO 
432 F3096 8FOO GOSBVL =F IBOFF Restart FIB buffers 
000 
433 F309D 8£00 GOSUBL =CSRC5 Recall 01 to C[{A] 
0 
434 F30A3 135 D1=C Restore D1 
435 F30Ab 1800 hO=(5) =DSPSET 
000 
436 F3ORD X? OCT) 7 DispOK=0; Wallby,Printr, LoopOK=1 
43? FIOBO 15C0 DATO=C 1 Write then out 
438 : 
439 * Now deassign all devices 
440 . 
441 F30B4 1AOO 0O=(4) =1S-DSP Point to IS-DSP, set it OFF 
w 
442 F30BR 7800 GOSUB RESTRs IS-BSP 
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443 FIOBE 7400 GOSUB RESTRs IS-PRT 
444 FWC2 7000 ‘ GOSUB RESTRs IS-INP 
445 
446 : Fall into RESTRs for IS-PLT (exit when done with RESTRs) 
447 
448 F3OC6 RESTRs 
449 x 
450 * DO points to the entry 
451 x 
452 F3OC6 15E6 C=DATO 7 
453 F30CA 23 P= 3 Check if C[3J="F"...if so, not ne 
454 F30CC B06 C=C+1 P If C[3}="F", then not HPIL/done 
455 FIOCF 401 GOC RESTs4 Not HPIL or assigned to * 
456 FIOD2 B26 C=C+1 XS If C[XS]="F", leave this alone 
457 F30D5 4A0 COC RESTs4 Increrient DO, return 
458 F3OD8 02 C=0 A 
459 F30DA CE C=C-1 A 
460 F300C 15C2 DATO=C 3 Write out "FFF" 
461 FIOEO 166 RESTs4 DO=D0+ 7 Move to the next entry 
462 FI0E3 20 P= 0 


463 FIOES 03 RTNCC 
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464 
465 
466 
467 
468 
463 
470 
471 
472 
473 
474 
475 
476 
47? 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 


500 
501 
502 
503 
504 
505 
506 
50? 
$08 
509 
510 
511 
S12 
rales, 
514 
515 


F30E7 1FOO 
000 
F30EE 1572 
F30F2 0B 
F30F4 870 
FIOF7 20 
F30F9 OB 
F30FB 451 


F3OFE 7881 
F3102 1572 
F3106 OB 

F3108 850 
F310B OB 

F3100 1552 
F3111 6OSE 
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FOO III OI TTT TTT TI IK 
FO JOO TOTO TO TIT TIT 


xx 
ak 
xk 
ak 
xk 
xk 
aK 
ak 
xk 
kk 
xk 
xk 
KK 
xx 
xk 
xx 
ax 
ak 
xk 
xx 
ax 
xk 
xk 
xk 
ak 
xk 
ak 
ak 
ak 
xn 


Narie: PILNLP - HPIL handler for main loop 
Category: POLL 
Purpose: 
Main loop handler code - if display is not offed, 
set ST{Loop0K] true 
Entry: 
P=0, HEXMODE 
Exit: 
Carry clear, XM=1 
Calls: D1=DST 
Uses. cceiicn 
Inclusive: C[{XS],01,P 
Stk lvls: 1 (D1=DST) 
History: 

Date Progranner Modification 
12/21/82 NZ Updated docurentation 
01/17/83 NZ Changed Search fron 4 to 5 (START 

is now using ST[4] also) 


FOI II III ICICI II IIIT OT OITITTOK 
FOI I ITO TIO OI OI 


=PILMLP D1=(5) =LOOPST First check if loop is "OFFED" 
C=DAT1 XS 
CSTEX 
7ST=1 = =O0ffed Is it offed? 
GOYES PILMS Set carry if yes 


PILMS CSTEX 


x 


GOC PILMRC If offed, just return 


* Not OFFED by OFFIO...set loop OK true here 
* 


GOSUB = D1=DST 


C=DAT1 XS 

CSTEX 

ST=1  =LoopOk Set Loop OK flag true again 
CSTEX 

DATI=C XS Write out the statuses 


PILMRC GOTO RTNCCX Return u/carry clear, XM=1 
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516 STITLE Service Request Handler 
517 SOIR TOO RITES II II TET IIT SIOAS TIT IIT ISI IS SS SSIS A 
518 REKKKEKRK EKER ROO SOIT 
519 aR 
520 = Narie: PILSRQ - HPIL service request handler 
521 & 
522 ** Category: POLL 
523 aK 
524 ** Purpose: 
525 ak HPIL service request poll handler - deternine SRQ 
526 ah source, process SRQ 
527 ak 
528 xk Entry: 
529 aie P=0, HEXMODE 
530 a 
531 AR Exit: 
532 x Carry clear,P=0,xXM=1 
533 aK 
534 ** Calls: SAVSTS , FNDMBX , GETHSS, CHKSET, PUTCN, GETST-, SFLAG?, 
535 aR RESSTS 
536 aK 
537 BX USES cic 
538 4k Exclusive: 8(A},C{W], D1,P 
539 :. Inclusive: A[W),B({AJ,C{W],0[15,5],D0,01,P, SNAPBF[37:0] 
540 x 
541 ** Stk lvls: © (SAVSTS,RESSTS save ther) 
542 xk 
543 7 NOTE: Must NOT use RSTK levels OR status bits 
544 
545 *k Algorithn: 
546 o Check if Dianond SRQ...if not, return 
547 7 Find which Dianond is requesting service 
548 aK Check if interrupt pending...if pending, set exception 
549 ue Check if data available and renote node and “dormant”: 
550 = if so, set up HPIL external key 
551 an If not interrupt and not (data available and renote) 
552 st then continue checking with next loop 
553 ae 
554 ** History: 
555 7 
556 7 Date Progranner Modification 
557 KX soesiosce “seececeees. “See coe cecsce elec eee Se eee ccccsee 
558 *k 10/20/83 NZ Inplenented ER #39-10744 (if the 
559 Kk first loop requesting service 
560 a does not have anything to do, try 
561 Kk any other loops for SRQ) 
562 os 12/21/82 NZ Updated docunentation 
x 
oe SI III III III ITI ATI I III ISIS IIS III III ISI AISI II II IIIT III I III RIAA 
565 JEDI OID ICICI IIIT TO II I I IK TIT 
566 F3115 6580 PILSO? GOTO PILS9+ Qut of range for GOC 
567 x= 
568 xe 
S69 F3119 8OE =PILSRQ SREQ? First check this is HPIL 
570 F3I1C 834 ?SR=0 
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571 
§72 
§73 
574 
§75 
576 
577 
578 
579 
580 
581 
582 
583 


534 
585 
586 
587 
588 
589 


§90 
591 
592 
§93 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 


604 
605 


606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
61? 
618 
619 
620 


F3I1F 6F 
F3121 824 
F3124 OB 
F3126 860 
F3129 20 
F312B OB 
F312D 47E 


F3130 07 
F3132 7423 
F3136 1F00 
000 
F313D 147 
F3140 F2 
F3142 DS 


F3144 816 
F314? 8E00 
00 
F314D 486 
F3150 7B70 
F3154 870 
F3157 90 
F3159 £5 
F315B 09 
F315D 5b6E 


F3160 7A70 

F3164 3300 
00 

F316R 8E00 


00 
F3170 8£00 

00 
F3176 5BO 
F3179 890 
F317C A3 
F317E F6 
F3180 20 
F3182 OB 


F3184 860 
F318? 80 

F3189 850 
F318C 5CC 
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GOYES PILSO? 

SR=0 

CSTEX 

?S8T=0 =sDIAsr 

GOYES PILSOO 
PILSOO = CSTEX 


GOC PILSO? 
& 


Page 16 


No request pending...exit 


Dianond SRQ? 
Set carry if not HPIL 


Not HPIL...exit 


* This 1s an HPIL SRQ...service it 
k 


C=RSTK 
GOSUB SAVSTS 
01=(5) =MBOX* 


C=DAT1 
CSL 
B=C 


DDD 


x 


PILS20 CSRC 
GOSUBL =FNDMBX 


GOC PILS50 

GOSUB GETHSS 

?ST=1 0 =hsRQSR 

GOYES REQSER 
PILS23 B=Bti A 

C=B A 

GONC PILS20 


Diariond requesting service 


wee ee 


REQSER GOSUB CHKSET 
LC(4)  =nSTSTC 


GOSUBL =PUTCN 
GOSUBL =GETST- 


GONC REQS1O 
?P= =eRBORT 
GOYES PILS50 
CSR A 
P= 0 


REQS1O = CSTEX 
x 


Save calling level 
Save status, 6 levels, D[A] 


Save old MBOX* value in B[3:1]} 


Mbox value in B[3:1], # in B[0] 
Set up for trbox #1 

Shift mailbox nunber into C[S] 
Look for the nailbox 


Not found...done 

Read handshake nibbles (2) 
Requesting service? 
Yes...see what it 1s 

No... try next nailbox 


Go aluays (if more than 16, no) 


pointed to by DO 


Check if this loop was reset 
Request status & clear SRQ 


Read the railbox’s status 


(0K) 

Error fron ATTN key hit? 
Yes...exit routine NOW 
No...status is in C[3:1] 
(P was =ePIL) 


* Check 1f there is an interrupt pending 
x 


*ST=0 =sINIR 
GOYES REQS30 
ST=1 =Except 


GONC = PILS23 


Interrupt pending? 

No...check 1f data 1s available 
Yes,..set exception flag and exit 

fo aluays...check next for renote ke 
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621 
622 
623 
624 
625 
626 
627 
628 
629 
6H 
631 
632 
633 
634 
635 
636 


637 
638 
639 
640 
641 


642 


643 
644 
645 
646 
647 
648 
649 


650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 


F318F 


F318F 860 
F3192 7C 


F3194 860 
F3197 2C 


F3199 3100 

F319D 8E00 
oo 

F31A3 558 


F31A6 1FOO 
000 
F31AD 321F 


F 
F31B2 1553 
i 


F31B6 D9 
F31B8 Fé 
F31BA 1F0O 
000 
F31C1 1502 
F31C5 75€2 
F31C9 06 
F31CB 669D 
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REQS30 

t 

* Check if there is data available 

k 


*ST=0 = =sDATRV 
GOYES PILS23 


Data available? 
No...try next riailbox 


* Data is available...check if Dianond 1s in renote node 
t 


Renote node? 
No...ignore the data, try next mbox 


?ST=0 =sRNOTE 
GOYES PILS23 


* Data available, rerote node...check if the HP-71 is dornant 


LC(2) =f 1DORN 
GOSUBL =sF LAG? Check the dornant flag 
GONC = PILS23 Not dornant...try next mailbox 


t 
* Data available, renote node, dornant...generate special key 
t 


D1=(5) =KEYPTR 
LCHEX FF1 
DAT1=C X Set to one key, keycode = "FF" 
: Restore NBOX* value, restore status, RSTK, D(A], and exit 
PILSSO C=B OA 


CSR A 
D1=(5) =NBOX* 


Get nailbox # back to C[X] 


DAT1=C 3 Restore the nallbox address 

GOSUB RESSTS Restore status, 6 levels, D[A} 

RSTK=C Restore last stack level 
PILS9+ GOTO  RINCCX Clear carry, set Xf 


BOUT TO OTT TO TT TTT ITN 
JOJO RIO III TTT TIE 
xx 


** Nane: GETHSS - Get 2 handshake nibbles fron Dianond 
ik 

** Category: PILI/0 

ik 

** Purpose: 

is Read the two handshake nibbles fron Dianond to the HP-?1 
ak and put into ST[?:0] 

kk 

** Entry: 

a DO points to HPIL mailbox 

ti 

ERAT: 

ar The tuo handshake nibbles fron Dianond are in ST[7:0] 
as Carry clear 

ik 
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672 tt Calls: None 
673 ak 
674 RX 
675 tk Inclusive: ST[7:0] 
676 aK 
677 tk Stk lvls: 0 
678 ak 
679 ** History: 
680 aK 
681 aa Date Progranner Modification 
682 RN. eecbeceei .Sotasenees,” °iducdeeessnecotuccsocudseacusccece sew 
683 tk 09/29/83 NZ Updated docunentation 
684 ak 04/01/83 SC Wrote routine 
685 ae 
686 JOIST ISO ISG ISI ICO TOK 
687 JORIS IOI IO I TOUS IIIS ITI ITOK 


688 F3ICF OB 
689 F31D1 160 
690 F31D4 14€ 
691 F31D7 180 
692 F31DA OB 
693 F31DC 01 


=GETHSS CSTEX Save C[X] in ST, put ST in C[X] 
DO=D0+ =oINHS 
C=DATO B Read two nibbles of handshake 
DO=D0- =oINHS 
CSTEX Put back into ST, restore C[X] 


RTN Return, carry clear 
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694 STITLE Check and set up mailbox 
695 JOS II REE 
696 JOGO ITO OITA SS IIS IIIT IESE IIR 
697 an 
698 ** Nane: CHKSET - Check if this mailbox has been reset 
699 **x Nane: CHKST+ - Set up this mailbox after reset 
700 xk 
701 ** Category: LOCAL 
202 a 
703 ** Purpose: 
704 ak Check 1f this railbox has been reset...if so, set up 
705 ax device ID and accessory ID 
706 a 
707 **k Entry: 
208 ak DO @ nailbox 
709 ka 
710 KX Exit: 
711 aA DO pointing to mailbox 
712 ax Carry clear: 
713 xx fill OK (If mailbox had been reset, it has been set up) 
714 x Carry set: 
715 xk Error...P, C[O] are error code 
716 ax 
717 ** Calls: PUTC, PUTE 
718 ax 
719 *k Uses....... 
720 kk Exclusive: A{W],C{W],P 
721 kk Inclusive: A[W],C[W],P 
722 ax 
723 ** Stk lvls: 1 (PUTC)(PUTE) 
724 ax 
725 ** Detail: 
726 ax Check if RESET bit is set...if not, return, carry clear 
727 al Set IDY tineout = 50 nS 
728 i Set Accessory ID = (MSETAT) 
729 a Set Device ID = (vDEVID)&Cra&.f 
7% ka 
731 ** History: 
732 a 
733 kk Date Progranner Modification 
734 KX JS25uc0855. Gaotvecccien. . <hoteaocucsssusccacc lot ke eee eee ae 
735 kk 06/03/83 NZ Added setting IDY tirieout to 50ns 
736 Rk 03/16/83 NZ Added clear of NRD if reset 
737 Kk 02/22/83 NZ Wrote routine and docurientation 
kk 
Be JIS III I UII ISIC IIE TT 
740 JOGOS IIE ICO CCCI OC III IIT IK 
741 F31DE 160 =CHKSET DO=D0+ =oQUTHS 
742 F31E1 1564 C=DATO S Read into C{S] 
743 F31E5 180 DO=D0- =o0UTHS 
744 F31E8 R46 C=C+l § Check if reset 
745 F31EB 500 RTNAC If no carry, has NOT been reset 
746 * 
74? 


748 


* Need to set device and accessory ID here 
x 
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749 F3IEE AF2 C=0 W 

750 F31F1 15C8 DATO=C 9 Clear NRD, etc 

751 x 

752 F31F5 20 =CHKST+ P= 0 

753 F31F? 3300 LC(4) (=nSETIT)+50 Set IDY tineout to 50 rsecs 
00 

754 F31FD 8&00 GOSUBL =PUTC 
00 

755 F3203 400 RTNC 

756 F3206 3500 LC(6) =nSETAL Set accessory ID length 
0000 

75? F320E 7960 GOSUB Pute 

758 F3212 400 RTNC 

759 F3215 3500 LC(6) =nSETAI 
0000 

760 F321D 7850 GOSUB Pute Set accessory ID value 

761 F3221 400 RTNC 

762 F3224 3500 LC(6) =nSETD1 Set device ID length 
0000 

763 F322C 7840 GOSUB Pute 

764 F3230 400 RTNC 

765 a 

766 x LCASC = (=vDEVID) +#OOOROD*#100000000 xxxx<Cro<Lf> 

76? F3233 3D NIBHEX 30 

768 F3235 0000 CON(8) =vDEVID Value of device ID 
0000 

769 F323D0 DORO NIBHEX DOROOO 
ow 

770 x4 

771 F3243 AFA A=C W Save in A{W] 

772 F3246 B44 CHKSE1 A=AHi S$ Increnent the pointer value 

773 F3249 3500 LC(6) =nSETDI Set device ID 
0000 

774 F3251 816 CSRC 

775 F3254 816 CSRC 

776 F3257 REG C=A B Copy next byte to C{[B] 

77? F325A 812 CSLC 

778 F325D ACE C=A S Copy count to C[S] 

779 F320 812 CSLC Now message 1s set up 

780 F3263 7410 GOSUB Pute Send the nessage 

781 F3267 400 RTNC 

782 F326A 2E P= 14 Don’t alter A[S] 

783 F326C B94 ASR WP Get next character 

784 F326F B94 ASR WP 

785 F3272 20 P= 0 

786 F3274 96C 7AHO) OB Done yet? 

787 F3C?77 FC GOYES CHKSE1 No...cantinue 

788 F3279 O1 RTN Yes...done 

789 A. 

790 x 

791 F327B 8COO =Pute GOLONG =PUTE 
re 

792 *- 

793 *- 

794 F3281 1FOO =D1=DSP 01=(5) =IS-DS 
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000 

795 F3288 01 RTN 

796 ad 

797 Ae 

798 F328A 1FOO =D1=DST D1=(5) =DSPSET 
000 

799 F3291 01 RTN 

800 a. 

. 84 k 


802 F3293 1FOO =D1=DSX D1=(5) =DSPCHX 


000 
803 F329A 01 RIN 
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804 STITLE Utility routines 
805 JORDI III OIC OCI IIIT ITA IAI IR 
806 JO IG IOI COC IO I TT ITT ITI IIIT KIS II AS 
807 xx 
808 *k Narie: SAVEST - Save status bits in STSAVE 
809 a Narie: RESTST - Restore status bits from STSAVE 
810 x 
811 ** Category:  SAVUTL 
812 aK 
813 *x Purpose: 
814 aK Save or restore status bits in =STSAVE RAN 
815 ak 
816 ak Entry: 
817 ak Nothing 
818 ak 
819 kK Exit: 
820 : Status bits saved in/restored fron =STSAVE 
821 
822 kk Calls: None 
823 aK 
824 kK Uses.....0. 
825 kk Inclusive: STSAVE[2:0]/ST[11:0] 
826 ak 
827 k* Stk lvls: 1 (internal push) 
828 aK 
829 *x NOTE: Does not alter carry 
830 ar 
831 ** History: 
832 ak 
833 a Date Progranner Modification 
834 Pk. Gitar’ “WiiaGetant:. ‘texmadeieias Sebve acon tet oe se 
835 ae 12/21/82 NZ Updated docunentation 
a 
+ JO SIO OI IO ISI IIIS ISIE IIS OI TOC IIS 
338 JI DOIG III ICT ICO ITO TICE I IK at 
839 F329C 06 =SAVEST RSTK=C Save C[R] on stack 
840 F329E 136 CDOEX Save DO in C[A] 
841 F32A1 1B00 0O=(5) =STSAVE 
000 
842 F32A8 OB CSTEX 
843 F32RR 15C2 DRTO=C 3 Write out the status bits 
844 F32ARE OB xxxxST = CSTEX 
845 F32B0 134 DO=C Restore DO 
846 F32B3 07 C=RSTK Restore C[A] 
847 F32B5 01 RTN 
848 a 
849 ke 
850 F32B7 O06 ==RESTST RSTK=C Save C[A] on stack 
851 F32B9 136 CDOEX Save 00 in C[A] 
852 F32BC 1B00 DO=(5) =STSAVE 
000 
853 F32C3 OB CSTEX 
854 F32C5 15E2 C=DATO 3 Read back the status bits 
855 F32C9 64EF GOTO 9 xxxxST Exit (Corron code) 


856 


OORT TOT Io OT III ITI 
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857 JOIST SOCIO TC TI TIT 
858 ee 
859 ** Narie: SRVEDO - Save DO in STNTDO 
860 *k Nane: RESTDO - Restore DO from STMTD1 
861 *% Narie: SWAPDO - Exchange DO with STHTDO 
862 ** Nane: _ SAVED1 - Save D1 in STMTD1 
863 xk Narie: RESTD1 - Restore D1 from STATD1 
864 kk Nare: SAVEIA - Save A[W] in STNTRO 
865 &k Nare: RESTIA - Restore A[W] fron STMTRO 
866 &k Narie: SAVE2C - Save C[W} ain STMTRI1 
867 xk Nane: REST2C - Restore C[W] from STNTR1 
868 ak 
869 ** Category:  SAVUTL 
870 ak 
871 ** Purpose: 

872 aA Save or restore the value in nainfrane STNTxx RAM: 
873 a these go away between statenent executions 
874 A 
875 ak Entry: 
876 ak None 
877 aK 
878 ae Exit: 
879 aa RESTXX: Restores the register indicated by XX 
880 A SAVEXX: Saves the register indicated by kX 
881 
882 ** Calls: None 
883 ax 
884 RK Uses... 0.0. 
885 Me Inclusive: The designated RAM for SAVE, register for REST 
886 
887 *K Stk lvls:  SAVExx: 1 
888 &* Stk lvls: SWAPDO: 2 
889 ax 
890 ** NOTE: Does not alter carry 
891 ak 
892 ** History: 
893 aa 
894 ae Date Progranner Modification 
895 $i Se Mines.  Daduencascuasees ne oe sie ween 
896 ak 12/21/82 NZ Updated docurientation 

kk 
aos JI OI ICICI OC OT TIE IIIS IIS ITK 
399 JI IOI IT OI ITO TTI S SII SIO I IIIS ISI SAS ISS ISIS: 
900 F320D 06  =SAVEDO RSTK=C Save C[A] on RSTK 
901 F32CF 136 CDOEX 
902 F32D2 1B00 DO=(5) =STNTDO 

000 

903 F32D9 144 DATO=C A 
904 F32DC 136 SAVEOr CDOEX 
905 F32DF 07 C=RSTK Restore C[A] fron RSTK 
906 F32E1 01 RIN 
907 k. 
908 * 
909 F32E3 06 =SAVED1 RSTK=C Save C[A] on RSTK 
910 F32E5 137 CD1EX 
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911 F32E8 1FOO 
000 
912 F32EF 145 
913 F32F2 137 
914 F32F5 07 
915 F32F7 01 
916 
91? 
918 F32F9 06 
919 F32FB 136 
920 F32FE 1B00 
000 
921 F3305 146 
922 F308 63DF 
923 
924 
925 F330C 06 
926 F330E 137 
927? F3311 1F0O 
000 
928 F3318 147 
929 F331B 66DF 
930 
9314 
932 F331F 06 
933 F3321 136 
934 F3324 06 
935 F3326 1B00 
000 
936 F332D 146 
937 F3330 136 
938 F3333 0? 
939 F3335 136 
940 F 3338 06 
941 F333R 136 
942 F333D 1B00 
000 
943 F3344 144 
944 F3347 07 
945 F3349 629F 
946 
947 
948 F334) 06 
949 F334F 136 
950 F 3352 1B00 
000 
951 F3359 1507 
952 F335) 6E7F 
254 
954 
955 F 3361 136 
956 F 3364 06 
957 F 3366 136 
958 F 3369 1B00 
000 
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SAVEIr 


11 ee 
wi 


AVETA 


ee 


ot 


AVE2C 


D1=(5) =STNTD1 


DAT1=C A 
CDIEX 
C=RSTK 
RTN 


RSTK=C 
CDOEX 
DO=(5) =STHTDO 


C=DATO A 
GOTO SAVEOr 


RSTK=C 
CDIEX 
Di=(5) =STMTO1 


C=DAT1 A 
GOTO 8 SAVEIr 


RSTK=C 
CDOEX 
RSTK=C 
DO=(5) =STHTDO 


C=DATO R 

CDOEX 

C=RSTK 

CDOEX 

RSTK=C 

CDOEX 

DO=(5) =STNTDO 


DATO=C A 
C=RSTK 


GOTO SAVEOr 


RSTK=C 
CDOEX 
DO=(5) =STMTRO 


DATO=A W 
GOTO SAVEOr 


CDOEX 
RSTK=C 
CDOEX 
DO=(5) =STMTRI 
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Restore C[A] fron RSTK 


Save C[A] on RSTK 


Save C[R] on RSTK 


Save C[A] on RSTK 


Save old DO on RSTK 
Thais alters C{A] 


Get RAM DO value 

RAM DO value in DO 

Old DO value in C[A} now 
Now push new DO value 


Get address again 


Write out old DO value 
Get new DO value fron RSTK 


Save C[A] on RSTK 


Save DO on RSTK 
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959 F3370 1547 DATO=C W 
960 F3374 136 SAVEOx CDOEX 
961 F3377 07 C=RSTK Restore DO from RSTK 
962 F3379 136 CDOEX 
963 F337C 01 RIN 
964 ke 
965 xe 
966 F337E 06 =RESTIA RSTK=C Save C[A] on RSTK 
967 F3380 136 CDOEX 
968 F3383 1B00 DO=(5) =STNTRO 
000 
969 F338A 1527 A=DATO W 
970 F338E 6D4F GOTO = SAVEOr 
971 x 
972 x. 
973 F3392 136 =REST2C CDOEX Get DO into C[A) (Don’t care if 
974 x C[A] is lost - will be replaced) 
975 F3395 06 RSTK=C Save DO on RSTK 
976 F3397 1B00 DO=(5) =STNTR1 
000 
977 F339E 1567 C=DATO W 
978 F33A2 610F GOTO SAVEOx 
979 JO ISITE ICC IST TIO TTI 
980 JU IOC OOO ISIS IO ISIS TOC TTI RIOT SASS A 
981 ak 
982 ** Nane: TSAVDO - Save DO in FUNCDO 
983 ** Nane: TRESDO - Restore DO from FUNCD1 
9384 **k Nane: TSWADO - Exchange DO with FUNCDO 
985 ** Wane: TSAVD1 - Save D1 in FUNCD1 
936 **k Nane: TRESD1 - Restore D1 fron FUNCD1 
987 **k Nane: TSAVIA - Save A[W] in FUNCRO 
988 *k Narie: TRESIA - Restore A[W] from FUNCRO 
989 *k Nane: TSAV2C - Save C[W] in FUNCR1 
9% - Narie: TRES2C - Restore C{W] from FUNCR1 
991 
992 kk Category: SAVUTL 
993 ak 
994 xX Purpose: 
995 - Save or restore the value in nainfrane FUNCxx RAN: 
996 ae these go away during function executions 
997 a 
998 aX Entry: 
999 xe None 
1000 RK 
1001 tk Exit: 
1002 xx TRESxx: Restores the register indicated by xx 
1003 = TSAVxx: Saves the register indicated by xx 
1004 ik 
1005 ** Calls: None 
1006 aX 
1007 ER USBS cay pwis 
1008 nA Inclusive: The designated RAN for TSAV, register for TRES 
1009 : 
1010 ** Stk lvls:  TSAVxx: 1 


1011 *X Stk lvls:  TSWADI: 2 
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1012 ax 
1013 *k NOTE: Does not alter carry 
1014 x 
1015 xx History: 
1016 xr 
1017 ax Date Programmer Modification 
1018 BR nnn nen anne nnn nn nn nn nee nn nnn ee nn nner n ne enn nee 
1019 . 12/21/82 NZ Updated docunentation 
Ha JOS UII OCCT TO TIT I ITI IT I 
1022 $I OI IDOI OI ICO TOOTSIE IK 
1023 F33A6 O06 =TSAVDO RSTK=C Save C{[A] on RSTK - 
1024 F33A8 136 CDOEX 
1025 F33AB 1800 DO=(5) =FUNCDO 
0% 
1026 F33B2 144 DATO=C A 
1027 F33B5 136 TSAVOr CDOEX 
1028 F33B8 07 C=RSTK Restore C{A] fron RSTK 
1029 F33BA 01 RIN 
10% a 
1031 a 
1032 F33BC 06 =TSAVD1 RSTK=C Save C{A] on RSTK 
1033 F33BE 137 CDIEX 
1034 F33C1 1F00 D1=(5) =FUNCD1 
00 
1035 F33C8 145 DAT1=C A 
1036 F33CB 137 TSAVir CDIEX 
1037 F33CE 07 C=RSTK Restore C[A] fron RSTK 
1038 F33D0 01 RIN 
1039 x. 
1040 k- 
1041 F33D2 06 =TRESDO RSTK=C Save C[A] on RSTK 
1042 F33D4 136 CDOEX 
1043 F33D7 1B00 DO=(5) =FUNCDO 
000 
1044 F33DE 146 C=DATO A 
1045 F33E1 630F GOTO = TSAVOr 
1046 k- 
1047 a 
1048 F33E5 06 = =TRESDI RSTK=C Save C[A] on RSTK 
1049 F33E7 137 CD1EX 
1050 F33ER 1F0O D1=(5) =FUNCD1 
000 
1051 F33F1 147 C=DAT1 A 
1052 F33F4 6dr GOTQ TSAVIr 
1053 ae 
1054 a 
1055 F33F8 O68  =TSWADT RSTK=C Save C[A] on RSTK 
1056 F33FA 13? CDIEX 
1057 F33FD 06 RSTK=C Save old D1 on RSTK 
1058 F33FF 1F00 D1=(5) =FUNCD1 This alters C[A] 
000 
1059 F3406 14? C=DAT1 A Get RAN D1 value 
1060 F3403 137 CDIEX RAN D1 value in D1 
1061 F340C 07 C=RSTK Old D1 value an C{[A] non 
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1062 
1063 
1064 
1065 


1066 
1067 
1068 
1063 
1070 
1071 
1072 
1073 
1074 
1075 
1076 


1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
108? 


1088 
1089 
109 
1091 
1092 
1993 
1094 
1095 
1096 
1097 
1098 
1999 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 


F340E 
F3411 
F3413 
F3416 


F341D 
F 3420 
F3422 
F3425 
F3427 


F3429 
F342C 
F342E 
F3431 


F3438 
F343C 
F343F 
F3441 
F3444 


F3446 


F3449 
F344B 


F3452 
F3456 


137 
06 
137 
1FOO 
000 
145 
07 
13? 
07 
01 


136 
06 
136 
1B00 
O00 
1547 
136 
07 
136 
01 


136 


06 
1B00 
O00 
1567 
65EF 
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1 © 
— 5 


SAV2C 


TSAVOx 


— | 


RES2C 


eH Mm 


CD1EX 
RSTK=C 
CDIEX 
D1=(5) =FUNCD1 


DAT1=C A 
C=RSTK 
CD1EX 
C=RSTK 
RTN 


CDOEX 
RSTK=C 
CDOEX 
DO=(5) =FUNCR1 


DATO=C W 
CDOEX 
C=RSTK 
CDOEX 
RTN 


CDOEX 


RSTK=C 
DO=(5) =FUNCRI 


C=DATO W 
GOTO TSAVOx 
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Now push new D1 value 
Get address again 


Write out old D1 value 
Get new D1 value fron RSTK 


Recall old C[{A] 


Save DO on RSTK 


Restore DO fron RSTK 


Get DO into C{A} (Don’t care if 
C[A) is lost - will be replaced) 
Save DO on RSTK 


FOI OI TOTO TI TOK 
FORO IIR RII TO TIT UIOTOT IOT 


x 


xk Nane: 


xx 


** Category:  SAVUTL 


xk 


*x Purpose: 
Save 6 stack levels and status bits AND D[A] in SNAPBF 


xx 
ax 


*x Entry: 
C[A] is first stack level 


kx 
xk 


Kk Exit 
ok 


SAVSTS - Save RSTK levels, Status bits, D{R] 


P=0, stack levels saved in =SNAPBF 


Carry clear 


&* Calls: None 


** Stk lvls: 


xk Inclusive: B[A],C([A],D0,P, SNAPBF[37:0] 
x 
(-6) (Saved in SNAPBF) 
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1114 ** History: 
1115 x 
1116 xx Date Progranrer Modification 
1117 KR nanan een nee ne nnn ene eee eee 
1118 *X 42/21/82 NZ Updated docunentation 
ka 
vine JI ITO I ITO IIIS TAIT IIIS IT IIIT III ISI IIS IS IS II ITT SIA IIS 
1121 JI IIT OI IO TIS III IIIT ISI I IIT ITS I I IIIS IISSISI ISIS IIS IIS 
1122 F345A 2B 9 =SRVSTS P= 16-5 Save 5 nore levels 
1123 F345C 1800 DO=(5) =SNAPBF Snap buffer 
000 
1124 F3463 144 =SAVST+ DATO=C A Write out first address 
1125 F3466 164 DO=D0+ 5 
1126 F3469 09 C=ST 
112? F346B 15C2 DATO=C 3 Save status bits 
1128 F346F 162 DO=D0+ 3 
1129 F3472 0? C=RSTK Pop calling address 
1130 F3474 DS B=C A Save calling address in B[A] 
1131 F3476 07 SAVSTs C=RSTK Pop a level 
1132 F3478 144 DATO=C A Save it in SNAPBF 
1133 F3478 164 DO=D0+ 5 
1134 F347E OC P=P+1 
1135 F3480 5S5F GONC SAVSTs If no carry, not done yet 
1136 F3483 D9 C=8 A Recall calling address... 
1137 F3485 06 RSTK=C ...push back on stack... 
1138 F3487 DB C=) A ... SAVE DA]... 
1139 F3489 144 DATO=C A 
1140 F348C 03 ...and return, carry clear 
1141 JORIS III IOI III I ICO ITS IIS I IIIT IIIT TIO 
1142 JIS III OIRO IG IIIS III TI III IIIS ITI SIT ITIK 
1143 Rx 
1144 ** Nane: RESSTS - Restore RSTK lvls, D[A}, and statuses 
1145 RS 
1146 ** Category:  SAVUTL 
1147 KK 
1148 ** Purpose: 
1149 a Restore status, 6 stack levels, and D[A] fron =SNAPBF 
1150 ae 
1151 ** Entry: 
1182 ax Nothing 
1153 = 
1154 *X Exit: 
1155 = P=0, last stack level in C[A] 
1156 aS Carry clear 
1157 ax 
1158 ** Calls: None 
1159 ¥m 
1160 MR USES cc ettes 
1161 4% Inclusive: B[A],C[A],DO,P 
1162 e* 
1163 ** Stk lvls: (+6) (Restores RSTK levels fror SNAPBF) 
1164 ae 
1165 * History: 
1166 a 
116? = fate Progranner Nadification 


Tue Jan 24, 1984 5:33 pn 


Page 29 


Saturn Assenbler Basic interface «840124. 1345> 
Ver. 3.39/Rev. 206 Utility routines 


1168 

1169 

1170 

1171 

1172 

1173 F348E 2B 

1174 F3490 1B00 
000 

1175 F3497 146 

1176 F349A D7 

1177 F349C 07 

1178 F349E DS 

1179 F34AO 184 

1180 F34A3 146 

1181 F34R6 06 

1182 F34A8 OC 

1183 F34AR 55F 

1184 

1185 

1186 

1187 F34AD 182 

1188 F34B0 146 

1189 F34B3 OR 

1190 F34B5 09 

1191 F34B7 06 

1192 F34B9 184 

1193 F34BC 146 

1194 F34BF 03 


Rises wseoeses 
Rk 12/21/82 NZ 
ah 


FOI IOI TIO TIT TT GOTO 
SORORITIES TTT ITN 


wwe en ww we wow we wee wwe we eee eee we Hee ee 


Updated docunentation 


=RESSTS P= 16-5 # of levels to restore -1 
DO=(5) (=SNAPBF )+(6*5)+3 6 pointers @ 5 nibs+ 3 status 
C=DATO A 
D=C A Restore D[A] 

=RESST+ C=RSTK Pop calling address 
B=C A Save in B[A] 

RESSTs DO=D0- 5 Predecrerent the data pointer 
C=DATO A Read the pointer 
RSTK=C Push address onto stack 
P=P+4 
GONC RESSTs Loop back for next pointer 


x 
* Now fetch status bits and last stack level 
k 


00=D0- 3 

C=DATO A Read status bits 

ST=C Push into status bits 

C=B A 

RSTK=C Push calling address onto stack 
DO=D0- 5 

C=DATO A Read last level 

RTNCC 
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1195 STITLE HPIL error message driver 
1196 JIS III TCG I OTST III IIIT IIT IN 
1197 JIG OIC OI OI OC IS IOC OI IIIT T IIIT I 
1198 ak 
1199 ax Narie: ERROR - Error driver routine 
1200 xk Nane: ERRORX - Error driver for execution errors 
1201 4% Narie: ERRORP - Error driver for parse errors 
1202 *k Narie: ERRORR - Error driver for parse (no RESPTR) 
1203 ak 
1204 ** Category:  PILUTL 
1205 ax 
1206 ** Purpose: 
1207 ae ERRORX is execute error - junps to wferr 
1208 ata ERRORP is parse error - jurips to PARERR 
1209 ak ERRORR 1s parse error - jumps to PRRERR, no RESPIR 
1210 xR 
1211 ak Entry: 
1212 ak P contains the error type: 
1213 ae 0: Parse error (Type in C(0]) 
1214 as 1: Tape error (Type in C[0]) 
1215 aK 2: HPIL error (Type in C{0}) 
1216 aR 3: <undefined> 
1217 aR 4: Aborted 
1218 ak 5: Invalid Device Spec 
1219 ae 6: Non-nuneric data 
1220 ax 7: <undefined> 
1221 ax 8: Out of range value 
1222 ax 9: No Mailbox 
1223 ak 10: <undef ined> 
1224 ae 11: Insufficient Menory 
1225 ak 12: RESTORE I0 needed 
1226 ak 13: <undefined> 
1227 ak 14: <undefined> 
1228 at 15: <undefined> 
1229 ae 
1230 ek Exit: 
1231 ak ERRORX, ERRORP, and ERRORR return to the nainfrane 
1232 a The error # is in C[B], P=0, C{3:2] is HP-IL LEX id 
1233 Be Carry set 
1234 kk 
1235 ** Calls: GETNBX, ATNCHK, GETERR 
1236 *% 
1237 RE USES cas 365 
1238 xt Inclusive: C{W],D0,P 
1239 aE 
1240 *R Stk lvls: 2 (GETERR) {ERRORX, ERRORP, ERRORR use 3} 
1241 x 
1242 XX History: 
1243 kk 
1244 aa Date Progranner Modification 
1245 RK nn nnn en enn enn e ne nnn enn nnn ee ne oo eee ne ee nee ee 
1246 ee 01/24/84 NZ Check P= =eABORT after call to 
1247 a GETERR (if so, need to junp to a 
1248 a different place) 


1249 AR 12/24/82 NZ Updated docurentation 
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1250 ae 

1251 KKK KKK IKKE KEK KEKE KIRA ARIK IIR RIOR RIO OT 

1252 FOI OIRO TOTTI TT TTT TTT TT TTT TT TT ITT 

1253 F34C1 7020 =ERRORX GOSUB ERROR Set up the error nessage 

1254 F34C5 8C00 GOLONG =bSERR (Jump to BSERR in nainfrane) 
00 

1255 x 

1256 x 

1257 F3ACB 854 =ERRORR ST=1 = 4 Don’t restore ntoken 

1258 F34CE 80FO =ERRORP CPEX 0 Put error # in C{0} 

1259 F34D2 20 P= =ePARSE Parse error 

1260 F34D4 7D00 GOSUB ERROR Set up the error nessage 

1261 F34D8 84R ==ERROR! ST=0 = 10 Clear inplied LET flag... 

1262 F34DB 136 CDOEX Error # in DO0[3:0] 

1263 F34DE 8D00 GOVLNG =PRRERR ...and jump to error routine 
000 

1264 x. 

1265 x 

1266 F34E5 890 =ERROR ?P= =ePARSE Is this a parse error? 

1267 F34E8 23 GOYES ERROR1 Yes...error subclass 

1268 F34ER 890 ?P= =eTAPE Tape error? 

1269 F34ED D2 GOYES ERROR Yes...error subclass 

1270 FI4EF 890 P= =ePIL HPIL mailbox error? 

1271 F34F2 8&2 GOYES ERROR Yes...error subclass 

1272 F34F4 880 °PH =eRBORT "Aborted"? 

1273 F34F7 01 ; GOYES ERRORO No...set up the nessage 

1274 

1275 * Aborted out...try to check status 

1276 * 

1277 F34F9 7000 GOSUB =GETNBX Get the last mailbox used 

1278 F34FD 8E00 GOSUBL =ATNCHK Check if ATTN key hit twice 
0 

1279 F3503 401 GOC ERRORO Yes...abort out 

1280 F3506 7£11 GOSUB Geterr Get the error nessage 

1281 F350AR 570 GONC  ERROR- No error...say "Aborted" 

1282 F350D 880 ?PH =eRBORT Error...1s it "Aborted"? 

1283 F3510 AO GOYES ERROR No...set up the nessage 

1284 x 

1285 F3512 20  ERROR- P= =eRBORT "Rborted" 

1286 

1287 * PrePIL...set C{O]=P, C[{1]=ePIL+1 

1288 x 

1289 F3514 80C0 ERRORO C=P 0 Put error # in C(O] 

1290 F3518 20 P= (=ePIL)+1 

1291 F351A 8001 ERROR1 (C=P 1 Error class --> C{1] 

1292 F351E 22 P= 2 

1293 F3520 3100 LC(2)  =LEXPIL 

1294 F3524 20 P= 0 


1295 F3526 02 RTNSC 
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1296 STITLE File spec execute handler 
1297 JOO II II III III I III OI TSOTSI SIS ISOS TSOTSI II SIS SSIS ISS SI SIS SSSI SIS 
4298 JO IO TO OS III IIIT SII IID I III II IIIT TI I OTT IIT I I IIIT TIT TAT IITA 
1299 ae 
1300 ** Nane: FILSPx - File spec execution routine 
1301 aE 
1302 ** Category: POLL 
1303 ax 
1304 ** Purpose: 
1305 at File spec execution poll handler 
1306 ak 
1307 xk Entry: 
1308 an ST(=sSTK) indicates whether this is literal/string 
1309 ak P=0 
1310 aK If literal: 
1311 ax STNTDO points to start of file spec 
1312 at If string: 
1313 TASTK ?-AVNENE) points to the string header in RAN 
1314 k 
1315 AK Exits 
1316 AX Carry XM 
4317 aK ww eee =e 
1318 kx 0 0: Handled: A=first 8,RO=last 2 chars of nane; 
1319 ak D[S]=8; D[X]=loop address; ST8=1 
1320 ak D[3]:bit 3 1s don’t fill in nane, 
1321 ne bit 2 1s Acc ID=16 device 
1322 ae R3=Device ID/Volune 1lbl1; R2=output 
1323 ae fron SETUP (R2(14]=8!) 
1324 am ST{8]=1 (not sinple filenane) 
1325 ai 0 1: Not handled: Nothing (DO restored by POLL) 
1326 kk 1 X: Error: C{3:0] is error code for nferr* 
1327 aX 
1328 ** Calls: SAVEST, DI@AVE, POP1S,D1=SDO0, GETPI+, CHKNAS, ASLC4, 
1329 aR RESTST, TRESDO 
1330 “ 
1331 RE NS G6 s5 wise 
1332 kk Exclusive: A, (€,0,RO, R2,R3, 00,D1,P 
1333 ** Inclusive: A,B,C,0,R0,R1,R2,R3,R4,00,01,P,FUNCxx, STNTRI, 
1334 a STNT01[3:0], ST[sDevOK] 
1335 kK SETS ST(8) if handled 
1336 a 
133? ** Stk lvls: 6 (GETPI+) 
1338 ae 
1339 ** History: 
1340 aA 
1341 mY Date Progranner Modification 
1342 a a aaa alaaiaeaeiatatetteiateiatatel 
1343 AK 96/31/83 NZ Reworked acc ID check to take 
1344 oi less code by renoving check for 
1345 aR Nass storage, NOT Acc ID=16 
1346 ek 06/11/83 N2 Added check of accessory ID to 
134? ae return With a bit indicating nass 
1348 = storage - Acc ID=16, also able to 
1349 ae properly indicate "FILL" bit now 


1350 ae 03/17/83 NZ Nodified code around GETPI+ to 
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1351 &% natch new entry/exit conditions 
1352 ek 02/11/83 NZ Added LOOP check for device type 
1353 tk 12/21/82 NZ Updated docunentation 
1354 us 
1355 JIS ISI OTIS ISAT III II STIS S ISIS IST III TIS SSSI SSSI ISSA 
1356 $I II IIIT II IIIS II IIIS III OT ISI SISSSSSIIS IIS IIIS IIS III III III IIS 
1357 & 

1358 * Necessary to save status...GETPI+ saves then only if calls 
1359 * to EXPEXC are needed for an expression 
1360 x 
1361 F3528 707D =FILSPx GOSUB SAVEST Save status bits in =STSAVE 
1362 F352C 860 ?$T=0 = =sSTK Is this a literal in nenory? 
1363 F352F £1 GOYES FILSx1 Yes...recall start 
1364 & 
1365 * This is a string expression (already on the stack) 
1366 & 
1367 F3531 8E GOSUBL =D1@AVE ( TASTK=AVNEMNE=MTHSTK ) 
00 
1368 F3537 8FOO GOSBVL =POP1S Pop the string 
000 
1369 : 
1370 * Nou 01 @ start of string, ALA] is length 
1371 x 
1372 F353E 137 CDIEX 
1373 F3541 D7 d=C A Tenp save start in D{A] 
1374 F3543 C2 C=C+A A 
1375 F3545 DF CDEX A Nou end in D[A], start in C{A] 
1376 F3547 137 CDIEX Di points to start of string 
1377 F354A 501 GONC = =FILSx2 Go aluays 
1378 Be 
1379 x» 
1380 F354D 8E00 FILSx1 GOSUBL =D1=SD0 Set D1 @ STMTDO 
00 
1381 F3553 143 A=DAT1 A 
1382 F3556 1H” DO=A Point DO to the start of spec 
1383 F3559 14A A=DATO B If first character is tLITRL, 
1384 F355C 3100 LC(2) =tLITRe skip it 
1385 F3560 966 PREC OB 
1386 F3563 50 GOYES FILSx2 Not tLITRL...go on 
1387 F365 161 DO=D0+ 2 tLITRL...skip over it 
1388 . 
1389 * Now DO @ start of literal/D1 at start of string 
13% x 
1391 F3568 8E00 FILSx2 GOSUBL =GETPI+ Get the file nane and device spec 
00 
1392 F356E 427 GOC FILSPs Not tine...don’t handle it 
1393 e 
1394 * Now B,D have everything needed to find the device again 
1395 x 
1396 * Clear unused bits in D{M] 
1397 x 
1398 F3571 AD3 D=0 4 Clear 0[4:3] without changing D[S] 
1399 ¥ 
1400 * Check if file spec was "" or "*" (if so, don’t handle it) 
k 


1401 
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1402 F3574 96F BHO OB Not LOOP or NULL or "" or * 
1403 F3577 CO GOYES FILSx. 

1404 x 
1405 * Check that this 1s NOT "LOOP" 
1406 : 
1407 F3579 2F P= 15 
1408 F357B 30 LC(1) =DsLoop Check if LOOP 
1409 F357E 947 DHE OS LOOP? 
1410 F3581 AG GOYES FILSPn No...don’t handle it 
1411 * 
1412 * This is "LOOP"...not Acc ID=16 or nass storage, don’t fill 
1413 * nare (Carry is CLEAR for LOOP) 
1414 x 
1415 : Set up for the nainfrane to be able to save the device info 
1416 
1417 F3583 2— FILSx. P= 14 
1418 F3585 308 iC(1) 8 Set device code=8 (HPIL) 
1419 F3588 10A R2=C Save output fron SETUP in R2 
1420 F358B AF9 C=B W 
1421 F358E 10B R3=C Save device ID/volune label in R3 
1422 F3591 512 GONC =FILSxl Go if "LOOP" was specified 
1423 
1424 * First check what the accessory ID is... 
1425 x 
1426 F3594 8E0O GOSUBL =CHKNAS Check 1f mass storage 
00 
1427 F359A 4A0 coc FILSx? Either error or not Acc ID=16 
1428 F359D 23 P= 3 
1429 F359F 304 LC(1) 4 This 1s Acc ID=16, fill in nane 
1430 F35A2 551 GONC =FILSx# Go always 
1431 me 
1432 Ke 
1433 2 
1434 * Check if the accessory ID is "MASS STORAGE" 
1435 
1436 F35A5 880 FILSx? ?P# =ePIL 
1437 F35A8 15 GOYES FILSPe Error...not HPIL error 
1438 F35AR 80FO CPEX 0 First check if Device Type error 
1439 F35RE 880 ?PH =eDTYPE 
1440 F35B1 44 GOYES FILSPE Error 
1441 x 
1442 * This IS a device type error... 
1443 : 
1444 F35B3 23 FILSxl = P= 3 
1445 F35B5 308 LC(1) 8 
1446 F35B8 AS? FILSx# D=C P Set the "Don’t fill filenare" bit 
1447 F35BB 2 P= 15 
1448 F35BD 308 LC(1) 8 
1449 F35CO 20 P= 0 
1450 x 
1451 * Device 8 18 HP-IL 
1452 z 
1453 F35C2 AC? p=C S First 8 chars in A[W] 
1454 F35C5 114 A=R4 


1455 F35C8 &£00 GOSUBL =ASLC4 Last 2 chars in A[3:0] 
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1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 


F35CE 


F35D1 


F35D5 


F35D9 
F350 
F35DF 


F35E1 
F35E4 
F35E6 
F35E9 
F35E8 
F35EF 
F35F1 
F35F3 


F35F5 
F35F9 
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First 8 chars in A, last 2 in RO 


* Restore the caller’s status first 
x 


4 
120 AROEX 
72EC GOSUB 
& 
* Nou restore 
* 
79F D GOSUB 
x 
* $T(8] neans 
i 
858 ST=1 
821 xN=0 
03 RTNCC 
x. 
ke 
890 FILSPs ?P= 
51 GOYES 
870 *ST=4 
01 GOYES 
78CC FILSPn GOSUB 
21 -DIDST1— P= 
OD P=P-1 
00 RTNSKN 
ih 
bes 
80FO FILSPE CPEX 
6BEE FILSPe GOTO 


RESTST 


DO (PC) following the device spec 


TRESDO 


(Saved by GETPI+) 


this 1s not a sinple filenane... 


8 


=eNORAN 
FILSPe 
=sDevOK 
FILSPe 
RESTST 
1 


0 
ERROR 


Be sure XM is zero - handled 
Return (Handled, OK) 


Did I run out of nenory? 
Yes...error 

Was the device spec OK? 

Yes... loop error 

Restore status bits from =STSAVE 


Clear carry, P=0 
Return carry clear, XM set 


Return with C[3:0]->error #,RTNSC 
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1485 STITLE Store device ID handler 
1486 JOSIE II III UII IO TT 
4487 JOO III III OIC COT OTK 
1488 wx 
1489 &* Nane: hDIDST - Store device ID info (fron R2,R3) 
1490 *% 
1491 ** Category: POLL 
1492 kK 
1493 ** Purpose: 
1494 kk Handler for device ID storage (D1 @ destination point) 
1495 wx 
1496 Ae Pnithy: 
1497 kk R2 contains C(W] from SETUP 
1498 ak (R2[14] is the device code fron FILSPx) 
1499 ax R3 contains the device ID/volune label 
1500 xx 
1501 kk Exit: 
1502 xk P=0 
1503 ee Carry clear: 
1504 Kk XM=0: Device ID saved @ D1 
1505 x XN=1: Not HPIL (No response) 
1506 KK (If error, takes direct error junp to ERRORX) 
150? ax 
1508 kX Calls: SNAPRS, SAVEIT 
1509 ax 
1510 Kk Uses....... 
1511 kk Exclusive: B,C, P 
1512 ss Inclusive: A,B,C,D,R2,R3,D0,D1,P (If not handled, only C,P) 
1513 : 
1514 ** Stk lvls: 4 (SAVEIT) 
1515 KA 
1516 ** History: 
1517 aR 
1518 xe Date Progranner Modification 
1519 ee 
1520 Kk 01/24/84 NZ Moved DIDST1 into FILSPx to make 
1521 ax roon for a GOLONG (needed 2 nibs) 
1522 KK 04/15/83 NZ Moved first SNAPRS call to save D 
1§23 aK in case not handled (FPOLL needs 
1524 ax D[A] to be around if not handled) 
1525 kK 04/01/83 SC Changed to FPOLL, added SNAPRS 
1926 = calls to set up pointers 
1527 Kk 12/21/82 NZ Updated docunentation 
1528 xx 
1529 FORO ROTOR tO IO IO OOOO OI GOO IOI OI tO ok 
1530 FOR OOOO RRO OI OOO OOOO TOI OIRO IOI TOI: 
1531 F35FD =hDIDST 
1532 F35FD 141A C=R2 
1533 F3600 8ODE P=C 14 
1534 F3604 888 ?PH 8 Is this an HPIL assignrent? 
1535 F3607 8E GOYES DIDST1 No... leave it alone 
1536 F3609 8E00 GOSUBL =sNAPRS Restore D1 fron save area 
OO 
1537 F300F 118 C=R3 
1538 F3612 AFS B=C W 
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1539 F3615 117A 
1540 F3618 8E00 
00 
1541 F361E 821 
1542 F3621 500 
1543 F3624 6C9E 
1544 X- 
1545 xe 
1546 F3628 8CO0 Geterr 
0 


1847 F362E 


C=R2 
GOSUBL =SAVEIT 


xNM=0 

RTNNC 

GOTO  ERRORX 
GOLONG =GETERR 


END 
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Save the inforration @ (D1) 
Make sure XIt=0 


If no carry, all OK...done 
If carry, error exit 


Junp to get error nessage 
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ASLC4 

ATNCHK 
ATNFLG 
BDISPI 
CHKASN 
CHKNAS 
CHKSE1 
=CHKSET 
=CHKST+ 
CHKSTS 
CSLC5 

CSRC5 

=01=DSP 
=01=DST 
=01=DSX 
D1=SD0 
DIG@AVE 
DIDST1 
DSPCHX 
DSPSET 
DispOK 
DsLoop 
=ERROR 

=ERROR! 
ERROR- 
ERRORO 
ERROR1 
=ERRORP 
=ERRORR 
=ERRORX 
Except 
FIBOFF 
FILSPE 
FILSPe 
FILSPri 
FILSPs 
=FILSPx 
FILSx# 
FILSx. 
FILSx1 
FILSx2 
FILSx? 
FILSx1 
FNDMBX 
FUNCDO 
FUNCD1 
FUNCR1 
GETERR 
=GETHSS 
GE TMBX 
GETPI+ 
GETST- 
Geterr 
I/OALL 
T/ORES 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Robs 
Rbs 
Ext 
Ext 
Ext 
Rbs 
Abs 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Rbs 
Rbs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 


995910 #F3246 
995806 #F31DE 
995829 HF31F5 


995969 #F3281 
995978 #F328A 
995987 #F3293 


99684? #F35EF 


996581 #F34E5 
996568 HF34D8 
996626 HF3512 
996628 #F3514 
996634 HF351A 
996558 #F34CE 
996555 #F34CB 
996545 #F34C1 


996853 #F35F5 
996857 HF35F9 
996843 #F35EB 
996833 #F35E1 
996648 #F 3528 
996792 #F35B8 
996739 HF 3583 
996685 #F 3540 
996712 #F 3568 
996773 #F35A5 
996787 #F35B3 


995791 #F31CF 


996904 #F 3628 


1455 
1278 
180 
279 
271 
1426 
772 
744 
752 
369 
431 
433 
794 
798 
802 
1380 
136? 
1478 
802 
435 
247 
1408 
1266 
1261 
1285 
1289 
1291 
1258 
125? 
1253 
617 
432 
1483 
1484 
147? 
1473 
1361 
1446 
1417 
1380 
1391 
1436 
1444 
81 
1025 
1034 
1076 
85 
688 
1277 
1391 
605 
1546 
70 
2 


787 
602 
87 


96 
113 
273 


1535 
798 


1253 


1281 
1273 
1267 


1543 


1440 
1437 
1410 
1392 


1430 
1403 
1363 
377 
142? 
1422 

36? 
1043 
1050 
1087 
1546 

591 


1280 


269 
244 
287 


1260 


1279 
1263 


1474 


1386 


589 
1058 
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509 


1484 


1271 


1476 


1065 
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I/ores 
IS-DSP 
KEYPTR 
LEXPIL 
LOOPST 
LoopOK 
MBOX” 
Of fed 
PARERR 
PILCN1 
=PILCNF 
PILCSO 
PILCS3 
PILCS4 
=PILCST 
PILMOS 
=PILMLP 
PILMRC 
PILPO1 
PILPO2 
PILPO3 
=PILPOF 
PILSOO 
PILSO7 
PILS20 
PILS23 
PILS50 
PILS9+ 
=PILSRQ 
=PILWKP 
PILWKs 
=PILWNK 
PILWNx 
PILxxx 
POP1S 
PUTC 
PUTC+ 
PUTCN 
PUTE 
=Pute 
REQS10 
REQS30 
REQSER 
=RESST+ 
=RESSTS 
RESSTs 
=REST1A 
=REST2C 
=RESTDO 
=RESTD1 
RESTOR 
=RESTRT 
RESTRs 
=RESTST 
RESTs4 


Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Rbs 
Abs 
Abs 
Ros 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 


995371 #F302B 


995233 HF2FAI 
995217 HF2F91 
995031 #F2ED7 
995066 #F2EFA 
995101 #F2F1D 
995031 #F2ED7 
995577 HF30F9 
995559 #F30E? 
995601 #F3111 
995419 #F305B 
995459 #F3O83 
995465 #F3089 
995378 #F3032 
995627 #F312B 
995605 #F3115 
995652 #F3144 
995673 #F3159 
995766 #F31B6 
995787 #F31CB 
995609 #F3119 
995353 #F3019 
995357 #F301D 
995176 HF2F68 
995213 #F2F 8D 
995334 #F3006 


995963 #F327B 
995714 #F3182 
995727 #F318F 
995680 #F3160 
996508 HF349C 
996494 HF348E 
996512 #F34R0 
996222 #F337E 
996242 #F3392 
996089 HF32F9 
996108 #F330C 


995469 #F308D 
995526 #F30C6 
996023 #F3287 
995552 #F30E0 


Table 


ft @ § F 8 1 


] ' ¢ @€ @ # 4 


HK2 
258 
641 
1293 
111 
512 
583 
502 
1263 
240 
20 
65 
80 
92 
59 
504 
499 
515 
366 
38? 
392 
43 
576 
566 
588 
594 
647 
653 
569 
290 
294 
166 
186 
282 
1368 
754 
382 
604 
791 
791 
611 
621 
602 
117? 
1173 
1179 
366 
973 
918 
925 
253 
429 
448 
850 
461 


232 
441 
347 
649 


233 


89 


238 
503 


505 
388 
370 
353 


575 
571 
596 
618 


566 


259 


168 
277 


757 


616 
§93 


651 
1183 


343 
442 
1460 
465 
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265 
794 


499 


376 
361 
577 


626 
608 


261 
179 


760 


443 


14?7 
457 


268 


368 


631 


763 


444 
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780 


5:33 pn 


Page 39 


Saturn Asserbler Basic interface <840124.1345> Tue Jan 24, 1984 5:33 pn 
Ver. 3.39/Rev. 26 Synbol Table Page 40 


=RTNCCX Abs 995170 HF2F62 - 129 186 291 392 515 653 
RTNCCx Abs 995353 #F3019 - 291 272 276 

SAVEOr Abs 996060 #F32DC - 94 922 945 952 970 
SAVEOx Abs 996212 #F3374 - 3960 978 

=SAVEITA Abs 996173 HF334D - 948 

SAVE1r Abs 996082 HF3ZF2 - 913 929 

=SAVE2ZC Abs 996193 #F3361 - 955 

=SAVEDO Abs 996045 HF32CD - 900 

=SAVED1 Abs 996067 HF32E3 - %9 

SAVEIT Ext - 1540 

=SAVEST Abs 995996 HF329C - 839 1361 

=SAVST+ Abs 996451 #F3463 - 1124 

=SAVSTS Abs 996442 HF345A - 1122 582 

SAVSTs Abs 996470 HF3476 - 1131 1135 


SNAPBF Ext - 1123 1174 

STMTDO Ext - #2 920 935 942 
STMTD1 Ext - 911 92? 

STMTRO Ext - 950 968 

STMTR1 Ext - 958 976 

STSAVE Ext - 841 852 

=SWAPDO Abs 996127 HF331F - 932 

TERCHR Ext - 123 


=TRES2C Abs 996422 #F3446 - 1084 
=TRESDO Abs 996306 #F33D2 - 1041 1464 
=TRESD1 Abs 996325 HF33E5 - 1048 
TSAVOr Abs 996277 HF33B5 - 1027 1045 
TSAVOx Abs 996412 HF343C - 1078 1089 
TSAVir Abs 996299 HF33CB - 1036 1052 
=TSAV2C Abs 996393 #F3429 - 1073 
=TSAVDO Abs 996262 HF33A6 - 1023 
=TSAVD1 Abs 996284 RF33BC - 1032 
=TSWAD1 Abs 996344 HF33F8 - 1055 
WNKOO Abs 995194 HF2F7R - 178 177 


bPILAI Ext - 267 
bPILS¥ Ext - 69 231 
bDSERR = Ext - 1254 
bSTAKQ Ext - 264 
eABORT Ext - 607 1272 1282 1285 
eDTYPE Ext ~ 1439 
eNORAN Ext - 1473 
ePARSE Ext - 1259 1266 
ePIL Ext - 1270 129% 1436 
eTAPE Ext - 1268 
fFIDORM Ext - 635 
FIPDWN Ext - 359 
=hDIDST Abs 996861 #F35FD - 1531 
hsRQSR Ext - 592 
nPDLOP Ext - 381 
nSETRI Ext - 759 
nSETAL Ext - 756 
nSETOIT Ext - 773 
nSETD1 Ext - 762 
mSETIT Ext - 753 
mSTSTC Ext - 603 


oINHS = Ext - 689 691 
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oOUTHS Ext - 741 743 
sCONTR Ext - 375 
sDATAV Ext - 625 
sDIAsr Ext - 176 574 
sDevOK Ext - 1475 
sFLAG? Ext - 360 636 
sINTR Ext - 615 
SNAPRS) Ext - 1536 
SsRNOTE Ext - 630 
sSTK Ext - 1362 
tLITRL Ext - 1384 
vDEVID Ext - 768 


844 = 855 


’ xxxxST Abs 996014 #F32RE 
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Input Paraneters 
Source file nane 1s NZ&BIF::MS 
Listing file nane 1s NZ/BIF:TI:ML 
Object file nane is NZABIF:TI:NS 


111111 
012345678901 2345 
Initial flag settings are 
‘Errors 
None 


Saturn Asseribler Neus 
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WOn ND Wr 


10 
1 
12 F362E 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
44 
42 
43 
44 
45 
46 
47 
48 
49 F362E 


50 F3630 8D00 


51 F3637 


20 
000 


ee ee ee ee Oe Oe 
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N N 22222 & III 00000 6888 
N ON Zz 8&8 I 0 08 8B 
NN ON Z &8& T 0 O08 8B 
NNN Z 8 TI 0 0 B6BBB 
N NN 2 &&& I 0 086 8B 
N N 2 & & 1. 20 10> By. 3B 
N N ZZzZ72Z 8& & III 00000 BBBB 


TITLE I/O Buffer routines <830927.1450> 
ABS #F362E TIZHP6 address (fixed) 


FOI III III I IOI ITT RTT I III ITI IOI TIKI IIIT IIIT IK 
FOOT OI I TT TUTTO TIT TIO 


xx 
ax 
xx 
xx 
xx 
xk 
xk 
wx 
xx 
ae 
ok 
xx 
xk 
ak 
x 
xx 
xk 
a 
aa 
wx 
x 
wm 
aK 
xx 


Purpose: 


Entry: 


Exit: 


Nare: I/OFSC - Find a scratch 1/0 buffer (#COO->HFFF) 
Category: BUFUTL 
File I/0 scratch buffer (Return ID of first unused 
buffer) 
Nothing 
P=0 
Carry clear: C[X] is buffer ID 
Carry set: no buffer available (C[X]=0) 
Calls: I/OFND 


Inclusive: A[W],C{X],D1,P 
Stk lvls: 1 (I/OFND) 


** History: 


xx 
xx 
ax 
xe 
a 
aK 
ax 


Date Progranner Modification 


09/27/83 NZ Changed documentation to reflect 


current routine (IOFSCR) 


01/04/83 NZ Updated docunentation 


SOOO OI III OOOO ICIS IO IOI IO 
SOOO ROI ROO OOOO OOO III 


=I/OFSC P= 0 


GOVLNG =IOFSCR 
END 


Saturn Assenbler I/O Buffer routines <830927.14 
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=I/OFSC Abs 996910 #F362E - 49 
IOFSCR Ext * 50 
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Input Paraneters 
Source file nane is NZ&I0B::MS 
Listing file nane is NZ/IOB:TI:NL::-1 
Object file nane is NZ2ZIOB: TI:NS::-1 


111114 
012345678901 2345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 


Saturn Asseribler 
Ver. 3.39/Rev. 2306 


Wonnm &wrn— WOWNMHNMNH WMH] TCWONAHAMNHW | CWOnNnonfBwn — 


SH HLHH5h 6H 6 5 
DOwnNAN Hw - oO 


nn 
OQ. 


mann on oo 
Nb wT — 


F 3637 


ee ee Oe Oe Oe 


ak 
ax 
ak 
ak 
ak 
xk 
ae 
ak 
ak 
ak 
xx 
aK 
a 
ak 
x 
ax 
xk 
ak 
ak 
xk 
ak 
xx 
ax 
ak 
xk 
ak 
aK 
a 
ax 
xx 
ak 
ak 
ak 
wn 
ax 
xk 
KK 
as 
a 
a 
aK 
ae 
ak 
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N WN 22772 & DODD SSS. PPPP 
NN z 8&8 DDS S$ P P 
NN ON z && 0 BS nn 
NNN Z & D D SSS PPPP 
N NN 2 &&& OD OD > P 
N N 2 & & DDBS S$ P 
N WN 2227272 8& & DODD SSS. P 


TITLE Display driver <831108.0941> 


RBS #F 3637 TIZHP6 address (fixed) 
JOTI II I III TOOT IA III IIIT OR IIS TIO TI III III TTT TAT IAI IK 


FOO OOO IO TO TOIT TIC 


Narie: BDISPJ - HPIL Character-oriented display routine 


Category:  PILI/O 
Purpose: 
Routine to display characters on HPIL devices 


Entry: 
A[B] is a data byte 
HEX node 


Exit: 
A[B] is the data byte fron entry 
Display status bits restored 


HEX node, carry clear 
Calls: CHKASN, SETLP, FNDMBX, START, GTYPE,MTYL, FINDA, 
GETNBX,WRITIT, SENDIT, SENDI+,PUTD,PUTX,END, 
MOVCUR , MOVCU+, DO=CUR, DO@CUR, Clear’, SendBf, 
BLANKC, LCleft, DSPCL? 
Uses....... 
Exclusive: A[15:2],B(W],C{W],D[A], DO,01,P, (ST) 
Inclusive: A[15:2],B[W],C{W},0[15:13],0[5:0],00,01,P, (ST) 
Stk lvls: 4 (START) 
NOTE: 
Does not alter A[B], returns (DSPSTA+3) in STatus bits 
History: 
Date Progranmrer Modification 
09/28/83 NZ Updated docunentation 
06/24/83 NZ Fixed bug of losing <Cr> if DISP 
device 1s a printer device 
05/18/83 NZ Changed return fron GTYPE to 
riatch new exit conditions of sane 
04/14/83 NZ Added check to ignore NULL char 
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56 kk 02/16/83 NZ Renoved Talker code (doesn’t work 
57 ax with nultiple loop displays) 

58 tk 12/09/82 NZ Added docunentation 
59 ak 
60 23 III III I OTIS TTI III ISIS ITI IIIS SII SI IOS SSIS SII IS IIS 
61 $ IKI IDI III IIT I SIT IIIS III ID ISI SIS SI SSIS ISIS SOS II II SSI SSS SSS SSS 
62 Esc EQU #1B <Escape> 
63 Bs EQU #08 <Backspace> 
64 & 
65 RepCur EQU 0 Status bit...Replace the cursor 
66 5 
67 Delete EQU 4 Status bit...Delete character 
68 CurLft EQU 5 Status bit...Cursor direction 
69 SetCur EQU 6 Status bit...Set vs nove cursor 
70 Protec EQU SetCur Status bit...Hit protected char? 
71 & 
72 te 
73 he 
74 F3637 =BDISPJ 
75 F3637 1800 DO=(5) =IS-DSP IS assignnent 
000 
76 F363E 15€6 C=DATO 7 Read it in... 
77 F3642 7000 GOSUB =CHKASN Check if assigned... 
78 F3646 560 GONC DISPOO Assigned! 
79 F3649 6683 DISPoF GOTO DISPOF This is NOT assigned...return 
80 t 
81 k 
82 F364D 1A0O DISPOO DO=(4) =DSPSET Status nibble for display! 
00 
83 F3653 OB CSTEX 
84 F3655 1562 C=DATO XS Read in status... 
85 F3659 OB CSTEX 
86 F365B 860 ?$T=0 =Loop0K 
8? F365E BE GOYES DISPoF Loop has been offed...exit nou! 
88 F3660 D7 D=C A Put address in D[A] for START 
89 F3662 94E *cHO |S 
%® F3665 32 GOYES DISPNS ...mot current...set it up! 
91 F3667 870 ?*ST=1 =DispOK Currently set up? 
92 F366A FO GOYES DISPO2 Yes...check if mailbox is there 
93 
94 * Display is NOT set up...check if this is a new assignrient 
95 . ’ 
96 * (New assignnents have BOTH ST(=Wallby) and ST(=Printr) true) 
97 x 
98 F366C 860 *ST=0 =Nallby Not HP82163A? 
99 F366F C1 GOYES DISPNO No...this is NOT a new assignnent 
10) F3671 860 ?$T=0) «-=Printr Not printer? 
101 F3674 74 GOYES DISPNO No...this 1s NOT a new assignrient 
102 F3676 511 GONC DISPNS Go always...new assignnent 
103 i 
104 he 
105 * 
106 * Now get back the correct loop for the display 
* 


107 
108 F3679 7000 DISPO2 GOSUB =SETLP SETUP sets C[S] to current mbox 
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109 
110 
111 
112 
113 
114 
115 
116 
11? 
118 
119 
120 
121 
122 
123 
124 
125 
126 
12? 
128 
129 


1% 
131 
132 
133 
134 
135 
136 


13? 
138 
139 
149 
141 
142 
143 
144 
145 
146 
14? 
148 
143 
150 
151 
162 
153 
154 
156 
156 
182 
158 
159 
160 
161 


F367D 
F 3681 
F 3684 


F3688 


F 3688 


F 3688 
F368D 


F368F 


F3695 
F 3698 
F369B 


F369D 
F36A3 


F36A6 
F36A9 
F 36AC 
F 36ARE 
F368 
F 3684 


F 3686 
F36B9 
F36BC 


F36BE 
F36C1 


F36C4 


7000 
460 
680 


850 


D6 
06 


8E00 
00 
424 
860 
73 


8E0O 
00 
443 


840 
840 


301 
302 
C4 


302 
306 
80 


$50 
501 
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GOSUB  =FNDIBX 
GOC DISPNS 
GOTO DISPOK 


ke 
ke 


DISPNS ST=1 =Disp0K 
t 


Page 3 


FNDMBX sets MBOX” to current ribox 
If carry, not found...not set up? 


Reuse this status as a flag! 


* If ST(DispOK)=1, then need to check accessory ID here! 
k 


DISPNO 
i 


* Loop is NOT set up for DISPLAY IS! 
t 


& Save character on RSTK before calls to START, GTYPE, etc 
x 


C=A A 
RSTK=C 


Push the character 


* Call START, with device specifier in D[A]... 
i 


GOSUBL =START 


GOC —-DISPN. 

28T=0 =DispOK 

GOYES DISPn4 
x 


Set up Loop 


Error 
Are the status bits OK already? 
Yes...continue! 


* Get the accessory ID of the device in A[B] 
: 


GOSUBL =GTYPE 
GOC DISPN. 


+ Fe Oe 


ST=0 = =Wallby 
ST=0 = -=Printr 
P= 1 

LCHEX 1 

7A=C OP 

GOYES DISPN1 


LOHEX 2 
eAHT OP 
GOYES DISPn3 

Printer class device! 


ST=1 =Printr 
GONC DISPn4 


rk 
ke 


DISPn3 P= 0 


Returns Acc Id in A[B] 


Error if carry 


If no response, then A[B} is zeroed by GTYPE 


Nou set DSPSET true, set up other bits of DSPSET using B[B], 
then restore all and return 


Preclear these statuses! 


Mass storage class... 
Error tlt 
Printer class... 


Is this a printer class device’ 
No...check 1f HP82163A 


Go alnays! 
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162 
163 
164 
165 
166 
167 
168 
169 
170 


171 
172 
173 


174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 


192 
193 
194 
195 
196 
197 
198 
193 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
va 
213 


F36C6 
F36CR 
F36CD 
F36CF 
F36D2 


F36D2 


F 3608 
F36DB 
F36DE 


F36E4 
F36E6 
F36EA 
F36EC 
F36FO 
F36F2 
F36F6 
F36F8 
F36FR 
F36FC 


F3700 
F3702 
F3704 


F370B 
F370F 
F3?11 
F3714 
F3716 
F3718 
F371B 
F371E 
F3721 
F3725 


F3729 


F372D 
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HP82163R accessory id 
Not an HP82163A 


* Now set up the display as a listener (Acc ID in A[B])) 
k 


3103 LCHEX HW 
966 RAC OB 
50 GOYES DISPn4 
850 ST=1 =Wallby 
DISPnA 
x 
8E00 GOSUBL =MTYL 
ey 
472 DISPN. GOC  DISPN1 
850 ST=1 _ =DispOK 
1900 DO0=(4) =DSPSET 
0 
OB CSTEX 
1542 DATO=C XS 
08 CSTEX 
1900 DO=(2) =IS-DSP 
DB i 
15C2 DATO=C 3 
07 C=RSTK 
DA A-C =A 
20 P= 0 
6030 ; GOTO  DISPOK 
x 
k 
: If here, had a loop error.. 
07 DISPN1 C=RSTK 
DA A-C OA 
1B00 DO=(5) (=IS-DSP)+3 
000 
1562 C=DATO XS 
08 CSTEX 
85B ST=1 11 
OB CSTEX 
F2 CSL A 
182 DO=D0- 3 
AB2 C=O =X 
A3E C=C-1 X 
15C3 DATO=C 4 
6552 ; GOTO  DISPEX 
ko 
60A2 GOTO  DISPOX 


DISPOQx 
Ko 

a 

x 


* Loop is set up now! 
x 


DISPOK 
k 


(Character 1s on RSTK) 


Error 
Display set up 


Write it back out 


Write out the address! 


Restore the character to A[B] 


Clear DISPLAY IS 


Restore character from RSTK 
Status nibble... 


Set "OFF"ed flag 


Move to C{3] 
Point to IS-DSP 


C[X]=FFF 


OFF the display 
Done! 


Done, don’t check carry 


* First ensure that not in an escape sequence! !!! 
x 
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214 


215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
2% 
231 
232 
233 
234 
235 
236 
237 
238 


239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
243 
250 
251 
282 
263 
254 
265 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 


F372D 


F3734 
F3738 
F373B 


F373E 
F3741 


F3743 
F3746 
F3748 
F374B 


F374F 
F3752 


F3759 
F375B 
F375E 
F3760 
F3763 
F3765 
F3768 
F376R 
F376D 
F376F 
F3772 
F3774 
F377? 
F3779 
F377C 
F377E 
F3781 
F3783 


F378? 


1B00 
000 
15E0 
AOE 
4B4 


870 
8E 


90A 
% 
846 
6ES2 


844 
8FOO 


34 
6C0 
44 
BDO 
05 
890 
F4 
390 
E4 
990 


211 


8C0 
40 
201 
oO 
6DF 1 


968 
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00=(5) =ESCSTR Escape status 
C=DATO 1 Read it... 
C=C-1 P ... decrenent it... 
coc DISPnE Not escape 
x 
* This is in an escape sequence...uhat do I do? 
x 
x 
* Check if printer...if so, return 
x 
?ST=1 -=Prantr 
GOYES DISPOx Exit, restore all levels 


* Not a printer...continue 
x 


?C=0 
GOYES 
Dspsnd0 ST=0 
: GOTO 


* Escape node 
x 


DISP1  ST=0 
x 


Pp 
DISP1 

SetCur 
DspSn0 


Delete 


GOSBYVL =FINDA 


CON(2 
REL(3 
CON(2 
REL(3 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3 


nee ee eee ee” 


Mee ee 


DISPnE ?A=0 


3 
F 
4 
FarLft 
0 
E 


\C\ 


RArrouw 


\D\ 
LArrow 
\P\ 
DelChr 
\o\ 
DelChr 
\N\ 
InsChr 
\K\ 
DelLin 


scSnd 


B 


Is it "escape"? 

Yes...check further 

No...send the character without 
repositioning the cursor 


Assune NOT a delete until proven 
otherwise!!! 

A[B] 1s value 

Right arrow 

Left arrow 

Delete character 

Delete character with wrap 
Insert char with wrap 

Delete through end of line 
Cursor far right 


Cursor far left 


Others... 
Send <Esc> <character> & return 


If <Lf>: Send it innediately, independent of current node 

If <Cro: If (not Printr): send immediately (Don’t set cursor) 
else: transmit buffer, then <Cr> 

If chr$(0): Ignore it entirely if not in escape sequence 

If <anything else> and <Printr>: return without action 


Is A[B]=07 
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267 F378A FY GOYES DISPOx Yes...exit. 
268 F378C 31% LCHEX OA <Lf> 
269 F3790 962 A=C OB 
270 F3793 5B GOYES Dspsnd Send it! 
271 F3795 300 LCHEX D Preload <Cr> 
272 F3798 870 ?S$T=1 =Printr 
273 F379B BO GOYES DISP.1 Check further in printer code 
274 F379D 962 7A=C OB Is it a <Cr>? 
275 F37RO 8A GOYES Dspsnd Yes...don’t reposition the cursor 
276 F37R2 6051 ; GOTO DBISP2 No...process the character 
277 - 
278 he 
279 F37A6 966 DISP.1 7RHC OB Is it a <Cr>? 
280 F37A9 08 GOYES DISPOx No...Exit, no action! 
281 F37AB 7BF3 GOSUB Clear? Is the clear flag set? 
282 F37AF 489 COC Dspsn0 Yes...send only the <Cr> 
283 x 
284 * This is a printer, and I got a <Cr>... 
285 * need to send whole buffer!!! 
286 % 
287 F37B2 1900 DO=(2) (=DSPBFS)-2 (Clear? leaves DO @ DSPSTA+3) 
288 F37B6 31F5 LC(2) 95 
289 F37BA 161 DISP.2 DO=D0+ 2 
290 F378D 14A A=DATO B 
291 F37CO 968 7A=0)— iB 
292 F37C3 80 GOYES DISP.3 End of buffer (Logical)! 
293 F37C5 AGE C=C-1 8 End of buffer (Physical)? 
294 F37C8 SIF : GONC DISP.2 No...try next character 
295 
sae * Now DO points to first "non-character" 
97 & 
298 F37CB AFO DISP.3 A=0 W Clear for ASRB below 
299 F37CE 132 ADOEX 
300 F37D1 3400 LC(5) =DSPBFS 
000 
1 F37D8 135 D1=C Set D1 @ DSPBFS also 
We F370B ER A=A-C OA 
#3 F3700 81C ‘ ASRB Now ALA] is # of characters 
304 
5 * Set up for HPIL transfer 
6 & 
37 F37EO 7000 GOSUB =GETNBX Restore the HPIL nailbox to DO 
308 F37E4 8E00 GOSUBL =NRITIT Send the buffer 
00 

309 F37EAR 20 P= 0 
310 F37EC 310 LCHEX OD Restore the <Cr> 
311 F37FO DA A=C A 
312 F37F2 460 GOC DISPEx Exit if error! 
313 F37F5 7BC3 GOSUB Putd Send it to the printer 
314 F37F9 6181 DISPEx GOTO DISPEX 
315 x. 
316 ig 
317 x 
318 * Code to check if Insert or Delete! 

x 


319 





ef 
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320 
321 
322 
323 
324 
325 
326 
32? 
328 
329 
330 
331 
332 
333 
334 


336 


336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 


F37FD 


F37FD 
F 3800 
F 3804 


F 3808 


F 3808 
F380C 


F3814 


F 381A 
F381D 


F 3821 


F 3821 
F3825 
F 3828 
F382B 
F382D 
F 3830 
F 3833 
F383? 


F 3838 


F383B 
F383E 


F 3841 


F 3841 
F 3844 
F 3848 
F 384A 
F 384D 
F 3850 
F3852 


854 
7BD1 
6671 


7000 
35B1 
1581 
8E00 


4ED 
6R2F 


75A3 
14€ 
36A 
CO 
845 
846 
7102 
6291 


855 
51F 


845 
7283 
DA 
846 
876 
EO 
7473 
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* Delete character (Either HP82163A or “other') 
k 


ST=1 
GOSUB 
GOTO 


xe 
x. 


InsChr 
x 


* Insert character (Sequence 
k 


GOSUB 
LCHEX 


GOSUBL 


GOC 
GOTO 


xe 
xe 


RArrou 
k 


* Right arrow! 
x 


GOSUB 

C=DATO 

?C=0 

GOYES 

$T=0 
Rrrow ST=0 

GOSUB 
DISPox GOTO 
t. 


aL 


LArrow 
x 


* Left arrow! 
k 


$T=1 
GONC 
ke 
ke 


FarkRt 
* 


Delete 
SendbBf 
DISPEX 


=GETMBX 
1B511B 


=PUTX 


DISPEx 
Dspsnd 


DO@CUR 
B 

B 

DISPox 
Curlft 
SetCur 
MOVCUR 
DISPOX 


Curlft 
Rrrow 


* Cursor far right! 


x 
ST=0 
Farxx  GOSUB 
A=C 
ST=0 
FarRt1 ?ST=1 
GOYES 
GOSUB 


Curlft 
DO@CUR 
A 

SetCur 
CurLft 
Farkt2 
DO@CUR 


This IS a delete! 
Send to end of line 
Restore, etc. 


to turn on node) 


Get back the mailbox first 
Esc Q Esc 


Error if carry 
Now send the current char 


At end of buffer NOW! 
This 1s NOT just a set, but MOVE! 


Not interrupted (For sure!) 


Go always! (FINDA: RTNCC) 


This is cursor RIGHT 

C[B] is current cursor value 
Save cursor value in A[B] 

This 1s NOT just a SET, but MOVE! 
Is this LEFT? 

Yes...don’t check for end! 
No...check 1f at end already 
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373 F 3856 14E 

374 F3859 96R 

375 F385C CO 

376 F385E 850 

377 F3861 7692 

378 F3865 57E 

379 F3868 31% 

380 F386C 865 

381 F386F 40 

382 F3871 £6 

383 F3873 7863 

384 F3877 148 

385 F387R DA 

386 F387C 6041 

387 

388 

389 F 3880 

39 F3880 855 

391 F3883 50C 

392 

333 

394 

395 

396 

397 F3886 8FOO 
000 


398 

339 

400 

401 

402 F388D 400 
403 F3890 10 
404 F 3893 14€ 
405 F3896 96E 
406 F3899 BI 
407 F389B 7000 
408 F389F 7013 
409 F38A3 4C0 
410 F38A6 31A4 
411 F38AR 7613 
412 

413 

414 

415 F38AE D4 
416 F38B0 6ACO 
417 

418 

419 

420 

421 

422 F38B4 AF2 
423 F38B7 DB 
424 F38B3 EE 
425 F38BB 81E 
426 F38BE £6 
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C=DATO B 
7C=0 = o#B 
GOYES Farkt3 Already at far right of buffer! 
FarRt2 ST=1  RepCur Reposition the cursor at new loc. 
GOSUB MOVCU+ 
GONC =Farkt1 Moved it...tove it again! 
FarRt3 LC(2) 3 Cursor far right! 
?$T=0 CurLft Is this RIGHT? 
GOYES FarEnd Yes...exit! 
C=C+1 A No... (LEFT=4) 
FarEnd GOSUB DO=CUR 
DATO=A B Restore the cursor value 
A=C A 
GOTO DISPOX Finish it up! 
ke 
k. 
FarLft 
ST=1 CurLft 
GONC = Farxx Go always! 
k. 
x. 
k 
* Delete through end of line 
x 


DellLin GOSBVL =SCNRT 


* Check if no protected fields after this...if none, send 
* <Esc> J (Clear to end of screen) 
k 


GOC Dello If carry, reached end of buffer! 
DO=A 
C=DATO B Read in indicated character 
7C#0.—s#B 
GOYES Deltt Protected field! 
DelLO  GOSUB =GETMBX 
GOSUB PUTEsc Send Esc 
GOC Delexc Carry exit 
LCASC \J\ 
GOSUB Putd Send the "J" 


x 
* Following tuo lines can be packed to one by GOTO DelEx 
x 


A=B R Copy the "K" back! 
Delexc GOTO DISPEX 
ke 


xe 
x 


* Delete to protected field! 
k 


Delli C=O W 
C=D A 
C=A-C A 
CSRB 
C=C+1 A Increment for current character 
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427 

428 

429 

430 F38C0 DA 

431 F38C2 D? 

432 F38C4 8£00 
00 

433 F38CA AFS 

434 

435 

436 

43? 

438 

439 F38CD 8£00 
00 


440 F38D3 451 

441 

442 

443 

444 F38D6 DB 

445 F38D8 DA 

446 F38DA 7003 

447 F38DE AFS 

448 F38E1 C4 

449 F38E3 8£00 
00 

450 F38E9 31B4 

451 F38ED DA 

452 F38EF 6880 

453 

454 

455 F38F3 

456 

457 

458 

459 F38F3 31B1 

460 F38F7 962 

461 F38FA FO 

462 

463 

464 

465 F38FC 3180 

466 F3900 966 

467 F3903 ARO 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 F390D 1B00 
000 


F3905 653F 


F 3903 60C0 
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* Now C[A}] 1s count of blanks to send 
x 


(Will 
start 


ee 


A=C R 
D=C A 
GOSUBL =BLANKC 


Copy count to A{A} 
D[A}=count 
Blanks (Clear the itens) 


B=C W Copy to 8[7:0] 


This will NOT work for a non-HP82163A device in INSERT rode 


insert n blanks, where nis the # characters to the 
of the protected field) 


GOSUBL =SENDI+ Get nailbox, Send A[A] blanks 


GOC DelEx If carry, abort! 


* Now back up to starting point 
& 


DelEx 


ae 
ke 


DISP2 
Xk 


* Check 
x 


* Check 
k 


C=D A 

A=C A Count to A[A] 

GOSUB LCleft (Loads C with <Esc> D <Esc> D) 
B=C W 

A=A+A A Double count for <Esc> D 


GOSUBL =SENDIT Send backspaces 


LCASC \K\ Restore original character (K) 
A=C A 
GOTO DISPEX Done...exit 


if at is an <fsc>...1f so, do NOTHING until next char 


LC(2) Esc 
7A=C OB 
GOYES DISPox 


Is this an escape? 
Yes...exit, no change 


if backspace - if so, do a backspace and return 
<Bs> 


Is this a backspace? 
No...check further 


LC(2) Bs 
ARC OB 
GOYES DISP25 


* This is a backspace! 


te 
DISPox 
ke 


XS 


DISP25 


GOTO }=LArrow Carry MUST be clear for LArrou 


GOTO  DISPOX Jurip (GOYES out of range) 


DO=(5) =DSPSTR 
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478 
479 
4&8 


481 


482 
483 


434 
485 
486 
487 
488 
489 


4% 
431 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 


505 
506 


507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 


F3914 15E2 
F3918 OA 
F391A 8F0O 
000 
F3921 1R00 
00 
F3927 15€2 
F392B 100 
00 
F3931 1562 
F3935 OR 


F3937 1AO 
00 
F393D 14E 
F3940 D5 
F3942 31F5 
F3946 9E5 
F3943 02 


F394B 870 
F394E BB 


F3950 7000 
F3954 3500 
B144 
F395C AEG 
F395F 8E00 
00 
F3965 6510 


F3963 


F3969 860 
F396C B3 


F396E 844 
F3971 7R60 
F3975 856 
F3978 534 


Display driver <831108.0941> Tue Jan 17, 1984 12:03 px 
Page 10 
C=DATO 3 
ST=C Restore user status for DSPCL? 
GOSBYVL =DSPCL? 
DO=(4) (=DSPSTA)+3 Restore display status for ne 
C=DATO 3 
DO=(4) =DSPSET Point to the HPIL status nibble 
C=DRTO XS Recall the HPIL status fron RAM 
ST=C 
k 
* Check 1f cursor 1s at end of buffer! 
k 
DO=(4) =CURSOR 
C=DATO B 
B=C A Copy cursor value to 8[B) 
Lt(2) 95 
*B«C OB Reached physical end of buffer? 
GOYES DISP30 No...check 1f insert node 


x 


* Cursor is at 
k 


end of buffer...check if insert or replace node 


?ST=1 
GOYES 


=Insert 


DISPox Exit, no error (no roon) 


* At end of buffer, not insert...send char, backspace 
t 


ae 
ke 


DISP30 
& 


GOSUB =GETNBX Get nailbox 
LCHEX 441B00 

C=A B (char)&<escr&"D" 
GOSUBL =PUTX Send it! 

GOTO DISPEX Exit 


* Cursor is NOT at end of buffer...check if insert or replace 


x 


x 


% Insert node.. 
k 


ee Mm 


Insert node? 
Not Insert...send the char! 


?ST=0 
GOYES 


=Insert 
DspSnd 


.call SendBf (It checks for HP82163A) 


ST=0 = Delete This 1s NOT delete! 
GOSUB SendBf Send to end of line 
ST=1 SetCur Set the cursor to new spot... 
GONC DspSn2 If OK, position it! 


Following jurip taken ONLY if entered through DISPEX 
(Packing technique) 
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527 
528 
529 
5x 
531 
532 
§33 
534 
535 
536 
537 


538 
Dao 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
556 
556 
55? 
558 
559 
560 
561 
562 
563 
564 


56 
566 
567 
508 
569 


570 
571 
572 
of) 
574 
575 
576 
57? 
578 


F397B 
F397E 


F 3381 
F3985 
F 3989 
F398C 
F398F 
F3992 
F3995 


F399C 
F399E 
F39R2 
F39R4 


F39A? 


F39A7 
F39AR 
F39RE 
F39B0 
F 39B4 
F39B7 
F39BA 
F39BC 
F 3900 
F390 3 
F39C6 
F39CA 


F39CA 


F33D0 
F 3300 


F 3907 
F 3308 
F39DD 


5E4 
401 


7000 
7732 
846 
512 
840 
840 
1B00 
00 
OB 
1542 
OB 
452 


856 
7000 
De 
7012 
4AD 
866 
01 

7 REI 
4% 
845 
7E21 


8E00 
00 


1B00 
000 
TSEZ 
OA 
03 
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DISPEX GONC DISPOX If no carry, finish up 
Coc DspErr Go always! 
ke 
ke 
EscSnd GOSUB =GETMBX Get the nailbox first... 
GOSUB PUTEsc ...oend the <Esc>... 
ST=0 = SetCur ...DON’T set the cursor! 
GONC DspSn1 Go unless interrupted 
DspErr ST=O0 =Loop0K Interrupted! 
ST=0 = =Disp0K (If interrupted, display not OK) 
DO=(5) =DSPSET Rewrite display settings! 
CSTEX 
DATO=C XS 
CSTEX 
GOC DISPOX Go always...exit 
k 
te 
DspSnd 
t 
* Send the character and return 
i 
ST=1—- SetCur SET the cursor to next position 
DspSnO GOSUB =GETMBX Find the mailbox... 
DspSn1 C=A A ...copy character to C[B]... 
GOSUB Putd ...send the character 
GOC DspErr Interrupted! 
*ST=0 SetCur Set the new cursor position? 
GOYES DISPOX No...exit 
DspSn2 GOSUB Clear? Check 1f Clear is set 
GOC DISPOX Yes...exit (Don’t nove cursor) 
ST=0 = CurLft No...move the cursor RIGHT 
GOSUB MOVCUR 
DISPOX 
k 


* Following line is not needed anynore, but 1s a residual fron 
* earlier code (could be reroved) 
k 


GOSUBL =END Clean up the loop(A[A] unchanged) 


k 
® Now restore status bits and return 
k 


DISPOF 
DO=(5) (=DSPSTA)+3 Display status bits 
C=DRTO 3 
ST=C Restore ther! 
RTNCC Done...return, carry clear 


JOR OIRO UIT IOI IOI GOI IOI OIC 
FOTO ICI ICIIOII ISIE IIIS ISO 
ak 


%* Nane: SendBf - Insert/delete a char, send line af needed 
as 


** Category: LOCAL 
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579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
§95 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 FISDF 
619 
620 
621 
622 F39DF 8FO0 
000 

623 
624 
625 
626 
627 
628 F39E6 SCO 
629 
630 
631 
632 F39E9 860 


ax 
ax 
ak 
ak 


aa 
an 
x 
Kx 
ane 
ax 
ak 
xk 
ak 
xk 
xk 


xk 
xk 
kk 
am 
xk 
xk 
xk 
ak 
we 
kk 
xx 
xk 
a 
xx 
xx 
ak 


=$ 
k 


x 
x 


Oe Oe Oe 


Display driver <831108.0941> Tue Jan 17, 1984 12:03 pn 
Page 12 


Purpose: 
Insert/delete a character, even if this is an HP82163A 
display device 


ST(Insert): 
if 1, insert (send fron position through end) 
(send character fron A[B] first!) 
ST(Delete) 1s type: 
if 1, delete (send fron next char to end, 


append blank) 
if 0, insert (send char fron A[B], then to end) 

Exit: 

A[B] is not changed fron entry 

P=0 

Carry set if interrupted, clear if OK 
Calls: SCNRT, GETMBX, PUTEsc, PUTD, WRITIT, LCleft 
Uses....... 


Exclusive: A[15:2],B[W],C(W], 00,01 ST[Protec} 


Inclusive: A[15:2],B[W],C{W},D[A},00,01,P,ST[Protec, 3:0] 
Stk lvls: 2 (WRITIT)(SCNRT) 
History: 
Date Progranner Modification 
06/24/83 NZ Packed code by no longer preserve 
D1 in this routine 
06/02/83 NZ Added code to do Esc N (Insert u/ 
wrap) 
12/09/82 NZ Added docunentation 


FOI IOI TO OTT TTT TI IK 
FOI RI ITO TOTTI TTI IO 


endBf 
Find first character NOT to send (Either E0B or protected) 
GOSBV.L =SCNRT Scan right 
SCNRT returns A[A]-->past unprotected iten, carry set if end 
of buffer, D[A] 1s pointer to first after current position, | 
B[B] contains the entry A[B] 
GONC  NotEnd If carry, at end of buffer 
If Insert and End of buffer, return (Do nothing) 


?ST=0 =Insert Is it NOT insert? 
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633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
67? 
678 
673 
680 
681 
682 
683 
684 
685 
686 
687 


F39EC 
F39EE 
F39F1 
F39F3 


F39F3 
F39F6 
F39F8 
F39FB 
F39FE 
F3A01 
F3A04 
F3A07 
F3R09 
F3R0C 
F 3ROF 
F3R12 
F3A14 
F3A17 


F3A19 


F3A1D 
F3A20 
F3A22 
F3A25 


F3R27 
F3R29 
F3R2C 
F3R2E 
F3A32 
F3A35 
F3A3? 
F3A3B 
F3A3D 


2306 


70 
864 
Aa 


AF2 
DB 

135 
846 
130 
14E 
96A 


856 
137 
135 
Ee 
8iE 
DA 


7000 


870 
63 
876 
Al 


864 


7€81 
480 
09 
7981 


03 
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GOYES NotEnd 
?ST=0 Delete 
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Not insert...continue 
Is it a delete? 
No...buffer is full, insert: exit 


* B[B] is the new character...saved here for now 
k 


* DLA] is first char after current position in buffer 


NotPro 


ee ee ee 


ee ee Oe 


a oe Oe fF 


C=0 W 

C=D R 

01=C 

ST=0 = Protec 
DO=A 

C=DATO B 

7¢=0 =6—B 
GOYES NotPro 
ST=1 Protec 
CO1EX 

d1=C 

C=A-C A 

CSRB 

A=C R 


GOSUB 


*ST=4 
GOYES 
*ST=1 
GOYES 


Send# 
Protec 
Send- 


A=0 R 
?ST=0 Delete 
GOYES Send+ 
GOSUB PUTEsc 
GOC Sendex 
C=B A 
GOSUB Putd 
A=B A 
RTNCC 


=GETMBX 


=Wallby 


Clear high bits for CSRB below 
Start of string in C[R] 

Start of string in D1 

Check if protected field 


Not protected (£0B) 


Bring pointer back to C[A}... 
...And copy back to D1 

# of nibbles to send 

C{A] 1s length to send (bytes) 
ALA] is length to send (bytes) 


Now D1 points past start of buffer, A[A] is a character count 


Get the mailbox address into DO now... 


Alters only C,DO 


Now BO points to the railbox 


Check if Protec 1s set...if so, and in insert riode, and not 
HP82163A, then send <Esc>R to turn OFF insert node 


HP82163A? 
Yes...continue 
Protected? 
Yes...cantinue 


Not HP82163A, not protected... just send the char (or delete 
escape sequence) 


Is this a delete? 
No... just the character 
Yes...send Esc... 


Copy B[B] (the character) 
...send the character 

Restore the character fron B[B] 
Exit! 
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688 * This is not HP82163A, Protected! 

689 x 

630 F3A3F 860 Send- ?ST=O =Insert Insert node? 

691 F3AR42 41 GOYES Send# No...continue 

692 

633 * This 1s not HP82163A, protected, insert node...tenporarily 
694 * disable insert node 

695 x 

696 F3R44 7871 GOSUB PUTEsc PUT Esc... 

697 F3A48 42F GOC Sendex 

698 F3A4B 3125 LCASC \R\ JR 

699 F3R4F 7171 GOSUB Putd 

700 F3A53 47€ GOC Sendex Error...restore, return 

704 x 

702 * Check if insert...if so, send the character in 8[B] first! 
703 : If not insert (if delete), skip first character in buffer 
704 

705 * Check 1f this is the logical end of buffer 

706 x 

707 F3AS56 1C€1 Send# 01=D1- 2 Point to first character 

708 F3AS9 14F C=DAT1 B Check the character for E08 
709 F3ASC 171 D1=D1+ 2 Restore pointer to next char 
710 F3A5F 96E ?CHO) Od#B End of line? 

711 F3A62 40 GOYES Senddo No...check if need to adjust 
712 F3R64 DO A=0 A Yes...set =0 

713 F3A66 874 SenddOO 7ST=1 Delete Delete? 

714 F3A69 A é GOYES SendNI Yes...NOT insert! 

715 

716 * This is an insert! 

717 x 

718 F3AGB 101 01=D1- 2 This is an insert... 

719 F3A6E 396A 7C=0)—o#B Is it End of buffer? 

720 F3A71 90 GOYES Send02 Yes...skip this adjustnent 

721 F3A73 876 *ST=1 Protec Is it protected? 

722 F3A76 40 GOYES Sendd2 Yes... leave A[A} unchanged 

723 F3A78 £4 R=A+1 A Increnent count 

724 x 

725 * Now A[A] is corrected character count, D1 @ first char to 
726 * be sent 

727 x 


728 F3A7A DS) =SendO2 «=(C=B A Read the character fron B[B] 


729 F3A7C 7441 GOSUB Putd Send the character 

730 F3A80 4AB GOC Sendex Error...exit 

731 x 

732 * This is the entry point for a delete! 

733 x 

734 F3A83 SendNI 

735 x 

736 * Now retransmit the line... 

737 x 

738 F3R83 8E00 GOSUBL =WRITIT Send the data to the loop 
00 

739 i 

740 * If carry set, ATIN hit...return 

741 x 
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742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
75? 
758 
759 
760 
761 
762 
763 
764 
765 
766 


767 
768 
769 


770 
771 
772 
773 
774 
775 
776 
77? 
778 
779 
780 


781 
782 
783 
784 
785 
786 
78? 
788 
783 
790 
731 
792 
193 
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Exit after restoring A[B] 


* Done with transfer now...check if delete; if so, send blank 
x 


Insert...no trailing blank 
Delete... 

...send a trailing blank 
Exit if error 


* Now D1 points to the "Next" character...subtract current 
* position and divide by 2 to get # of bytes sent 
k 


Is this NOT protected field? 
Not protected...back up 
Is this an HP82163A? 


Yes...back up 
An I in insert node? 
No...back up 


Send <EscoN to turn insert on 


Clear high bits for ASRB belou 


A[A] is # bytes fron buffer start 


Read the cursor... 
Now ALA] is # backspaces to send 
Double for <Esc> D 
Now character in ALB], # 1n B[A] 


Save character 1n A[15:14] 
Count back to A[A] 

Load C with Esc D Ese 0 
Send the sequence! 


Restore A[B] fron A[15:14] 
Don’t alter carry! 


FOI OI OHO ITI IO IIIS ISIC IO GOI III: 
FOO OOO OOS OI III III IOS 


MOVCUR - Move the cursor right/left 
MOVCU+ - Move the cursor pernanently (no restore) 


F3R89 418 coc Sendex 
x 
F3A8C 864 ?ST=0 Delete 
F3A8F DO GOYES SendLs 
F3A91 3102 icasc \ \ 
F3A95 7B21 GOSUB Putd 
F3A399 41A GOC Sendex 
x 
F3A9C 866 Sendis 7ST=0 Protec 
F3A9F 81 GOYES SendLli 
F3AA1 870 ?$T=1 =Wallby 
F3AR4 31 GOYES SendLt 
F3AR6 860 ?$T=0 =Insert 
F3AAR9 EO GOYES SendLi 
F3ARB 7111 GOSUB PUTEsc 
F3AAF 3164 LCASC \N\ 
F3RB3 7001 GOSUB Putd 
F3AB7 AFO SendLli A=0 Wd 
F3ABA 133 ADIEX 
F3ABD 3400 LC(S) =DSPBFS 
000 
F3AC4 EA A=A-C A 
F3AC6 81C ASRB 
F3AC9 1FOO D1=(5) =CURSOR 
000 
F3AD0 De C=0 A 
F3AD2 14F C=DAT1 B 
F3AD5 EA A=A-C A 
F3AD7 C4 A=A+A A 
F3AD9 OC ABEX A 
F3ADB 814 ASRC 
F3RADE 814 ASRC 
F3AE1 D4 A=8 A 
F3RE3 7401 GOSUB LCleft 
F3AE? AFS B=C W 
F3REA 8E00 GOSUBL =SENDIT 
00 
F3AFO 810 ASLC 
F3AF3 810 ASLC 
F3AF6 01 
ae 
aX Nane: 
ax Nane! 
xk 
*k Category: LOCAL 
ax 
** Purpose: 
+8 


Move the cursor in the direction specified by CurLft 
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794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 F3RF8 840 

826 F3AFB 730 

827 F3AFF 14€ 

828 F38O2 D? 

829 F3B04 08 

830 F 3806 14A 

831 F3B09 7090 

832 F3B0D 31F5 

833 F3B11 9E6 

834 F3B14 C6 

835 F3B16 148 

836 F3B19 D4 

837 F3B1B 8FOO 
000 

838 F3B22 D8 

839 F3B24 15R0 

840 F3B28 O£06 

841 F3B2C 72B0 

842 F3B30 90C 

843 F3B33 3D 

844 

845 

846 

847 
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ae status bit (Simalar to nainfrane routine by sane nane) 
ah 

** Entry: 

a CurLft set to move left, clear to nove right 

as P=0 

ak 

RA ERIN: 

de Contents of A[A] restored upon exit 

mA Carry set if no nove 

Kx Carry clear if moved, cursor positioned on display 
xn Clears ST(=LoopO0K) if interrupted 

ak P=0 

ka 

*k Calls: DO=CUR, MOVC60, GETNSK, SENDI+, Cleft 

kk 

BR USES. avers 

x* Exclusive: A[15:5],B[WJ,C{W],D[A},  P 

** Inclusive: A[15:5],B{W],C{W),D[A},00,P,ST[3:0] 

kh 

tk Stk lvls: 2 (SENDI+) 

hk 

x* NOTE: Does not alter A[A] 

ak 

kk History: 

ih 

xx Date Progranner Modification 

Ch: eel. yweleatetns ~elSocve ecto cee eke 
*k 12/09/82 NZ Added docunentation 

xk 


SOTO ITI OI TOTO TTT 
FOI TORO OI TIT IK 


NOVCUR 
MOVCU+ 


NOVC10 


x 


ST=0 
GOSUB 
C=DATO 
D=C 
B=A 
A=DATO 
GOSUB 
LC(2) 
PAC 
GOYES 
DATO=A 
A=B 
GOSBVL 


RepCur 
DO=CUR 


B=A 
A=DATO 
R=R8C 
GOSUB 
PAHO 
GOYES 


R 

1 

P 
DO=CUR 
Pp 
MOVC10 


Do NOT replace cursor! 


Save original value in D[B] 
Save original character in B[A] 


Would this be past end of display? 
Yes, then restore original value 
No, then update cursor position 
Save original char in A[B] 

Get bit nap (Alters B[A],C,D0,P) 


Resave original char in B[B] 
Read nask nibble 


Is it protected? 
Yes, then keep looking 


* Now calculate how far to move cursor, and which direction... 
* ...and restore cursor value!!! 
x 
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848 F3B35 DO 


849 
850 
851 
852 
853 
854 
855 


856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 


87? 
878 
879 
880 
881 
882 
883 
834 
885 
886 
887 
888 
889 
830 
891 
892 
893 
894 
895 
896 
897 
848 
839 


F 3837 
F3B3A 
F3B3C 
F 3B3F 
F 3841 
F 3B44 
F 3B4? 


F3B51 


F 3B54 
F 3B58 
F3B5B 
F 3B5E 
F 3B60 
F 3B63 


F3B65 
F 3B67 
F 3B6A 


F 3B6C 
F 3B6E 


F 3874 
F3B7? 
F3B7A 
F3B7C 
F3B7E 


F 3B80 
F 3B80 
F 3B83 


F3B85 
F 3B87 
F 3B8A 
F 3B8C 
F 3B8F 


14A 
DB 
870 
50 
14C 
BoA 
37B1 
3481 
34 
590 
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NOVC15 


GONC MOVC20 
k 


* Left arrows needed! 
k 


739) =MOVC1? GOSUB LCleft 


BES 
AFD 
D? 
866 
90 


cc 
8R8 
21 


c4 
8E00 
00 
550 
840 
DB 
DA 
03 


866 
1 


DB 
14C 
DO 
AoC 
CC 


R=-R 8B 
MOVC20 BCEX W 

D=C A 

?ST=0 «SetCur 


GOYES MOVC% 
x 
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Clear high nibbles of A[A]} 
Read in cursor position 


Replace the cursor? 

Yes...don’t restore it! 

Restore original cursor position 
Offset (Bytes) in A[B] 

Right arrous! 


If carry, left arrou! 


Left arrous! 


Move arrous to B[W], char to C[B} 
Save char in D[B] 

Is this a nove or a set? 

No... MOVE that # of chars 


* This 1s a set cursor...if next char is the destination, exit 
k 


A=A-1 A 

?7A=O) OR 

GOYES MOVC4S 
k 


Exit u/o sending any(char in C,D) 


* Must MOVE the cursor...send <Esc> C{D (A is # noves) 
x 


MOVC3O0 A=A+A A 
GOSUBL =SENDI+ 


GONC NO¥C4O 

ST=0 = = Loop0K 
MOVC4O C=D A 
MOVC4S A=C A 

RTNCC 


ke 

NOVC5O 
?$T=0 SetCur 
GOYES MmovC55 


x 

* 

x 

* First restore the cursor 

k 
C=D A 
DATO=C B 
A=0 A 
A=A-1 B 
A=A-1 A 

k 

x 


»* 


Double for <Esc> 
Get mailbox, send left arrows 


No interrupt...ok 
Interrupt...clear =LoopOK 


Restore the original character... 
...and return! 


Is it NOT SetCur? 
Not SetCur...0K to not nove 


SetCur...need ta take action if unable to nove right! 


DO 1s still at cursor... 


A[BJ=FE (A=-A B will make this 2) 


Go rove the cursor left 1 position (since this 1s SetCur, 
MOVC17 reduces the count by one, therefore A[B] 1s now -2) 
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900 & 
901 F3B91 52C GONC MOVC17 Go always 
902 ke 
903 a. 
904 F3B94 novcss 
905 F3B94 DB C=D A C(8)=Original cursor 
906 F3B96 14C DATO=C B Restore original cursor 
907 F3B99 D4 A=B A Restore original char fron B[B) 
908 F3B9B 02 RINSC 
909 Xe 
910 t 
911 F3B9D 865 MOVC6O ?ST=0 CurLlft Moving cursor left? 
912 F3BAO 60 GOYES MOVC70 No, then skip 
913 F3BR2 CC A=A-1 A Yes, then decrenent value 
914 F3BA4 01 RIN 
915 t- 
916 a 
917 F3BA6 £4 MOVC70 A=A+1 A Incrernent value 
918 F3BA8 01 RIN 
919 a. 
920 ae 
921 FOO OI TORII TTT FO OOO OTK 
922 PE TESTCTTTTSS TPCT ESET ET CCTTTSTSTTCISTSSSTCS SCC TIS TIS SST TTT TTS 
923 ak 
924 G Nane: Clear? - Check if the clear bit is set in DSPSTA 
925 
926 *k Category: LOCAL 
927 x 
928 ** Purpose: 
929 As Set/clear carry if clear bit in DSPSTA is set/clear 
9% 
931 ek Entry: 
932 aK None 
933 ales 
934 tk Exit: 
935 ak Carry set if ST[Clear] is set, else clear 
936 ak DO @ DSPSTR+3 
937 aK 
938 ** Calls: None 
939 ax 
940 AR USCS. adie 
941 %k Inclusive: C[X],D0 
942 ak 
943 **K Stk lvls: 0 
944 RK 
945 *k History: 
946 ai 
94? ae Date Progranner Modification 
948 EX: eecceek -«abeeclewee:  “atecceecueccol eee Sask eeceeewecs 
949 kk 09/28/83 NZ Added docunentation 
950 ax 
954 JIS IOI OO IOI III TOG OST CCC ICO ST SST IIA 
952 JIU ICO CCC TTI K 


953 F3BAR 1B00 =Clear? DO=(5) (=DSPSTA)+3 Point to status 
000 
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954 F3BB1 15E2 

955 F3BB5 OB 

956 F3BB? 870 

957 F3BBA 20 

958 F3BBC OB 

959 

960 

961 

962 FIBBE 01 

963 

964 

965 F3BCO 31B1 

966 F3BC4 800 
00 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

9% 

991 

992 

993 

994 

395 

996 

997 

998 

999 

1000 

1001 

1002 F3BCA 7410 

1003 F3BCE D2 

1004 F3BD0 14€ 

1005 F3BD3 161 

1006 F3BD6 132 

100? F3BD9 CR 
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C=DATO 3 Read in 3 nibbles of status 
CSTEX Now check if CLEAR 1s set... 
7ST=1 =Clear 
GOYES Clear1 Set/clear carry... 
Cleart CSTEX (Restore ny status) 


* If carry set, then =Clear is set 
t 


RIN Return, carry unchanged 
ke 


Xi 


=PUTEsc LC(2) Esc 
Putd GOLONG =PUTD 


FORO OOOO OOO I TTR ITI IK 
FOO RIOR IOI OI OO TO II III 
xx 


** Nane: DO@CUR - Set DO to the current cursor position 
te 

*k Category: LOCAL 

i 

** Purpose: 

as Set DO to the cursor position in the display 

te 

ax Entry: 

ae None 

tok 

AE ERED 

ak DO at cursor position 

+x Carry clear 

do C{A] is cursor value (fron =CURSOR) 

a 

AK Calls: DO=CUR 

iA 

AI USES) 2 ane ee 

xx Inclusive: C[A}, DO 

ik 

** Stk lvls: 1 (DO=CUR) 

tk 

** History: 

a 

sas Date Progranner Modification 

BE Dieawcuee eee ees ee Cu Ae ee aoe tae 
kK 02/18/83 NZ Added BO=CUR call, renaned to 
xt DO@TUR 

RR 12/09/82 NZ Added docunentation 

ar 


FORO OOOO ITO OR TOO OOO 
JORG IIR ROCIO ICO OO I OIC IO III IOI IO 


=DO@CUR GOSUB DO=CUR Leaves DO pointing to cursor loc 
C=0 A 
C=DATO B 
DW=DO+ 2 ( =CURSOR )-(=DSPBFS) 
ADOEX Save A[R] in 1}, set ALA] to OSPBFS 
A=C+A A 
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1008 F3BDB CA R=C+A A 
1009 F3BDD 132 ADOEX Restore A[A], set DO to cursor 
1010 F3BEO 03 RTNCC 
1011 x 
1012 x 
1013 F3BE2 1800 DO=CUR 0O=(5) =CURSOR 
OOO 
1014 F3BE9 01 RTN 
1015 x 
1016 x 
1017 F3BEB 37B1 (Cleft LCHEX 441B441B Esc 0 Esc D 
44B1 
44 
1018 F3BF5 01 RTN 


1019 F3BF? END 
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Arrow Abs 997424 #F3830 - 349 359 
=BDISPJ Abs 996919 #F3637 - 74 
BLANKC Ext - 432 
Bs Abs 8 #00008 - 63 465 
CHKASN Ext ~ 77 
CURSOR Ext - 489 7639 1013 
Clear Ext - 956 


Clearl Abs 998332 #F3BBC - 958 957 
=Clear? Abs 998314 HF3BAR - 953 281 555 
Curlft Abs 5 #00005 - 68 348 358 366 370 380 390 567 
911 
DO=CUR Abs 998370 HF3BE2 - 1013 383 826 841 1002 
=DO@CUR Abs 998346 HF3BCA - 1002 344 367 372 
DISP.1 Abs 997286 #F37A6 - 279 273 
DISP.2 Abs 99736 HF37BR - 289 294 
DISP.3 Abs 997323 HF37CB - 298 292 
DISPOO Abs 996941 #F364D - 82 78 
DISPO2 Abs 996985 #F3679 - 108 92 
DISP1 Abs 997199 #F374F - 236 230 
DISP2 Abs 997619 #F38F3 - 455 276 
DISP25 Abs 997645 #F390D - 477 467 
DISP30 Abs 997737 #F3969 - 510 494 
DISPEX Abs 997755 #F397B 527, 201) 314326416 = 482507 


DISPEx Abs 997369 RF37F9 - 314 312 336 

DISPN. Abs 997080 #F36D8 - 171 130 137 

DISPN1 Abs 997120 #F3700 - 189 149 171 

DISPNO Abs 997003 #F368B - 118 99 101 

DISPNS Abs 997000 #F3688 - 114 99 102 110 

DISPOF Abs 997840 #F 3900 - 568 19 

DISPOK Abs 997165 #F3720 - 210 111 183 

DISPOX Abs 997834 #F39CR - 559 204 351 386 474 527 541 554 
556 


DISPOx Abs 997161 #F3729 - 204 225 267 280 
DISPn3 Abs 997060 #F36C4 - 161 153 

DISPn4 Abs 997074 #F36D2 - 166 132 158 164 
DISPnE Abs 997255 HF378? - 266 217 

DISPoF Abs 996937 #F 3649 - 79 87 

DISPoX Abs 997641 #F3909 - 474 461 499 
DISPox Abs 997431 #F3837 - 351 347 


OSPBFS Ext - 287 X0 766 
DSPCL? Ext - 480 

DSPSET Ext + 82.173) 4830837 
DSPSTA Ext - 47? 481 569 953 


DelChr Abs 997373 HF37FD - 320 244 246 
DelEx Abs 997609 HF38E9 - 450 440 
DelLO Abs 997531 HF3I89B - 407 402 
DelL1 Abs 997556 #F38B4 - 422 406 
Dellin Abs 997510 RF3886 - 397 250 


Delete Abs 4 #00004 - 67 236) 324 519) 634) = 677713 746 
Delexc Abs 997552 #F38B0 - 416 409 
Disp0K Ext ss 91. 114 131 ‘172 536 


DspErr Abs 997775 #F398F - 535 528 552 
DspSn0 Abs 99780¢ HF39KA - 549 232 
DspSni Abs 997806 #F3S9AE - 550 534 
DspSn2 Abs 997820 #F39BC - 555 522 
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DspSnd Abs 997799 #F39R7 - 544 515 

DspsnO Abs 997192 #F3748 - 231 270 275 282 337 

END Ext - 564 

ESCSTA Ext ~ 214 

Esc Abs 27 #00018 - 62 459 965 

EscSnd Abs 997761 #F3981 - 531 256 

FINDA Ext - 238 

FNOMBX Ext - 109 

Fartnd Abs 997491 473873 - 383 381 

Farlft Abs 997504 #F3880 - 389 254 

FarRt Abs 997441 #F3841 - 362 252 

FarRt1 Abs 997453 #F384D - 370 378 

FarRt2 Abs 997470 #F385E - 376 371 

FarRt3 Abs 997480 #F3868 - 379 375 

Farxx Abs 997444 HF3844 - 367 391 

GETMBX Ext - 7 333 407 503 531 549 661 

GETMSK Ext - 837 

GTYPE Ext - 136 

IS-DSP Ext - 75 «177——«191 

InsChr Abs 997384 #F3808 - 329 248 

Insert Ext - 498 514 632 6% 759 

LArrow Abs 997435 #F383B - 354 242 471 

LCleft Abs 998379 #F3BEB - 1017 446 778 860 

LoopOK Ext - 86 535 878 

MOVC1O Abs 998150 #F3B06 - 83% 843 

MOVC15 Abs 998212 #F3B44 - 854 882 

MOVC17? Abs 998228 #F3B54 - 860 901 

MOVC20 Abs 998235 #F3B5B - 862 856 

MOVC3O Abs 998252 #F3B6C - 875 865 

NOV(C40 Abs 998266 #F3B7AR - 879 877 

MOVC4S Abs 998268 HF3B7C - 880 871 

MOVC50 Abs 998272 #F3B80 - 884 834 

HOVC5S Abs 998292 #F3B94 - 904 886 

NOVC60 Abs 998301 #F3B9D - 911 831 

HOVC70 Abs 998310 HF3BA6 - 917 912 

NOVCU+ Abs 998139 HF3AFB - 826 377 

MOVCUR Abs 998136 #F3AF8 - 825 350 558 

ATYL Ext - 170 

NotEnd Abs 997875 #F39F3 - 636 628 633 

NotPro Abs 997900 #F3ROC - 651 649 

PUTD Ext - 966 

=PUTEsc Abs 998336 HF3BCO - 965 408 532 679 696 761 

PUTX Ext - 335 506 

Printr Ext - 10 145 157 224 222 

Protec Abs 6 #00006 - 70 «#645 650 670 721 755 

Putd Abs 998340 HF3BC4 - 966 313 411 551 682 699 729 749 
763 

RArrow Abs 997409 #F3821 - 30 240 

RepCur Abs 0 #00000 - 65 376 825 851 

SCNRT = Ext - 397 622 

SENDI+ Ext - 439 876 

SENDIT Ext - 449 78 

SETLP = Ext - 108 

START = Ext a. 4425 


Send# Abs 997974 #F3R56 - 707 669 691 
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Send+ 
Send- 
Sendoo 
Sendd2 
=SendBf 
Sendli 
SendLs 
SendNI 
Sendex 
SetCur 


WRITIT 
Wallby 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 


Ext 
Ext 


997941 #F3R35 
997951 #F3A3F 
997990 #F 3A66 
998010 #F3A7—A 
997855 #F39DF 
998071 #F3AB7 
998044 #F3R9C 
998019 #F3R83 
997947 ¥F3A3B 

6 #00006 


Table 


- 681 
=) “690 
= 413 
- 728 
- 618 
- 764 
= 755 
- 734 
- 683 
$ 69 

553 
- 78 
= 98 


678 
671 
711 
720 
325 
756 
747 
714 
635 

70 
864 
738 
144 
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722 
520 
758 


680 
231 
885 


165 


760 


697 
349 


668 


Tue Jan 17, 1984 


700 
369 


757 


7H” 
521 


742 
533 


12:03 pri 
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750 
548 
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Input Paraneters 
Source file nane is NZ&DSP: MS 
Lasting file name is NZ/DSP:TI:ML::-1 
Object file name is NZ2ZDSP;TI:NS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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wow No S&S wr 


46 

47 F3BF7 1800 
000 

48 FIBFE 146 

49 

50 F3C01 F2 

51 

52 F3CO3 80F4 

53 F3CO7 22 

54 F3C09 80F4 
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N N 22272 & BBBB UU SOCT*TTTTT 
N ON z7 88 B BU U T 
NN ON Zz &8& B BU U T 
NNN Z & BBBB U U T 
N NN 2 &&8& B BU U T 
N WN Z && B BU U T 
N WN 27222 8& & BBBB UUU T 


TITLE BASIC UTILITIES <840104.1515> 
ABS #F 3BF7 TIZHP6 address (fixed) 


TORII JO TOIT TOTTI 
TOO TORORUROTORI JOTI TOO IOI 


a 
ax 
ak 
ak 
ax 
ax 
ax 
ax 
ae 
ak 
ak 
ak 
ak 
ak 
x 
ak 
ak 
a 
ak 
ak 
ar 
ak 
kk 
a 
ax 
a 
ax 
ak 
ak 
ak 


Nane: GETNBX - Get address of mailbox (last FNDMBX) 
Category:  PTRUTL 


Purpose: 
Get the HPIL railbox address fron RAM and put it in DO 


Entry: 
Nothing 


Exit: 
C{A}, DO-->Mailbox 
Carry clear 


Calls: None 


Inclusive: C[A],D0 
Stk lvis: 0 


NOTE: Does not alter P! 


History: 
Date Progranner Modification 
11/11/82 NZ Added docunentation 


JOR IOUT III IO ITI IK 
FORO IO TOIT TO OOOO IOI III OC 


=GETMBX DO=(5) =MBOX* Mailbox pointer (in RAN) 
C=DATO A Read the pointer to the mailbox 
CSL A Mbox address is stored as words 
offset fron 20000! 
CPEX 4 
= 2 
CPEX 4 Set nibble 4 to 2 (page 20000) 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
0 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
8? 
88 
89 
% 
91 
92 
93 
94 
96 
96 
ge 
98 
99 
100 
101 
102 
103 
104 
105 
196 
10? 
108 
109 


F3COD 134 
F3C10 03 


F3C12 20 
F3C14 310E 
F3C18 OE6F 
F3C1C Bob 


F3C1F DB 
F3C21 570 
F3C24 F6 
F3C26 4% 


2306 
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x 
* Now C{[A] 1s the mailbox address 
k 
DO=C Put the address into DO.. 
RTNCC .and return with carry clear! 


JOIST IIS ITI III III I III I III II III ISIS II SII II IST ISI IIIA 
SOIT III TO TT OO TTT TOK 
ax 


&& Nane: SETLP - Set up C[S] for FNDMBX fron D[A] info 
x 

** Category:  PILUTL 

kx 

kk Purpose: 

ak Given D[A] set up for device search, return the loop # 
ax Hinus one in C[S} 

kk 

tk Entry: 

ak D[A] is device info (see START docunentation) 

x 

kk Exit: 

x Carry clear 

ti P=0 

ae Mailbox # in C{S] 

a 

** Calls: None 

ex 

RR USES sou cais 

tk Inclusive: C{AJ],C{S],P 

te 

** Stk lvls: 0 

x 

** History: 

tok 

ae Date Progranner Modification 

Pe) ceegises, adaeetedes, “wWebeecceca tues ses nema eacs 
RK 41/11/82 NZ Added docunentation 

tk 


JOU ISIIDISIIOIIOI IOI OOOO TOTO TIT ICICI III OOOO TOI TIO I 
FOI IICISIDICIOOICIOITIOI ICICI OTTO OI TIT OI III 


=SETLP P= 0 
LCHEX £0 
C=C'D 8B To check for FIND (Could be [A]}) 
C=C+1 B If carry, is a FIND... 
t 
* Tf carry, FIND sone device...if not carry, address 
* (If address, high bits of D[XS}=mairlbox #; else D[3]=nbox #) 
x 
C=0 A Copy to C(A] for either case 
GONC SETLP1 Go if address 
CSR A 
GOC SETLP2 Go aluays (FIND Nth device) 
kL 
he 
x 
* Address! 
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110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
134 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
167 
158 
159 
160 
161 
162 
163 
164 


F3C29 BBE 
F3C2C C6 
F3C2E Cé 
F3CH 8002 
F3CHQ 80CF 
F3C38 20 
F3C3A 03 
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x 


SETLP1 CSR 
C=C+C 
C=C+C 

SETLP2 P= 
C=P 
p= 
RTNCC 


x 
A 
A 
2 
15 
0 
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(Clears C[XS}) 

Multiply C[X]*4 

Now C{2] is the mailbox # 
Now P is the railbox #... 
...now in C[S}! 


FOI ITO IOUT OTTO TT 
FORO OOO TIT TOTO TTT II 


ah 
** Nane: FNDNBX - Find an HPIL mailbox (C{S] is #) 

** Nane: FNDMB- ~ Find mailbox, clear disp bits, chk OFF 
x* Nane: FNDMBD - Find an HPIL mailbox, clear disp bits 
** Nane: FNDMB+ - Find an HPIL nailbox (D[A] is spec) 

k 

** Category:  PTRUTL 

ek 

xk Purpose: 

ad Search the configuration tables to find a HPIL nailbox 
wx (C{S] as the nunber of the mailbox minus 1 - if C[S] 
aK is 2 then find the 3rd nailbox!) 

ik 

** Entry: 

ak FNDNBX, FNDMB- , FNDMBD: 

ne C[S] 1s the naalbox nunber -1 

a FNDNB+: 

ae D[A] 1s the device spec 

aK 

R* Exit: 

xk Carry clear: DO points to the mailbox, (MBOX*) is set 
ne to the mailbox 

an Carry set: Mailbox and/or configuration buffer not 

wx found (P as the error nunber) 

xk 

** Calls: CNFFND (FNDMB+ also calls SETLP) 

ak 

RP USCS 55 saws 

xx Exclusive: C{W],D0,P 

x* Inclusive: C(WJ,DO,P 


ak 


xk Stk lvls: 
kx 


** History: 
kk 

wk Date 
Kk Loe 


* 05/23/83 
xx 

03/16/83 
x 03/08/83 
KK 11/11/82 


1 (CNFFND)(SETLP) 


Progranner Modification 
NZ Reworked error exit for loop is 
now “OFFED" (Returns P= =e0FFED) 
NZ Changed FNDMBe to return P=eBRDND 
NZ Added FNDNB- 
NZ Rdded docunentation 


FORO ROI OR ITO TI TOI TOT 
FOO ICI OI ITO ITT ITI IIT IT TIT TIT ITI IK 
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165 x 
166 * First set C[S] to be the nailbox #, minus 1 
167 x 
168 F3C3C 72DF =FNOMB+ GOSUB SETLP 
169 * 
170 * C[S] is nou the mailbox # 
171 x 
172 F3C40 =FRDNB- 
173 x 
174 * Get LOOP STatus to clear InptOK bit 
175 x 
176 F3C40 1B00 00=(5) =LOOPST 
000 
177 F3C47 1562 C=DATO XS Read into ST[3:0] 
178 F3C4B OB CSTEX 
179 & 
180 * Is the following test desirable??? (will error out if OFFED) 
181 x 
182 F3C40 20 P= =e0FFED Set P before the test 
183 F3C4F 870 ?§T=1 =Offed Is the loop "“OFFED" (OFFIO)? 
184 F3C52 20 GOYES FNDMB. Set carry if "RESTORE I0 Needed" 
185 F3C54 FNOMB. 
186 F3C54 OB CSTEX 
187 F3C56 4A6 GOC FNDNB9 "RESTORE I0 Needed" 
188 F3C59 D2 C=0 A Clear "set up" bits, "Device" bit 
189 F3C5B 1542 DATO=C XS Device, "set up" bits cleared 
190 * 
191 * Set DispOK bit false (Display is NOT set up on loop) 
192 x 
193 F3C5F 1800 =FNDNBD DO=(5) =DSPSET 
000 
194 F3C66 1562 C=DATO XS 
195 F3C6A OB CSTEX 
196 F3C6C 840 ST=0\ =DispOK Display is NOT set up 
197 F3C6F O08 CSTEX 
198 F3C71 1542 DATO=C XS 
199 s 
200 * Get the mailbox address (search the device table for it) 
201 x 
2 F3C75 80DF =FNDMBX P=C 15 Save mallbox # in P for now 
203 F3C79 D6 C=A A 
204 F3C7B 7974 GOSUB CslcS Save A[A} in C[9:5] 
205 F3C7F 80CF C=P 15 Restore mailbox # to C[S] 
206 F3C83 137 CD1EX SAVE D1 IN DO (TEMPORARILY) 
207 F3C86 134 DO=( 
208 F3C89 20 p= 0 
209 F3C8B 310F LCHEX FD CONFIGURATION BUFFER - MM 1/0 
210 F3C8F 8FOO GOSBVL =CNFFND Configuration find 
OOO 
211 F3C96 542 GONC FNDMBE ...Not found (error!!!) 
212 . 
213 * Found nenory-napped i/o buffer!!! 
214 * 
215 F3C99 173 D1=01+ 4 Skip to proper offset into entry 
216 F3CSC 24 P= 4 
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217 F3C9E 8A8 FNDMB1 7A=0) «6A Done searching yet? 
218 F3CA1 Al GOYES FNDNBE Yes...didn’t find a nailbox! 
219 F3CA3 147 C=DAT1 A 
220 F3CR6 AOE C=C-1 P If zero, is PIL nailbox'! 
221 F3CA9 452 ; GOC FNDMB3 Yep...found it! 
222 
223 * Haven’t found it yet...keep trying! 
224 x 
225 F3CAC 179 FNDMNB2 01=D1+ 10 Next entry 
226 F3CAF 132 ADOEX 
227 F3CB2 189 DO=D0- 10 Decrenent ALA} by 10 
228 F3CBS 132 ADOEX 
229 F3CB8 55E GONC FNDNB1 Loop back for nore... 
230 x 
231 * This is an error! 
232 & 
233 F3CBB 20 FNDMBE P= 0 
234 F3CBD OD P=P-4 Set carry!!! 
235 F3CBF 20 P= =eNNBOX No nailbox...carry is set! 
236 x 
237 * Restore ALA], D1 before returning (COMMON return code) 
238 x 
239 F3CC1 136 FNDMBS CDOEX Old D1 value-->C, C[A] to DO 
240 F3CC4 135 D1=C Nou D1 is restored 
241 FICC? 7424 GOSUB Csrc5 
242 F3CCB DA A=C A Now ALA} is restored 
243 F3CCD 01 RIN 
244 x. 
245 x 
246 F3CCF FNDMB3 
247 x 
248 : Found a mailbox...check if it is the correct one! 
249 
250 F3CCF AGE C=C-1 § 
251 F3CD2 59D GONC = FNDNB2 Go to the next entry! 
252 - 
253 * Have THE mailbox! 
254 * (P is still 4) 
255 - 
256 : Save the address aay in MBOX first! 
257 
258 F3CDS 1FO D1=(5) =MBOX* 
000 
259 F3CDC 1502 DAT1=C 3 
260 = 
261 * Now get the actual address 
262 x 
263 F3CEO F2 CSL A Offset to words (multiply by 16) 
264 F3CE2 K2 LCHEX 2 Nou C has the railbox address! 
265 F3CE5 21 P= 1 
266 F3CE7 OD P=P-1 Clear carry, set P=0 
267 F3CE9 57D GONC FNDNBS GO ALWAYS! 
268 SOIR O JO IOI UI TTT TIO 
269 FO IOI III III ITT JIT TOI 


270 xk 
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271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
238 
299 
300 
1 
2 
03 
304 
305 
6 
0? 
308 
3 
310 
311 
32 
at 
314 
a1S 
316 
317 
318 
319 
320 
321 
322 
323 
324 
326 


F3CEC 
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** Nane: CHKASN - Check if an HPIL assignrient 1s active 
aa 

kk Category:  PILUTL 

Pe 

** Purpose: 

ax Check if the assignnent is none, HPIL, or "other" 

aR (If “OFF"ed, returns as if no assignnent) 

a 

** Entry: 

aS C[6:0] is the assignnent table value 

ak 

AX Exit: 

am Carry set if not assigned/not HPIL/"OFF"ed/LOOP/NULL 
x Carry clear if assigned...B(W],C[X] set up for START 
x If C{S]<>0, this 1s a FIND (Address unknoun) 

xk 

** Calls: 1/OFND 

xk 

B® USCS codecs 


x Exclusive: 
*k Inclusive: 
xk 


kk Stk lvls: 
kk 


** History: 
xk 

- Date 
RE. nes cos 


ek 11/11/82 
ka 


B(W],C(W),P 
B[W),C(W],P 
2 (pushed 01;I/0FND) 


Progranner Modification 


--- 


wee eee ee a ee ee ee oe 


NZ Added docunentation 


JOJO III IO OITA OTITIS OT TO OTOIT TC 
FOI OI IO IO TOO OTTO III III OTT 


Assign table fornat: 


=CHKASN 

k 

k 

x 

x nib: 
k aoe 
x 2-0; 
x 

k 

k 

k 

x 

x 3 
x 

x 

a 

x 

k 

: 6-4: 
x 

t 

x 

x 


usage 

If device address known, address, loop # here 
If LOOP, nibs 1-0=0, nib 2 is loop # 

If NULL, FOO 

If not known/not assigned/iobuffer, FFF 

If assigned, not HPIL, Fxx, xx<oFF 

If unassigned/not HPIL, F 

If I0 buffer wath one entry, 4 

If address specified, 0 

If type specified, loop # + 1 (nib 3: 1,2, 3) 
If this assignment has been "QFF"ed, bit 3 is 1 
If type, nib 6: sequence #, nibs 5-4: Acc 1d 
If address, 6-4: address, loop # 

If I0 buffer, 6-4: 10 buffer # 

If unassigned (NOT "OFF"ed), FFF 

If not HPIL and nib 3=F, not defined 
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326 

327 F3CEC AC2 
328 F3CEF 20 
329 

330 

331 

332 F3CF1 96A 
333 F3CF4 00 
334 F3CF6 B26 
335 F3CF9 AZE 
336 F3CFC 5D0 
337 F3CFF 836 
338 F3D02 A3E 
333 F3D05 4FO 
340 F 3008 02 
341 

342 

343 F3D0R 0B 
344 F3D0C 878 
345 F3D0F 20 
346 F3D11 OB 
347 F313 01 
348 

349 

350 F3D015 

351 

352 

353 

354 F3015 23 
355 F3017 BO6 
356 F3D1A ROE 
357 F301D 20 
358 F3D1F 400 
359 F3D22 BF 
360 F3D25 392E 
361 F3D28 60 
362 F3DZR 6470 
363 

364 

365 

366 

367 

368 F3D2E BF6 
363 F3D31 8001 
370 F3035 80CF 
374 

372 

373 

374 F3039 A46 
375 F3D3C AC2 
376 F3D3F 20 
377 F3041 400 
378 

379 

380 
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x 
C=0 $ Preclear "FIND" flag 
P= 0 
k 
* Check if this is OK as 1s... 
x 
7C=0)—iB Is it LOOP or NULL? 
RTNYES Yes..."not" set up 
C=C+1 XS 
C=C-1 XS 
GONC CHKAS# This is OK as is unless OFFED 
C=C+1 X 
C=C-1 xX 
GOC CHKASO 
RTNSC This 1s NOT a HPIL assignnent! 
ke 
ke 
CHKASH# CSTEX 
?8T=1 11 Is this offed (carry if so) 
GOYES CHKAS! 
CHKAS! CSTEX 
RIN Carry indicates state! 
ke 
ae 
CHKASO 
& 
* Check if this is not assigned (nibble 3="F") 
k 
P= 3 
C=C+1 P 
C=C-1 P Alter carry only...not value! 
P= 0 Reset P to 0! 
RTNC Not defined...return! 
CSR W Now code nibble in C[XS] 
7CHO | KS 
GOYES CHKAS1 This 1s not an address... 
GOTO CHKASS This is an address! 
ke 
ke 
& 
* If here, have either iobuffer, type, or “OFF"ed assignnent 
k 
CHKAS1 CSR W C{1] is the code nibble! 
P=C 1 Copy C[1] into P 
C=P 15 Use C[S] to test it 


& 
* Tf C([S] is >=8, then "OFF"ed (RTNSC) 
x 


C=C+C § 

C=0 5 Clear it again! 

P= 0 

RTNC If carry, "OFF"ed! 


k 
* Now either iobuffer or type 
x 


Saturn Assenbler 


Ver. 3.39/Rev. 206 


381 F 3044 
382 F 3048 
383 F3D4B 
384 
385 
386 
387 F304D 
388 F304F 
389 F3051 
390 
394 
392 


8001 
890 
71 


F6 
F6 
D5 


393 F3053 0D 


394 F3D55 
395 F 3059 
396 
397 
398 
399 F305C 


80F3 
A4E 


3100 


400 F3D60 03 


401 
402 
403 
404 F3D62 
405 
406 
40? 
408 
409 
410 
411 
412 F3062 
413 F 3066 
414 
415 
416 
417 F 3069 
418 F3p6C 
419 F 3D6F 
420 F3073 
421 F3076 
422 F3079 
423 F307B 
424 
425 
426 
427 
428 
429 
430 F307D 
431 
432 
433 
434 F 3081 
435 F 3084 


7540 
563 


147 
172 
1537 
AFC 
816 
F2 


Fe 


80FF 


13? 
1200 
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P=C 1 

?P= =SngDev 

GOYES CHKAS2 
& 


* This is a TYPE! 
k 


CSR R 
CSR A 
B=C A 


x 


Page 8 
Is this a single entry buffer? 


Yes...process it! 


C{XS] is sequence #, C[B] is type 
Copy to B[B) 


* C[XS] is sequence #, P is loop # + 1 (C[4:3]=0) 
k 


P=P-1 
CPEX 3 
C=C-1 $ 
x 


P is now loop # 
Get loop # in C[3] 
Set C[S]="F" for “FIND flag 


* Now C[3) is loop #, C[XS] is sequence #, P=0 
* 


LC(2) =DevTyp 
RTNCC 


HKAS2 


buffer! 


ao 
— 
> 


:2] 1s I/0 buffer # 


This 1s a device type! 
C{2] is seq #, B[B] is ACC ID 
C{3] is loop # 


Now save A[W] in B[W], 01 on RSTK 


ee OF ee Oe EO Oe Oe 
eH 
— 
So 


GOSUB CHKASs 
GONC CHKASx 


Save info, find the buffer 
Not found... (Error!) 


* Now D1 @ 1/0 buffer start, A[A] 1s length of buffer 


C=DAT1 A 
D1=Di+ 3 
A=DAT1 W 
ABEX UW 
CSRC 
CSL 
CSL 


DD 


ee ee Mm Oe 


CPEX 15 


* 


* P is now device type 
* 


CDIEX 
B1=(2) =DevID 


Read type, seq #, loop # 
Nove to next word 


Restore A(W], B[W]) is ID/label 
Type in C[S] now 


Now C[3] 1s loop #, C{2] 1s sequence # 


P is now zero...clear C{S], set P=C[S) 


Find out what it is 


Preload Device ID 
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436 F3D88 892 ?P= 2 Device ID? 
437 F3D8B 60 GOYES CHKAS3 (Set carry if Device ID) 
438 F3D8D 1000 D1=(2) =VolLbl Volune label! 
439 F3D91 CHKRS3 
440 F3091 A4E C=C-1 §$ Set C{S]="F" 
441 F3094 20 CHKAS4 P= 0 
442 F3D96 07 C=RSTK Restore D1 
443 F3098 137 CDIEX 
444 F3D9B 03 , RINCC Done (return, carry clear) 
445 - 
446 a 
447 F3D9D O02 CHKASx RINSC 
448 a. 
449 x 
450 x 
451 * This is an address! 
452 & 
453 F3D9F CHKAS9 
454 F309F BF6 CSR W (Clears C[S]) 
455 F3DA2 A4E C=C-1 § Set C[S]="F" (Do store on return) 
456 F3DAS Fé CSR A 
457 F3DA7 F6 CSR A Now C[X] 1s the address! 
458 F3DA9 03 RTNCC 
459 - 
40 x. 
461 F3DAB F6 CHKASs CSR A 
462 F3DAD F6 CSR A Shift the ID to C[Xx] 
463 F3DAF 20 P= 0) Set P=0 for later! 
464 F30B1 D5 B=C A 
465 F3DB3 07 C=RSTK Save calling address in B[A]} 
466 F3DB5 137 CDIEX 
467 F3DB8 06 RSTK=C Save D1 on RSTK 
468 F3DBA 137 CDIEX 
469 F3DBD 06 RSTK=C Restore calling routine address 
470 F3DBF D9 C=B A Restore C{A] 
471 F3DC1 AF8 B=A W Save A in B(W] 
472 F3DC4 6943 GOTO  1/OFND Find it! 
473 JOO IO IOC I OOO IT 
474 JOIST IOC OO TTT 
475 ak 
476 tk Wane: SETUP - Given info fron START, set up C[6:0] 
477 am 
478 ** Category:  PILUTL 
479 kk 
430 ** Purpose: 
481 a Build a recall string in C[6:0] (carry set if buffer 
482 ak required to store this) 
433 an 
484 tk Entry: 
485 kk D is the info returned fron START 
486 an D[X] is address, (loop #) * 1024 
487 ax D[S] is type (O=address, 1=device type, 2=device ID, 
438 ax 3=volune label, 4=NULL, 5=LOOP) 
489 ak D[3] is sequence # for types 1 and 2 


4% ak B is as returned fron START 
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491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
625 
526 
527 
528 
529 
5% 
631 
532 
o33 
534 
535 
536 
Boi 
538 
509 
540 
544 
542 
543 
544 
545 


F30C8 


2306 


ak 
aK 
aK 
ak 
ak 
aw 
aX 
ak 
ak 
aw 
ae 
xk 
ax 
ax 
xk 
ae 
xx 
ar 
a* 
an 
ax 
xa 
aK 
=S 
ae 
x 

x 


i Oe OO OOOO OOOO 
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Exit: 
C{6:0] is the information to put into an IS-xxx entry 
P=0 
C[S]=0 if entry will fit in IS-xxx, else C[S]#0 
Calls: CSLCS, CSRC4, CSLC3 
Uses....... 
Inclusive: C[W],P 
Stk lvls: 1 (CSLC5)(CSRC4)(CSLC3) 
History: 
Date Prograrnner Modification 
04/22/83 NZ Fixed bug of creating an I/0 buf 
for NULL and LOOP 
11/12/82 NZ Added docurientation 


FOO OI III OIC III TIO OI IO OTT 
ORI OI III OI III CIO CIC III IO IO 


ETUP 
FOI III II III ICICI IOI IO ICI TOOT IOI IIT 


D[S] 1s type: 
0: Address 
1: Device type, sequence # 
2: Device ID, sequence # 
3: Volune label 
4: NULL 
5: LOOP 


ee layout: 


ee ee me ew ew oe we oe = ew we ww ee ee ee ee ee eee eee en + 
| Device ID/vol Lbl | search type | loop # | sequence # | 
oe + 
nibs: 16 1 1 1 

(high tenory) (low rerory ) 
Layout of entry: 

ee 0,4,5: (For types 4 & 5, true addr = 0) 

wee He ee ee eH eee ee ew ew we we ee ee ee ee a a ewe ee ew + 
| Find address + loop*1024 | 0 | true addr + loop*1024 | 
fone nnn wn nnn ee ee nnn ee ee nnn eee + 

nibs: 3 1 3 

(high nmenory) (low menory) 
Type=1 
ee + 


Saturn Assenbler 


Ver. 3.39/Rev. 


5A6 
547 
548 
549 
550 
551 
582 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
$72 
§73 
574 
575 
576 
577 
578 
579 
580 
581 
582 
$83 
$84 
585 
586 
587 
588 
583 


590 
591 
§92 
§93 
594 
595 
596 
597 
593 
599 


F3DC8 
F3DCA 
F3DCD 
F3DD0 
F3DD3 
F 3006 
F3DD9 
F3DDC 
F 3DDF 
F3DE2 


F3DE5 
F3DE9 
F3DE8 
F3DEE 
F3DF A 
F3DF3 
F3DF6 
F3DF8 
F3DFB 
F3DFD 
F3E00 
F3EO3 


F3E05 


F3E£05 
F3E08 
F3E0A 
F3E0C 
F3E10 
F3E12 
F3E14 
F3E17 
F3E1A 


F3E20 


F3E23 


F3E23 
F3E25 


2306 


OB 

ACB 
RAE 
444 
R4E 
4E2 
ASE 
464 
AAE 
404 


7FO3 


BF6 
ABB 
2F 


94? 


A2E 
AC2 
03 


ADZ 
C6 
C6 
72E2 


F6 
RES 
B46 
8E00 


50C 


D2 
ARB 
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SOIC JOO TOIT TOTO IT OOO TOTO 


x 


Oma 
Hono 


1 


1 


D 
D 
C- 
C 
C-1 
C 
C= 
C 
=C-1 
C 


Boeaes 


x 


SETUP2 
S 
SETUP2 


Copy address first to save code 
Get device type fron D[S] 


Address 

Is 1t a device type (acc id)? 
Yes...continue 

Is it a device ID? 
Yes...continue 

Is it a volune label? 
Yes...continue 


* This is either address, NULL, or LOOP 
x 


SETUPO GOSUB 


SETUPx C=D 


SETUP, (C=0 


ke 
x. 


SETUP1 

x 

* Device type 
x 


C=0 
C=C+C 
C=C4+C 
GOSUB 
C=D 
CSR 
C=B 
C=C+1 


Cslc5 
A 

W 

x 

15 
=DsNull 
0 

S$ 
SETUP, 
XS 

S 


GOSUBL =CSLC4 


GONC 


ke 
xe 


SETUP2 


SETUPx 


Rotate 5 nibbles (so C=0 A works) 
Clear device type (address=0) 


Now C[6:0] 1s set up! 
Check if NULL 


Not NULL 

NULL...set C[X]="FOO" 
Clear flag for WILL fit... 
Return... WILL fit in entry! 


Clear high nibbles of C(A] 


C{3] 1s now loop # 

Put loop # into C[S] 

C{3] is sequence # now 

C{2] is sequence # 

C{X] is sequence #, type 

Now loop + 1 in C{S] 

C{6:4] 1s seq #, type; C[3}=loop 


Go always! 


* Whether this is a device ID or a volune label, the following 
* is all the sane! 


* 
C=0 
C=D 


A 
KS 


Loop*4 to C[XS] 
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600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
623 
630 
631 
632 
633 
634 
635 
636 
63? 
638 
639 
640 
641 


” 
ce 


643 
644 
645 
64b 
64? 
648 
649 
650 
651 
662 
653 
654 


F3E28 
F3E2A 
F3E2C 
F3E2E 
F3EX 
F3E33 
F3E36 
F3E39 
F3E3B 
F3E3E 
F3E41 
F3E45 
F3E49 


C6 
C6 
F2 
23 
A8B 
BF2 
ABB 
2F 
4 
A4B 
80F F 
80F 3 
03 
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C=C+C 

C=C+C Now loop # in C[3] 

CSL Loop # to C[4] 

p= 

C=) Copy D[3] (sequence #) 


C=D Copy true address to C[X] 
p= 
LC(1) 
C=C+D 
CPEX 5 Set C[SJ="F", P=type+4 

CPEX Store type in C[3], set P=0 


RTNCC Return, C{S]="F" (won’t fit) 
JOU I I IO ITI III TIO TI TO III ITT IIT I 


FOO IOI IOI TOU OTTO TTT TTT TIS TIN 
ax 


a 

A 

A 

3 

P 

CSL W Loop # to C{5], seq # to C[4] 

x 

1 

4 Offset fron O[S]) value for table 
S 

1 

3 


** Nane: SAVEIT - Save device info at (D1) (7 nibbles) 
kt 

** Category:  PILUTL 

xk 

kk Purpose: 

xe Save device descripter entry @ D1 

kx 

** Entry: 

xs D1 @ destination entry 

ae B,C are exit conditions of SETUP 

ah 

RSENS 

a Carry clear, P=0 (Error exits directly) 

x 

kx Calls: CSRC3;4;5,CSLC4;9, I/OALL, 1/OFSC,1/ODAL 
xx 

BEOUSOS 65 oes 

** Exclusive: A,B,C,D,R2,R3,D0,01,P 

** Inclusive: A,B,C,0,R2,R3,00,01,P 

re 

** Stk lvls: 3 (I/OALL)(I/ODAL) 

wa 

** Algorithn: 

zx Check if entry will fit in ? nibbles: 
ie If will not fit, goto SAVE 

ae SAVEIO:Read old entry; urite new entry 

ae If old entry used buffer, deallocate the buffer 
+” RINCC 

aa gine 

ee SAVEI1:Create a buffer for the entry 

ax Write the entry 

xs Build the info for the 7? nibble field 
ae Goto SAVEIO 

rs) 

** History: 

x 

a Date Progranner Modification 
MN: wot ek | eee ee || ee Se ee Se eh ee Be 


Be 07/21/83 NZ Changed error exit to direct exit 
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655 KK 11/12/82 NZ Added docunentation 
656 a 
657 FORO ITO OOOO TT TOTTI TOTO 
658 JO OUI IOI IO TO IIT K 
659 F3E4B 94E =SAVEIT 7CHO) = S$ Does this need an I/0 buffer? 
660 F3E4E 92 GOYES SAVEI1 Yes...needs I/O buffer! 
661 & 
662 * Will fat am IS-xxx entry...urite it! 
663 x 
664 F3E50 15B6 SAVEIO A=DAT1 7 Read old type... 
665 F3E54 15D6 DAT1=C 7 ...urite new type... 
666 x 
667 * Now check if old type used an I/0 buffer 
668 x 
669 F3E58 AFG C=A W Must be WORD for CSRC4 below!!! 
670 F3E5B 8003 P=C 3 Check code nibble 
671 F3E5F 890 ?p= =SngDev 
672 F3E62 20 GOYES SAVEI- Single iten I/0 buffer 
673 F3E64 20 SAVEI- P= 0 
674 F3E66 500 RTNNC Done if no carry! 
675 F3E69 7582 GOSUB Csrc4 Buffer # in C[X] nou 
676 F3E6D 8E00 GOSUBL =I/odal Deallocate the buffer 
00 
677 F3E73 20 P= 0 
678 F3E75 03 RTNCC 
679 x 
680 x 
681 F3E77 SAVET1 
682 x 
683 : Will NOT fit in IS-xxx entry...create a buffer &urite it out 
684 
685 * C[X] is true address, C[4] is sequence #, C[5] is loop # 
686 * D[S] is type 
687 x 
688 F3E77 7772 GOSUB Csrc4 
689 F3E7B ACB C=) S Save D[S] in C (--> R2) 
690 F3E7E 8E0O GOSUBL =CSLC9 C[8:5] is type, addr 
00 
691 F3E84 137 CDIEX 
692 F3E87 108 R3=C Save D1 in R3[AJ,info in R3{11:5] 
693 F3E8A AFS C=B W 
694 F3E8D 10A R2=C Save B[W] in R2 
635 F3E90 8E00 GOSUBL =I/0FSC Find I/0 scratch buffer 
00 
696 F3E96 425 GOC NORAMe Error...no buffers (eMEN?) 
697 x 
698 * Now Buffer ID in C£X] 
699 x 
700 F3E99 D5 B=C A Save ID in B[X] 
701 F3E3B D2 C=0 A 
702 F3E9D 3131 LC(2) 19 Need 19 (decinal) nibs for it! 
703 F3ER1 OD BCEX A 
704 F3ER3 8FOO GOSBYVL =I/0ALL Allocate a buffer for this! 


000 
705 F3EAR 5E3 GONC NORAMe Error (eMEN?) 
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706 
70? 
708 
703 
710 
711 
712 
113 


714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
ies 
726 
72? 
728 
729 
730 
731 
732 
733 


734 
735 
736 
73? 
738 
739 
740 
741 
742 
743 
744 
745 
746 
74? 
748 
749 
750 
751 
752 
753 
754 
765 
756 
{52 
768 


F3ERD 
F 3EB0 
F3EB3 
F3EB? 
F3EB9 


F3EBF 
F3EC3 
F3EC6 
F3ECA 
F3ECD 
F3EDO 


F3ED4 
F3ED? 
F3EDB 
F3EDD 
F3EEO 
F3EE2 
F3EE5 


F3EE9 
F3EEB 


118 
135 
7832 
Dd? 
8E00 
0 
1523 
165 
15C2 
162 
11A 
1547 


RB6 
7022 
23 
300 
20 
ABB 
6A6F 


20 
8000 
00 


BASIC UTILITIES <840104.1515> Tue Jan 17, 1984 11:52 an 


Page 14 
k 
* 01 @ data start, DO @ buffer ID 
x 
C=R3 Recover the first info 
D1=C Recover pointer to save area 
GOSUB Csrc5 Move address to C[X] 
D=C A Save address in D[X]} 
GOSUBL =CSRC3 Move Loop, seq #, type to C[X] 
A=DATO X Read buffer ID... 
DO=D0+ 6 ..- point to data area... 
DATO=C 3 Write out the seq #, loop, type 
DO=D0+ 3 Point to next area 
C=R2 Recall dev word 
DATO=C W Write out the device ID/vol label 
k 
* Nou set up the descriptor entry! 
k 
C=A x Get buffer ID 
GOSUB Cslc4 ID --> C{6:4) 
P= 3 
LC(1) =SngDev Single iten buffer 
P= 0 
C=) Xx Recall address! 
GOTO SAVEIO Write it out, check old buffer 
k. 
x. 
=NORANe P= =eNORAN Insufficient nenory 
GOLONG =ERRORX Set it up! 


FIJI ICICI III IOI CII I OORT TI TO TI TO TOT 
FOI IO OOO TOIT TO OO ITO 
ak 


kk Nane: RESTOR - Clear "OFFED" bits in IS table entries 
kk 


** Category:  PILUTL 
ak 

** Purpose: 

aR Reactivate all devices (clear their OFFED bits) 
ak 

*k Entry: 

xe Nothing 

ak 

a* Exit: 

aa Carry clear 
xk 


** Calls: Nothing 
as 

RP USOShgecaew 5 

kk Inclusive: C[XS],D0 
ah 


kX Stk lvls: 1 (Internal GOSUB) 
ak 


** NOTE: Does not alter P! 
kk 
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759 
760 
761 
762 
763 
764 
765 
766 
767 


768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
794 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 


F3EF1 1B00 
000 

F3EF8 7300 

F3EFC 166 


F3EFF 1562 
F3FO3 B26 
F3FO6 AZE 
F3FO9 4D0 
F3FOC OB 
F3FOE 848 
F3F11 OB 
F3F13 1542 
F3F17 03 
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*® History: 
ae 


AE Date Progranner Modification 

He leeteecy ledese ee: plete e eA use ete et 
ek 41/12/82 NZ Added docunentation 

hk 


FORO ITO IIIT TTI II III ITI ITAA I IST SIT IITA III 
FOTO JI II IOI TTT TTT TD TIT ITN 


=RESTOR DO=(5) (=IS-DSP)+3 IS-DSP+3 


GOSUB PILCNs 
DO=DO0+ 7 IS-PRT+3 
k 


* Fall into PILCHs for IS-PRT, return carry clear 
& 


PILCNs C=DATO KS 
C=C+1 XS 
C=C-1 XS 
GOC PILCns If "Fxx", leave as is! 
CSTEX 
ST=0 11 Clear OF Fed flag 
CSTEX 
DATO=C XS 


PILCns RITNCC 
JOD TOGO OOO IEICE i 


FOOTIE TTT TI TI IIIT TTR II 
ak 


** Narie: GETSTR - Set up for string/literal expression 
ae 

** Category: EXCUTL 

KA 

** Purpose: 

ae Set up either a literal or string expression 

a 

AX ERT? 

xe DO points to the iten in menory 

kk 

AX EMAti 

ak If error, takes hard error exit (EXPEXC, REVPOP) 

7 Carry clear 

xX ST(=sSTK)=0: DO points to the first character 

an ST(=sSTK)=1: Dray is the end of the string 

ae D1 points to the first character 

ak ALA] is the string length in nibbles 

tok 

t* Calls: EXPEX+, RESTST, REVPOP, D1=AVE 

xk 

RR USES se oe 

xk Exclusive: A, C,D, DO, D1,P, ST[SSTK] 
*k Inclusive: A,B,C,D,RO,R1,R2,R3,R4,00,D1,P, FUNCxx, ST[11:0] 
kk 

** Stk lvls: 5 (EXPEX+) 

kk 

xk History: 

ke 
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813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
82? 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 


844 
845 
846 
847 
848 
849 
850 
851 


852 
853 
854 
855 
856 
85? 
858 
859 
860 
861 
862 
863 
864 
865 


F3F19 840 
F3FIC 148 


F3F1F 20 
F3F21 3100 
F3F25 962 
F3F28 83 


F3F2A 161 
F3F2D 3100 
F3F31 962 
F3F34 C2 
F3F36 181 


F3F39 74C1 
F3F30 7401 
F3F41 8FOO 


F3F48 850 
F3F4B 137 
F3FSE D7 
F3F50 C2 
F3F52 8E00 

00 
F3F58 145 
F3F5B DF 
F3F5D 135 
F 3F60 03 
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x Date Progranner Modification 
Wis wbeceke - eehe ee,  utowl te en ies Se 
*K 03/16/83 NZ Changed EXPEXC to EXPEX+, added 
ae call to RESTST 
ak 11/12/82 NZ Added docurientation 
kk 


JOTI ICO OI IIIT IK 
JOTI OTITIS OCU IO ITI 
=GETSTR ST=0 8 =sSTK 

R=DATO B Read in the first character 
k 


* Check first if this is t*! 
& 


P= 0 

LC(2) =tCOLON Check if device spec, no filenane 
*A=C OB Is this device spec? 

GOYES GETST1 Yes...exit, sSTK=0, DO @ tCOLON 


* This is not a literal device spec...check literal file spec 
x 


DO=D0+ 2 If literal filespec, skip tLITRL! 
LC(2)  =tLITRL 

7A=C OB Is this a literal filespec? 
GOYES GETST1 Yes,..exit, sSTK=0, skip tLITRL 
DO=D0- 2 No...undo DO=D0+ 2 done above 


* This is not a literal, therefore nust be a string expression 
x 


GOSUB EXPEX+ Save status, evaluate the string 
GOSUB Restst Restore status bits 
=GETST+ GOSBVL =REVPOP Reverse it and pop it! 


x 
* Now ALA] 1s the length, D1 points to the first byte! 
x 


ST=1—-=sSTK This 1s off the stack! 
CDIEX 
D=C A Save start of string in D[A] 
C=C+A A Now C[A] points to string end 
GOSUBL =D1=AVE 
DATI=C A ...urite it out... 
CDEX A ...put end in D[A], start in C[A] 
b1=C avec put-at Dl. 

GETST1 = =RINCC ...and return with all set up! 


CCC COSC S SSCS ESC CSS ESS SOSS ESS SCC CC SCSSSSSSS.555.5558505 6065565503 
FORO IOI IO IOI IIIT 
ak 


** Narie: NXTCHR - Get next character fron input 
he 


Xk Category:  EXCUTL 

aK 

%* Purpose: 

ae Get the next character fron the input string 
xk 
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866 ek Entry: 
867 RK D1 points to next byte, if any 
868 an ST(sSTK) is status: 1--> Reading fron stack 
869 ze O--> Reading fron progran nenory 
870 IF ST(sSTK)=1, D[A] is the end of the string 

871 

: 872 ak Exit: 
873 aK P=0 if sSTK=0, P=(unchanged) if sSTK=1 
874 ak If carry clear, A[B] is the next byte 
875 am If carry set, reached end of string 
876 . (If sSTK=0, A[B] is terminating character) 
877 
878 ** Calls: None 
879 ah 
880 && Uses....... 
881 - Inclusive: A[B],D0,D1,P (DO if sSTK=0, D1 if sSTK=1) 
882 x 
883 *k Stk lvls: 0 
884 ak 
885 ** History: 
886 ax 
887 xa Date Prograriner Modification 

888 AR eset ayen” poeeesetne -JesdusgaJseaecceesaa—seeneesesce 
889 ek 41/12/82 NZ Added documentation 
890 tk 
894 JOKE TOT IIIS IST ISAS I IAIN 
892 JORIS OT IIIS IT SE IIA I IIIS II IASI ISSO SI II SOSA 
8393 F3F62 870 =NXTICHR ?ST=1 =sSTK 
894 F3F65 71 GOYES NXTCH1 
895 F3F67 14A A=DATO B 
896 F3F6R 21 P= 1 
897 F3F6C B04 A=A+1 P 
898 F3F6F AOC A=R-1 P 
899 F3F72 20 P= 0 
900 F3F74 400 RTNC 
901 F3F77 161 DO=D0+ 2 
902 F3F7A 03 RTNCC 
903 aL 
904 * 
905 F3F7C 148 NXTCH1 A=DATI B 
906 F3F7F 137 CDIEX 
907 F3F82 8BF 70>=D A 
908 F3F85 20 GOYES NXTCH2 
909 F3F87 137 WKTCH2 CDIEX 
910 F3F8A 400 RTNC 
911 F3F8D 171 D1i=Di+ 2 
912 F3F9O 03 
913 JI ITI I III TIS III III OI ITT II IIIS IIT III IIT ATI ISI III ASIN. 
914 $2 IU OO TI TI III O SI III III IIIT IOS III IIIS IIIT SII IIIS 
915 ax 
916 ** Name: LSTCHR - Unsupported entry point 
917 aK 
918 *k Category: LOCAL (EXCUTL) 
919 ae 


920 ** Purpose: 
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921 kk Inverse of nxtchr (Reverses the pointers) 
922 ax 
923 *k Entry: 
924 xe Sane as NXTCHR 
925 am 
926 ek Exit: 
927 ae DO or D1 adjusted to the last character 
928 ae A[B] is the last character 
929 r Carry set if DO/D1 NOT changed 
930 tx 
931 **k Calls: None 
932 am 
933 aK USES. 0.055. 
934 tx Inclusive: A[B],00,D1,P 
935 aa 
936 ** Stk lvis: 0 
937 a 
938 ** Detail: 
939 ax NOTE!!! If reading fron progran renory AND NEXT char 
940 x is a terminator, LSTCHR will NOT back up! 
941 ak 
942 ** History: 
943 aX 
944 ae Date Prograriner Modification 
945 PR MDE “pelt teed Sore Se Se tae kee eee ena 
946 - 11/12/82 N2 Added docunentation 
4 
a JOO I IG ITI CI TI STII TR TTT ATE IIE 
949 JO IOI II OI IOI II IIIT IIT ITI TT ITT 
950 F3F92 870 =LSICHR ?ST=1 =sSTk 
951 F3F95 At GOYES LSTCHI1 
952 F3F97 14A A=DATO B 
953 F3F9A 21 P= 1 
954 F3F9C B04 A=A+1 P 
955 F3F9F AOC A=A-1  P 
956 F3FA2 400 RTNC 
957 F3FAS 181 DO=D0- 2 
958 F3FA8 14A A=DATO B 
959 F3FAB 20 P= 0 
960 F3FAD 03 RTNCC 
961 a 
962 a. 
963 F3FAF 137? LSTCH1 CDIEX 
964 F3FB2 8BF *C>=D A 
965 F3FB5 20 GOYES LSTCH2 
S66 F3FR7 137 LSTCH2 CDBIEX 
467 F3FBR 400 RTNC 
968 F3FBD 1C1 D1=D1- 2 
969 F3FCO 03 RTNCC 
970 JUSSI IEISIIOIIII UI ISIE OI GI III IIR RIK 
971 JUSSI OIE USGI SIT IIS I IO 
972 ts 
973 * Nare: BAKCHR 
974 as 


975 ** Category:  EXCUTL 
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976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
389 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
102 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
19011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
102? 
1028 
1029 
1030 


F3FC2 870 
F3FC5 70 
F3FC? 181 
F3FCA 03 


F3FCC 1C1 
F3FCF 03 
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ka 
** Purpose: 
i Unconditionally back up one character (undoes the 
is operation of NXTCHR, only IF a NXTCHR has been done) 
kx 
** Entry: 
4% ST(=sSTK): 
aK 1: Reading fron stack (@ 01) 
ax 0: Reading fron nenory (@ DO) 
kk 
Kk Exit: 
a DO/D1 adjusted according to sSTK 
ax Carry clear 
ka 
k* Calls: None 
ka 
RR USES i060: 
xk Inclusive: DO,D1 (DO if sSTK=0, D1 af sSTK=1) 
re 
X* Stk lvls: 0 
xk 
** Detaal: 
Kx Allows backing up input strean one character if the 
As caller knows that there 1s a character before current 
ie character 
x 
** History: 
rs 
sal Date Progranner Modification 
e acetcage. (Ser teatee, “Ege rsaasiatt uc ast ocesesotesoo os 
kx 09/26/83 NZ Updated docunentation 
11/12/82 NZ Added docunentation 
&K 


FOI III IOI TIO TOTTI TIT TOR III TIT IGN 
FOO III TO IOI ITO IIIT TOR TTI ION 


=BAKCHR ?ST=1 =sSTK 


GOYES BAKCH1 String...back up 01 
DO=D0- 2 Literal...back up DO 
RTNCC 

x 

ke 

BAKCH1 D1=D1- 2 Back up D1 


FORO IIT ITI TI TIT ITT TO IO TIT I 
FORO OOO TR FO II IE SRI TIKI IK 
xx 


xx Nane: GETHEX - Evaluate literal expr, return hex value 
kk 


** Category:  GENUTL 

Kk 

** Purpose: 

= Get the value of an expression in progran nenory 
ak 

kk Entry: 

ot DO points to the expression in program nenory 
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1031 
1032 
1933 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1082 
1053 
1054 
1065 
1056 
105? 
1068 
1059 
1060 
1061 
1062 
1063 
1964 
1965 
1066 


1067 
1068 
1063 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 


F3FD1 
F3FD5 
F3FD9 
F3FDD 
F3FEO 
F3FE3 


F3FES 
F3FE? 


F3FE9 


F3FEF 
F3FF2 
F3FF4 
F3FF7 
F3FF9 
F3FFB 


F3FFD 
F3FFF 


7021 
7031 
75E0 
09 
398A 


8E00 
500 


24 


RC 


03 
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aK 
KX Exit: 
xk Carry clear: HEX value in A[3:0], A[4]=0, P=0 
= Carry set: Error (P=error #) 
xk 
&* Calls: EXPEX+, FLIDH, AVN+16, RESTST 
kk 
ek Uses....... 
** Exclusive: C, p 
kk Inclusive: A,B,C,D,RO,R1,R2,R3,R4,00,01,P, FUNCxx 
kx 
** Stk lvls: 5 (EXPEX+) 
kA 
** History: 
xk 
xx Date Progranner Modification 
Packt Let ee pe heel Go tit hater hi are 
Kk 03/16/83 NZ Changed to EXPEX+, added RESTST 
KK 11/12/82 NZ Added docunentation 
kok 


FOI III III TOI TTT OI ICICI ICICI OI IOI ITOK 
FOI I TI TTI OT TT OT III 


=GETHEX GOSUB EXPEX+ Save status, call EXPEXC 
GOSUB Restst Restore status 
GOSUB AVN+16 pop it off the stack, reset AVMENE 
LCHEX 9 
2C>=A OP Real nurber? 
; GOYES GETHE1 Yes! 


* Not real...nust be complex or string? 
k 


P= =eNNUMR Not real nunber! 
RTNSC 
k. 
ke 
GETHE1 GOSUBL =fLTDH Convert to HEX number 
CONC § GETHE3 Either <O OR too big...error! 
P= 4 OK nuttber...check MY range! 
?AHO | OP 
GOYES GETHE3 Positive, four or fewer digits 
GETHE2 P= 0 Reset P=0 
RTNCC 
RL 
x 
GETHE3 P= =eRANGE Range error! 
RTNSC 


FORREST TORII OIG OIG III GIO 
ORI OOOO III IOI OOOO OO IOI IO 
ws 


*x Nane: GTYPRN - Get one-byte hex value fron literal 

*% Nane: GTYPR+ - Clear status bits 11:0, GTYPRM 

%* Nane: GHEXBT - Pop nurber off stack, get hex byte value 
** Nane: GHEXB+ - Use A[W] as value, convert to hex byte 
xt 
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1085 ** Category:  EXCUTL 
1086 - 
1087 ** Purpose: 
1088 aa Given DO pointing to a nuneric expression in progran 
1089 ie nenory, return the HEX value of the expression 
1090 = 
1091 ek Entry: 
1092 a ST(sSTK)=0: DO points to the expression 
1093 a ST(sSTK)=1: A[W] contains a floating nurber 
1094 aa 
1095 ak Exit: 
1096 ak If carry clear, B[B] 1s the HEX type, B[4:2]=0,P=0, 
1097 an C{B}=(DevTyp), C(XS]=0 
1098 ak If carry set, error (P=type) 
1099 xx 
1100 kk Calls: EXPEX+, RESTST, AVN+16, FLTDH 
1101 aR 
1102 ak Uses....... 
1103 &k Exclusive: A,B,C, P 
1104 ** Inclusive: A,B,C,D,RO,R1,R2,R3,R4,D0, 01, P, FUNC xx 
1105 ax 
1106 ** Stk lvls: 5 (EXPEX+) 
1107 ak 
1108 ** History: 
1109 ak 
1110 - Date Progranner Modification 
1114 RR ee mewee ee cew renee semen en enn nnn nn ee nnn n nnn nen nena 
1112 ek 03/16/83 NZ Changed to EXPEX+, added RESTST 
1113 kk 03/02/83 NZ Added GTYPR+ entry point 
1114 11/12/82 NZ Added docunentation 
aie SII IIS III II III IIT III TIT TI IIIT ITI II IIIS II OSI SSI II ISI ISIS II IIIA 
1117 II III II IIT IST ISI OT IIIT OTITIS STITT ISIS SOS SSSI SITS ISI SI SSS SSSI S 
1118 F4001 08  =GTYPR+ CLRST Clear all status bits 
1119 F4003 20 =GTYPRM P= 0 
1120 F4005 870 ?ST=1  =sSTK Is expression in A[W] now? 
1121 F4008 EO GOYES GTYPRO Yes... skip EXPEX+ 
1122 F400R 73F0 GOSUB EXPEX+ Expression execution 
1123 F4Q0E 7301 GOSUB Restst Restore status 
1124 F4012 7CAO =GHEXBT GOSUB AVM+16 Add 16 to AVNENE 
1125 F4016 =GHEXB+ 
1126 F4016 309 GTYPRO LCHEX 9 
1127 F4019 986 7C<A OP 
1128 F401C C1 GOYES GTYPRe Not a floating nunber...error 
1129 F401E 8E00 GOSUBL =fLTDH Convert to HEX 
00 
1130 F4024 571 GONC GTYPRr Error! 
1131 F4027 D1 B=0 R 
1132 F4029 AEC ABEX 8 Check if A[4:2] is zero 
1133 F402C 8AC AHO OA Zero? 
1134 F402F DO GOYES GTYPRr No...range error! 
1135 - 
1136 * Now B[A] is the ID in HEX 
113? x 


1138 F4031 3200 LC(3) =DevTyp This 1s a device TYPE! 
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0 


1139 F4036 01 


1140 
1141 
1142 
1143 
1144 
1145 
1146 
114? 
1148 
1149 
1150 
1151 
1182 
1183 
1154 
1165 
1156 
115? 
1158 
1153 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1194 
1192 


F4038 
F403A 


F403C 
F403E 


F4040 
F4042 
F4045 
F4047 
F4048 
F404F 
F4053 
F4056 


20 
02 


20 
02 


20 

870 
EO 

7680 
7600 
7Fe0 
AF 6 
AF? 
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RTN 
t 
GTYPRe P= =eNNUMR 
RTNSC 
k. 
ke. 
GTYPRr P= =eRANGE Out of range! 


FOI IOI UO Or 
FOI III III ITI TE ITT TTT TIT NIT 


ak 
xx 
ak 
ak 
xk 
xk 
ak 
xk 
xk 
ax 
xx 
xk 
KK 
xx 
xk 
xk 
xk 
xk 
ak 
ae 
xR 
aK 
ak 
ak 
x 
xk 
ak 


ak 
xk 
a 
a 
xk 


Nane: GADRRM - Get HPIL address fron progran menory 
Narie: GADRR+ - Get HPIL address fron stack value 


Category:  PILUTL 


Purpose: 
Get an HPIL address fron progran nenory 


Entry: 
ST(sSTK)=0: DO points to the expression in progran nen 
ST(sSTK)=1: ALW] contains a floating number 
Exit: 
Carry clear: C[X] 1s the HPIL address, P=0 
Carry set: Error (P is error #) 
Calls: EXPEX+, RESTST, AVMN+16, GHEXB+ 
Exclusive: A,B,C,D, P 
Inclusive: A,B,C,D,RO,R1,R2,R3,R4,00,D1,P, FUNCxx 
Stk lvls: 5 (EXPEX+) 


History: 

Date Progranner Modification 
07/13/83 NZ Added check for prinary addr=0 
03/16/83 NZ Changed to EXPEX+, added RESTST 
11/12/82 NZ Added docurentation 


JORG OI JOT IO OT HO IGIG OO GIO IIIS IGIOI IOI IOI III 
FOR III OGIO IO II III IH OI IO III 


=GADRRM P= 0 
?ST=1 0 =sSTK Is expression already in A[W]? 
GOYES GADRRO Yes...skip EXPEX+ 
GOSUB EXPEX+ EXPression EXCution 
GOSUB Restst Restore status bits 
=GADRR+ GOSUB AVN+16 Skip the iten 


GADRRO C=A W 


b=C W Save the expression in D 


1203 
1210 
1211 
1212 
1213 F4089 DO 

1214 F408B BFO 
1215 F408E 948 
1216 F4031 70 

1217 F4093 BF4 
1218 F4096 £4 

1219 F4098 7A7F 
1220 F409C 400 
1221 
1222 
1223 
1224 
1225 
1226 


FAOSF 31F1 
F40R3 9E1 
F40R6 81 
1227 F40R8 SEB 
1228 F4ORB 31 
1229 F4ORD 96B 
1230 F40B0 £0 
1231 F40B2 D9 
1232 F40B4 Fe 
1233 F40B6 C6 
1234 F40B8 OEFF 
1235 FAOBC 03 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 


F40BE 20 
F40CO 02 
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1193 F4059 798F GOSUB GHEXB+ Get HEX byte (Prinary address) 

1194 F405D 400 RTNC Error...range error 

1195 F4060 D9 C=B A 

1196 F4062 AFF COEX WwW Save IP in D[A], get back expr 

1197 F4065 AFA A=C W Put expression in A[W]} 

1198 F4068 34C AHO OCS 

1199 F406B 35 GOYES GADORr Negative!! 

1200 F406D 3260 LC(3) 6 If exp >6 (or negative), error! 
0 

1201 F4072 9B6 PAC OX 

1202 F4075 94 GOYES GADDRr Error (range) 

1203 F4077 A86 C=A P 

1204 F407A B8E C=-C-1 P 

1205 F407D 8000 P=C 0 Now P-->First fractional digit+2 

1206 F4081 BDO GADRR1 ASL nN 

1207 F4084 OC P=P+4 

1208 F4086 SAF GONC  GADRR1 Go if not done yet... 


x 


* Now the mantissa is properly adjusted to the fractional part 


* (The mantissa has the original integer part renoved) 
x 


A=0 A 

RSL WW Nornalize the nunber'! 

7AZ0) SS 

GOYES GADRR2 Now is normalized! 

ASR W 

A=A+1 A Exponent=1 neans use 2 digits 
GADRR2 GOSUB GHEXB+ 

RTNC GHEXB+ sets HEX node 


x 


* Now B[B] is secondary address, D{B8] is prinary address 
x 


Lt(2) 31 Check range of secondary address 
7BoC «6B Is it legal range? [0,31] 
GOYES GADDRr No!!! 
*D>=C B 
GOYES GADDRr Bad prinary range! 
70-0 «iB 
GOYES GADDRr Prinary must be >0! 
C=B A 
CSL A Shift the secondary address left 
C=C+C A 5 bits...then OR with D[X] 
C=C'D A Now address is in C[X] 
RTNCC 
ke 
x. 
GADDRr P= =eRANGE 


FOI ITT TTT TTT TIT ITT TO TTT 
FOO IOI TIT TT IIT TTT TI I TIT ITI II TT ITI IT KITE 
ak 


xx Nane: 
ak 


xk Category: 
ka 


AVN+16 - Pop a nuneric value fron AVMENE 
PTRUTL 
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1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
125? 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
127? 


1278 F40C2 AC2 
1279 F40C5 450 


1280 
1281 


1282 
1283 
1284 
1285 
1286 
1237 
1288 
1283 
1290 
1291 
1292 
1293 
1294 
1295 


1296 
1297 
1298 
1299 


F40C8 
F40CB 


F401 
F40D4 
F40D? 
F40DA 
F400D 
F40EO 
F40E3 
FA0E6 
F4OER 
F40ED 


F40EF 
FAOF2 


F40F8 
F40FB 


B46 
8EOO 
00 
147 
13? 
17F 
13? 
145 
135 
iCF 
1537 
A4E 
01 


816 
8000 
00 


82 
8000 


xk 
ax 
ax 
xk 
ak 
ak 
xx 
ax 
wk 
ak 
ax 
xx 
ak 
ak 
xk 
ax 
ak 
aK 
an 
a 
ax 
xx 
xx 
xk 
x 
xx 
ak 
xa 
ak 
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Purpose: 
Add 16 to AVMEME (to skip a nuneric expression) and 
read in the value at the old D1 
Entry: 
AVMEME stack has a nuneric iten 
Exit: 
A{W}] contains the old stack data iten 
D1 points to old (=RAVNENE) 
C(A] is NEW =RVMENE 
Carry unchanged 
Calls: DI=AVE 
Uses....... 
Inclusive: A[W],C{A],C{S],01 
Stk lvls: 1 (D1I=AVE) 
NOTE: Preserves carry!!!! 
History: 
Date Progranrer Modification 
07/13/83 NZ Added read of A[W] 


11/12/82 NZ Added docunentation 


II III OID IOI I TOTO TIO TIT ITI ITI IK 
III III OO TT TOTO TIT TI TIO 


=AVN+16 C=0 S 


Save carry status in C[$] 
GOC AVM++ 
C=C+i § 


AVMN++  GOSUBL =D1=AVE 


we 
ke 


C=DAT1 A 

CDIEX 

D1=D1+ 16 

CDIEX 

DAT1=C A 

pi=C Leave 01-->AVNENE-16 

D1=Di- 16 

A=DAT1 W Read in the value to A[W] 

C=C-1 S$ Sets carry if zero, else clears 
RIN 


Csrc5  CSRC 
Csrc4  GOLONG =CSRC4 


x 
x. 


Csle5  CSLC 
Csic4 GOLONG =CSLC4 
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00 
1300 - 
1301 h. 


1302 F4101 8E00 =EXPEX+ GOSUBL =SAVEST 
00 


1303 F4107 8D00 =eXPEXC GOVLNG =EXPEXC 


000 
1304 a 
1305 x. 
1306 F410E 8D00 =1/O0FND GOVLNG =1/OFND 
000 

1307 a 
1308 x. 
1309 F4115 8COO Restst GOLONG =RESTST 
1310 2 JUG OOOO TOO TO IR ASR 
1311 TORI IIR JOTI OI Or 
1312 ak 
1313 tk Nane: CHKAIO - Check if device is an ASSIGN WORD 
1314 ak 
1315 ** Category:  PILUTL 
1316 ax 
1317 *k Purpose: 
1318 aK Check if a string 1s an ASSIGN WORD (if s0, return 
1319 aK its value) 
1320 Rk 
1321 ** Entry: 
1322 aK B contains a string (B[B}] 1s the first character, any 
1323 ax unused characters are #00) 
1324 ax 
1325 tk Exit: 
1326 tk P=0 
1327 a Carry set if buffer not found or not an ASSIGN WORD 
1328 ak Carry clear if found...address in C[X] 
1329 AX 
1350 *k Calls: CSLC5, ASRC5, 1/OFND 
1331 am 
1332 RK Uses....... 
1333 *® Exclusive: A{W],C{W],P 
1334 tk Inclusive: A[W],C{W],P 
1335 ae 
1336 ** Stk lvls: 1 (I/OFND)(CSLCS)(ASRC5S) 
133? x 
1338 ** History: 
1339 xx 
1340 AY Date Prograrner Modification 
1341 RK mae w ern een n nnn teen nn enn nnn enn nn ne nnn ence e nn ene 
1342 Rk 11/12/82 NZ Added docunentation 

xx 
i JOG SIC OGIO TO GSTS COT TI 
1345 JU UICC OOO ICCC TOIT 
1346 F411B 137 =CHKAIO CDIEX Save D1 from I/OFND in C[9:5) 
1347 F4a11E 7edF GOSUB Cslc5 
1348 F4122 20 P= 0 


1349 F4124 3200 LC(3) =bPILAT ASSIGN IO buffer ID 
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1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
136? 
1368 
1369 
1370 
4371 
1372 
1373 
1374 
1375 
1376 
1377 


1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
138? 
1388 
1389 
13% 
1391 
1392 
4393 
1394 
4395 
1396 
139? 
1398 
1339 
1400 
1401 
1402 


0 
F4129 71EF 
F412D AFA 
F4130 AF2 
F4133 04 
F4135 490 
F4138 2F 
F413A OC 
F413C 4F14 


F413F 20 
F4141 DO 
F4143 £4 
F4145 31F1 
F4149 SEE 
F414C £0 
F414E 15F3 
F4152 173 
F4155 975 
F4158 BE 


F415A D6 
F415C 8E0O 
00 
F4162 131 
F4165 01 


Me OF OF Ot 


CH 
CH 


x 
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GOSUB 1/OFND 
A=C W 

C=0 W 
SETHEX 

GOC CHKAIO 
P= 15 
P=P+1 

GOC CHKAT3 


Di--> Table of assignnents 


0 
A 
+1°=A 
2) 31 
7A>=C 2B 
GOYES CHKAI2 
C=DRT1 4 
D01=D1+ 4 
7BRC OW 
GOYES CHKAI1 


KAIO 
KAT 


15> Tue Jan 17, 1984 11:52 an 
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1/0 FiND 
Save D1 in A[9:5] 
Found... 


Set carry, P=0 
Go always (not found...restore D1) 


(length of 30 entries*4 nibbles) 


Address counter 
Increnent A[B] 
Check if done 


Done...not found! 


Not a match. 


* If carry clear, found it; else not found 
x 


CH 
CH 


KAI2 (C=A A 
KAI3 GOSUBL =ASRC5 


D1=A 


Copy address to C[X] 
Not found! 


Restore D1 
Return, carry unchanged 


JOO III IIIT III IOI II OT OI TIO 
JOU ICI TOI IOI IOI OO IK 


xs 
ak 
kk 
aX 
ak 
ak 
xe 
xx 
aA 
xr 
ak 
a 


Nane: RONTYP - Check if device 1s a RESERVED WORD 


Category:  PILUTL 


Purpose: 
Check 1f the string 


in B[W] is a RESERVED WORD; if so, 


return the value that corresponds to that word 


Entry: 


B contains the string (B[B] 1s the first character) 


Exit: 
P=0 
Carry clear: B[B] is 
Carry set: not found 


Calls: None 


Uses......0. 
Inclusive: B[A],C{W],P 


the device type; B[XS]=0 


(B[A] only if found) 
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1403 xx 
1404 ** Stk lvls: 1 (Internal call)(internal push) 
1405 BA 
1406 ** History: 
1407 ah 
1408 ee Date Progranner Modification 
1409 RR (eee SesSe: + Setsceeeee- cccececdtacsduceuscscoccotseecsecds 
1410 xk 09/26/83 NZ Updated docunentation 
1411 a 11/12/82 NZ Added docunentation 
x 
i IIIS III IAT III III IIIT IIT IAIIIII IIIS IIS S SII SSS SS SSI ISI III III IIIA 
1414 SIRS III I IAT IS III II SISO ISI ISI II ITI IS SST SSI SSIS ISS TI ISI IIIS IIS IS 
1415 F4167 72A0 =ROMTYP GOSUB ROMTY1 
1416 x 
1417 * TABLE!!! 
1418 x 
1419 % 
1420 * The table entry structure is: 
1421 x 1 nibble: length of name minus 1, in nibbles (n-1) 
1422 x n nibbles: nane (Bytes in order!) 
1423 * 2 nibbles: device type 
1424 - 
1425 * The table consists of entries terninated by length nibble=0 
1426 - 
1427 F416B 7 NIBHEX 7 Length of "TAPE" 
1428 F416C 4514 NIBASC \TAPE\ TAPE: TYPE=10 
0554 
1429 F4174 01 NIBHEX 01 
1430 F4176 D NIBHEX D Length of "MASSNEN" 
1431 F4177 D414 NIBASC \MASSNEN\ MASSMEN: TYPE=1F (MASS MEM. CLASS) 
3535 
D454 
D4 
1432 F4185 F1 NIBHEX F1 
1433 F4187 D NIBHEX D Length of "PRINTER" 
1434 F4188 0525 NIBASC \PRINTER\ PRINTER: TYPE=2F (PRINTER CLASS) 
94E4 
4554 
25 
1435 F4196 Fe NIBHEX F2 
1436 F4198 D NIBHEX D Length of "DISPLAY" 
1437 F4199 4494 NIBASC \DISPLAY\ DISPLAY: TYPE=3F (DISPLAY CLASS) 
3505 
(414 
95 
1438 F41A7 F3 NIBHEX F3 
1439 F41A9 7 NIBHEX 7 Length of "GPIO" 
1440 F41AR 7405 NIBASC \GPIO\ GPIO: TYPE=40 
94F4 
1441 F41B2 04 NIBHEX 04 
1442 F41B4 9 NIBHEX 9 Length of "MODEN" 
1443 F41B5 D4F4 NIBASC \MODEN\ MODEM: TYPE=44 
4454 
D4 


1444 FA1BF 14 NIBHEX 14 
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1445 Faili 9 


1446 


1447 
1448 
1449 


1450 
1451 
1452 


1453 
1454 
1455 


1456 
145? 
1458 


1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
147? 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
148? 


F41C2 


F41CC 
F4iCE 
F4iCF 


F41D7 
F41D9 
F41DR 


F41E8 
F41EA 
F41EB 


Fa1F9 
F41FB 
FATFC 


F420R 
F420C 


F4200 
F420F 
F4212 


F4214 
F42i? 
F4ctA 
F421D 
F4221 
F4224 


F4226 


F422A 
F422D 
FaeH 
F4233 


2535 
2333 
23 
24 

7 
8405 
9424 
4 

D0 
94E4 
4525 
6434 
54 
F4 

D 
94E4 
3645 
25D4 
45 
FS 


7425 
1405 
8494 


F6 
x 


* 
x 
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NIBHEX 9 
NIBASC \RS232\ 


NIBHEX 24 
NIBHEX 7 
NIBASC \HPIB\ 


NIBHEX 34 
NIBHEX D 
NIBASC \INTRFCE\ 


NIBHEX F4 
NIBHEX D 
NIBASC \INSTRAT\ 


NIBHEX FS 
NIBHEX D 
NIBASC \GRAPHIC\ 


NIBHEX F6 
END OF TABLE INDICATOR 
NIBHEX 0 


END OF TABLE! 
x 


O07 =RONTY1 = C=RSTK 


137 


06 
k 


* Loop to process naries... 
x 


CD1EX 
RSTK=C 


AF2 RONTY2 C=O W 


14F 
170 
80D0 
890 
12 


x 


* Have a non-zero length nou! 
x 


1571 
* 


171 
137 
809 
13? 


x 


C=DAT1 B 
D1=D1+ 1 
P=C 0 
ops 0 
GOYES ROMTY3 


C=DAT1 WP 


D1=01+ 2 
CD1EX 
C+P+1 
COTEX 
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Length of "RS232" 
RS232: TYPE=42 


Length of "HPIB" 
HPIB: TYPE=43 


Length of "“INTRFCE" 
INTRFCE: TYPE=4F 


Length of "INSTRNT" 
INSTRMT: TYPE=5F (INSTRNT CLASS) 


Length of "GRAPHIC" 
GRAPHIC: TYPE=6F (GRAPHIC 1/0) 


~» NULL 


Get pointer to table fron stack.. 
..Put it in D1, put D1 in C{A}.. 
..and save D1 value on the stack! 


Read length of the device nord 
Copy length into P 


END OF TABLE?? 
Yes...restore Di, P; carry set! 


Read the device word... 
Increrient 01 by the length +2 


If match, back off the +2! 


* Wou CLM] 1s the device word, zero-filled (if blank-filled is 
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1488 

1489 

1490 F4236 975 
1491 F4239 BD 
1492 

1493 

1494 

1495 F423B 1C1 
1496 

1497 

1498 

1499 F423E D2 
1800 F4240 14F 
1501 F4243 0S 
152 

1803 

1504 

1505 F4245 07 
1506 F4247 135 
1507 F424A 20 
1508 F424C D2 
1509 F424E 3100 
1510 F4252 01 
1511 

1$12 

1513 

1614 

1615 

1516 

1517 

1518 

1519 

1520 

1621 

1622 

1523 

1624 

1825 

1526 

1827 

1628 

1629 

1530 

1631 

1532 

1633 

1534 

1535 

1636 

163? 

1638 

1639 

1540 

1541 

1942 
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: desired, change the C=0 W above to a LCASC \ \) 
BAC OW 
GOYES RONTY2 Not matched! 
; This is a natch...continue! 
Di=Di- 2 Point to device type byte... 


* (Carry is clear fron the statenent above) 
k 


C=0 A Clear C[XS]... 
C=DAT1 B Read device type! 
B=C A Copy C[X] to B[X] 


x 


* Conrion return point! 
x 


RONTY3 C=RSTK 


D1=C Restore D1... 

P= 0 

C=0 A 

LC(2) =DevTyp Device type 

RTN ...and return, carry unchanged! 


FOI JOJO JOT TTT TOTO TTT TTT 
FORO TOIT TOIT TOTO UO 
ak 


** Nane: RDINFO - Read device info fron SAVSTK + POLL 
ah 

** Category:  SAVSTK 

i 

** Purpose: 

ak Read infornation fron the SAVSTK, given one POLL level 
ae in front of the data 

eh 

xk Entry: 

xx ST(=sDEST) is source/destination selector 

kk 

BRO ERE: 

a P=0 

ak A{W] is first 8 chars 

ne RO is last 2 chars 

ak D[A] is device 

kk 

** Calls: None 

ka 

AR USGS 140 00% 

** Inclusive: A[W],C[A],D[A],RO,D1,P 

et 

** Stk Ivlis: 0 

eh 

** NOTE: This is similar to the nainfrane routine by the sane 
a nane except for the first few lines which skip the 
x POLL save area 

ah 


xx History: 
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1543 
1544 
1545 
1546 
1547 
1548 
1649 


1651 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1553 
1560 
1561 
1$62 
1563 
1564 
1565 
1566 
156? 
1568 
1569 
1570 
1671 


F425B 143 
F425E 20 
F4260 D2 
F4262 3100 
F4266 EA 
F4268 131 
F426B 1C0 
F426E 1CF 
F4271 860 
F4274 80 
F4276 1C0 
F4279 1CF 
F427C 1537 
F4280 17F 
F4283 147 
F4286 108 
F4289 173 
F428C 147 
F428F D0? 
F4291 03 
F4293 
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ah 


NZ 
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Tue Jan 17, 1984 


Modification 


we wee ae we ee eee ee ee ewe wee ew eee ee 


Added docurnentation 


FOO IOI TOIT OTT TT TIT TT 
FOO IIIT OI TT TTT TTT TT TN 


1550 F4254 1FOO =RDINFO 01=(5) =SAVSTK 
000 


R=DATI 
p= 

C=0 
LC(2) 
A=A-C 
D1=A 
01=01- 
01=D1- 
?ST=0 
GOYES 
01=D1- 
01=01- 
A=DAT1 
D1=D1+ 
C=DAT1 
RO=C 
D1=D1+ 
C=DAT1 
D=C 
RTNCC 
END 


RDINIO 


1POLSV 


D>DiunyDow 


(=1DEVC)+4 
16 

=sDEST 
RDINIO 
(=1DEVC) +4 
16 

W 

16 

A 


4 
R 
A 


Length of POLL save area 


Di-->device save area 
Length of device +2 chars of nane 
Length of 8 chars of nare 


Skip source info 
First 8 chars 
Nove past then 
Last 2 chars 
~->RO 

Skip last 2 chars 
Device info 

-->D 
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ASRCS ~~ Ext - 1377 

AVM++ Abs 999627 HF40CB - 1281 1279 

=AVN+16 Abs 999618 HF40C2 - 1278 1055 1124 1190 
BRKCH1 Abs 999372 RF3FCC - 1017 1012 

=BAKCHR Abs 999362 #F3FC2 - 1011 

CHKAIO Abs 999743 #F413F - 1363 1354 

CHKAI1 Abs 999747 #F4143 - 1365 1372 

CHKAI2 Abs 999770 HF415A - 1376 1368 

CHKAI3 Abs 999772 #F415C - 1377 1357 

=CHKAIO Abs 999707 HF411B - 1346 

CHKAS! Abs 998673 #F3D11 - 346 345 

CHKASH Abs 998666 HF3DOR - 343 336 

CHKASO Abs 998677 #F3D15 - 350 339 

CHKAS1 Abs 998702 #F3D2E - 368 361 

CHKAS2 Abs 998754 #F3D62 - 404 383 


CHKRS3 Abs 998801 #F3D91 - 439 437 
CHKAS4 Abs 998804 #F3D94 - 441 
CHKAS9 Abs 998815 #F3D9F - 453 362 
=CHKASN Abs 998636 HF3CEC - 3 
CHKASs Abs 998827 #F3DAB - 461 412 
CHKASx Abs 998813 #F309D - 447 413 


CNFFND Ext - 210 
CSiC4 Ext - 589 1299 
CSLC9 Ext 690 
CSRC3— Ext 713 
CSRC4— Ext 1295 


1299 724 

1298 204 663 1347 
1295 584 675 688 
1294 241711 


Cslc4 Abs 999675 #F40FB 
Cslc5 Abs 999672 HF40F8 
Csrc4 Abs 999666 #F40F2 
CsrcS Abs 999663 #F40EF 


t ' ' t #€ 8 ¢ 6 


DI=AVE Ext 851 1281 

DSPSET Ext - 193 

DevID Ext - 435 

DevTyp Ext - 399 1138 1509 

DispOK Ext - 196 

DsNull Ext - 668 

ERRORX Ext - 733 

=EXPEX+ Abs 999681 #F4101 - 1302 841 1053 1122 1188 
EXPEXC Ext - 1303 


=FNDNB+ Abs 998460 HF3C3C - 168 

=FNDNB- Abs 998464 HF3C40 - 172 

FNDMB. Abs 998484 HF3C54 - 185 184 
FNDMB1 Abs 998558 HF3C9E - 217 229 
FNDNB2 Abs 998572 HF3CAC - 225 251 
FNDMB3 Abs 998607 HF3CCF - 246 221 
FNDMBS Abs 998593 HF3CC1 - 239 187 267 
=FNDNBD Abs 998495 HF3C5F - 193 

FNDMBE Abs 998587 HF3CBB - 233 211 218 
=FNDMBX Abs 998517 HF3C75 - 202 

GADDRr Abs 999614 HF4OBE - 1238 1199 1202 1226 1228 12H 
=GADRR+ Abs 999503 HF404F - 1190 

GADRRO Abs 999507 #F4053 - 1191 1187 
GADRR1 Abs 999553 #F4081 - 1206 1208 
GADRR2 Abs 999576 #F4098 - 1219 1216 
=GRDRRN Abs 999488 HF4040 - 1185 
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GETHE1 Abs 999401 #HF3FE9 - 1066 1058 

GETHE2 Abs 999417 HF3FF9 - 1071 

GETHE3 Abs 999421 HF3FFD - 1075 1067 1070 

sGETHEX Abs 999377 #F3FD1 - 1053 


=GETNBX Abs 998391 HF3BF7 - 47 

=GETST+ Abs 999233 HF3F41 - 843 

GETST1 Abs 999264 HF3F60 - 855 829 836 
=GETSTR Abs 999193 HF3F19 - 821 

=GHEXB+ Abs 999446 #F4016 - 1125 1193 1219 
=GHEXBT Abs 999442 #F4012 - 1124 

=GTYPR+ Abs 999425 #F4001 - 1118 

GTYPRO Abs 999446 HF4016 - 1126 1121 
=GTYPRN Abs 999427 #F4003 - 1119 

GTYPRe Abs 999480 HF4038 - 1142 1128 
GTYPRr Abs 999484 HF403C - 1146 1130 1134 


I/OALL Ext - 74 
I/OFND Ext - 1306 
I/OFSC Ext - 695 
I/odal Ext - 676 
IS-DSP Ext - 767 
LOOPST Ext - 176 


LSTCH1 Abs 999343 HF3FAF - 963 9861 
LSTCH2 Abs 999351 HF3FB? - 966 965 
=LSTCHR Abs 999314 #F3F92 - 950 


MBOX” = Ext 47 = 258 
=NORAMe Abs 999145 HF3EE9 732 «= 696 = 708 
NXTCH1 Abs 999292 #F3F7C %5 894 


=NXTCHR Abs 999266 #F3F62 893 

Offed Ext 183 
PILCNs Abs 999167 HFSEFF - 773 768 
PILCns Abs 999191 HF3F1? - 781 776 
RDINIO Abs 1000060 HF427C - 1563 1560 
=RDINFO Abs 1000020 #F4254 - 1550 
=RESTOR Abs 999153 HF3EF1 - 767 
RESTST Ext - 1309 
REVPOP Ext - 843 
RONTY1 Abs 999949 HF420D - 1465 1415 
RONTY2 Abs 999956 #F4214 - 1471 1491 
RONTY3 Abs 1000005 #F4245 - 1505 1476 
=ROMTYP Abs 999783 #F4167 - 1415 
Restst Abs 999701 #F4115 - 1309 842 1054 1123 1189 
SAVEI- Abs 999010 HF3E64 - 673 672 
SAVEIO Abs 998992 HF3E50 - 664 729 
SAVET1 Abs 999031 HF3E77 - 681 660 
=SAVEIT Abs 998987 HF3E4B - 659 


NXTCH2 Abs 999303 HF3F87 - %9 908 


SAVEST Ext - 1§@e2 
SAVSTK Ext - 1650 
=SETLF Abs 998418 #F3C12 - 94 = 168 


SETLP1 Abs 998441 HF3C29 - 111 = 103 
SETLP2 Abs 998448 HF3C30 - 114 105 
=SETUP Abs 998856 RF3DC8 - 514 

SETUP, Abs 998912 HF3E00 - 573 $71 
SETUPO Abs 998885 #F3DE5 - 563 553 
SETUP1 Abs 998917 HF3E05 - 577 555 
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SETUP2 Abs 998947 #F3E23 - 593 557 559 
SETUPx Abs 998894 HF3DEE - 566 590 
SngDev Ext - 382 671 726 
VollLbl Ext - 438 
bPILAI Ext - 1349 
eNNBOX Ext - 235 
eNNUNR Ext - 1062 1142 
eNORAN Ext - 732 
eOFFED Ext - 182 
eRANGE Ext - 1075 1146 1238 
seXPEXC Abs 999687 #F4107 - 1303 
FLTIDH Ext ~ 1066 1129 
s1/OFND Abs 999694 HF410E - 136 472 1350 
1DEVC Ext - 1557 1561 
1POLSV Ext - 1554 
sDEST Ext - 1559 
sSTK Ext - 821 847 893 950 1011 1120 1186 
tCOLON Ext - 827 
tLITRL Ext - 834 
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Input Paraneters 
Source file nane is NZ&BUT::MS 
Listing file nane is NZ/BUT: TI:ML:: -1 
Object file nane is NZZBUT:TI:NS::-1 


111111 
0123456789012345 
Initial flag settings are 
frrors 
None 


Saturn Asseribler News 


Saturn Asseribler 
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—> —> 
—OwowWnnA Nn Swr 


12 F4293 


NuoOoaeoOe ee 
CSCwwmusnnAw 


BD & & & OD) WD & We Ls G) FRO FAD RD 19 19 9 19 19 1D 
DOWN TKDMN SW DoW YWHANM Bw 


ADAH HH hb Hh 
CAM mM Bw Mh 


49 

50 F4293 ?DAS 

51 F4297 400 

52 F423A 20 

53 F429C 3500 
000 

54 F42A4 800 
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k 

‘ N N Z2722 8&8 ccc A SSS 
x N ON zZ 8% { (- #A--3  °S 
x NN N 2 8&8 C A A S$ 

& NNN Z & c R A SSS 
% N NN Z &&8& C RARAR S 
- N N Z a. 8. 0 oR LAE Se 3 
. N N 22222 8 & (CCC A A SSS 
x 

x 


TITLE CASSETTE ROUTINES<831221.1632> 


ABS #F4293 TIZXHP6 address (fixed) 
JO GIGIOUIO II IO DOI II TOOT TOK 


FOTO TOIT IOI ITO TT IIT. 
xx 


** Nane: TSTAT, TSTATAR - Check the drive status 
ax 

** Category:  PILUTL 

ah 

** Purpose: 

ae Check status of mass storage device 

kk 

*k Entry: 

xR D[X] contains the address of the drive 
=e DO points to the narlbox 

as 

Re Exit: 

aK Carry clear: 

x Drive is addressed as a talker 

ax Status in C[B] 

bs Carry set: 

ax Error (P, C[OQ] are error code) 

tek 

** Calls: YTML,PUTE,GETO (YTML only for TSTAT) 
xx 

RB US@Se casii:s 


**k Exclusive: C(WJ,P 
&k Inclusive: C{W],P,ST[3:0] 
xx 


** Stk lvls: 2 (YTML;PUTC)(GETD; GET) 
ka 


** History: 
ok 


xe Date Programmer Modification 
Rh Poe eee ey wetietewitens Cait se tee es el oS eet es 


AR 11/19/82 NZ Added docunentation 

xx 

HRA RIK RRR RIOR ORR OOOO ROE TOE DOOR RR ROR OR SIO FORO ROR 
JUSSI (USI ISU IGG DOGO ISIE TO ITI 


=TSTAT GOQSUB Ytnl 
RTNC Error 
=TSTATA P= 0 
LC(6) (=nSST)+1 Send status, linit=1 


GOSUBL =PUTE 
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00 
55 F42RR 400 RTNC Error 
56 F42AD 7085 TSTAT1 GOSUB Getd 
57 F42B1 400 RTNC RINSC if not data frane 
58 F42B4 8001 P=C 1 
59 F42B8 880 ?PR 0 Is it either BUSY or Error? 
60 F42BB 40 GOYES TSTAT2 Yes...check which! 
61 F42BR 03 RTNCC No...all OK 
62 x. 
63 ke 
64 F42BF 891 ITSTAT2 ?P= 1 Is it an error? 
65 F42C2 00 RTNYES Yes... RTNSC 
66 F42C4 55D GONC TSTATA No...must be busy...try again 
67 SOIR ROJO JIT IO TOO 
68 JITTER  TIII ARI 
69 kk 
70 xk Narie: SEEKA - Seek a record (record # in A[3:0}) 
71 xk Narie: SEEKB - Seek record (drive=listener, ne=talker) 
72 kk 
73 *k Category:  PILUTL 
74 xx 
75 *k Purpose: 
76 an Seek to the specified record 
77 xk 
78 ek Entry: 
79 wa SEEKA: Desired record # is in A[3:0] 
80 aR SEEKB: Desired record # is in A[3:0], drive is talker, 
81 aR I an listener 
82 aR Drive address in D[X] 
83 ak DO points to the mailbox 
84 kk 
85 aK Exit: 
86 RE Carry clear: 
87 ak Drive is talker, I an listener, P=0 
88 RK Carry set: 
89 ak Error (P,C{O] are error code) 
30 kk 
91 kk Calls: NTYL, DDL, PUTD, <TSTAT> 
92 kk 
93 RK Uses.....0. 
94 *k Exclusive: C{W],P 
95 xk Inclusive: C{W],P,ST[3:0] 
96 kk 
97 xk Stk lvls: 2 (MTYL) <TSTAT> 
98 kK 
99 ** History: 
100 kk 
101 ae Date Progranner Modification 
102 REO -Soccewes  Secaweeeeee:. Slade cue eces cose ee Pelee see 
103 KK 11/19/82 N2 Added docunentation 
kK 
ae FORO RIO II OOOO TI IO OO ITI 
106 FORO JOR JOJO ROR JOT OT TOI 


107 F420? 72B? =SEEKR GOSUB Atyl 
108 F42CB 400 RTNC Error 
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109 F42CE 20 
110 F42D0 7367 
111 F42D4 400 
112 F42D? De 
113 F42b9 F6 
114 F42DB F6 
115 F420D 7097 
116 F42E1 400 
117 F42E4 Do 
118 F42E6 7787 
119 F42EA 400 
120 

121 

122 

123 F42ED 65AF 
124 

125 

126 

12? 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

14? 

148 

149 

150 

161 

152 

163 

154 

165 

156 

15? 

158 

159 

160 

161 

162 

163 


=$ 


x 
x 
x 


ak 
xk 
xk 
ak 
xx 
ak 
xk 
xk 
xx 
KK 
xk 
ak 
xk 
ak 
ak 
ak 
ak 
ak 
aK 
xx 
ak 
ax 
Kk 
ak 
xk 
a 
ax 
ak 
aR 
ak 
ae 
aK 
a 
aa 
ax 
xk 
xk 
ak 
a 
ak 
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EEKB P= =Seek 

GOSUB Ddl 

RTNC Error 

C=A A Get track # first 

CSR A 

CSR A 

GOSUB Putd Send track nunber 

RTNC Error 

C=A A Now get record # on track 

GOSUB Putd Send record nunber 

RTNC Error 
Following can be packed to GONC if needed 


GOTO = TSTAT Check status and exit 
JO III TI TOE I OUI III IOC III k 


FO JO III OO OI OO TOI ITI IK 


Natie: CHKNAS - Check if D[X] is nass storage device 
Category:  PILUTL 


Purpose: 
Check if a device (at D[X]) 1s nass storage 


Entry: 
D[X] is device address 
Dh points to the nailbox 


Exit: 
Carry clear: 
Device is mass storage (Acc ID=#10), P=0 
Carry set: 
Not riass storage OR loop error 
(P, C(O] are error code - if P= =ePIL, C[O}=eDTYPE, 
than C[{1] 1s device class, A[B} is full Acc ID) 


Calls: GTYPE 

Exclusive: C{W],P 
Inclusive: A[A],C{W],P,ST[3:0] 
Stk lvls: 3 (GTYPE) 


History: 
Date Progranner Modification 
05/25/83 NZ Reurote again to save code, added 
exit condition for C[1] (device 
class) 
02/16/83 NZ Rewrote to not use nQSTAT, which 


as renoved fron Dianond 
(Added A[A] register usage) 
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164 

165 

166 

167 

168 

169 F42F1 8E00 
00 

170 F42F?7 400 

171 F42FA 3101 

172 F42FE 966 

173 F4%1 40 

174 F433 03 

175 

176 

177 F4305 Do 

178 F43%? 300 

179 F430A 20 

180 FAC 02 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

196 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 F4HXE DB 

213 F4310 F2 

214 F4312 C6 

215 F4314 C6 

216 F4316 01 

217 
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x (Added 2 stack levels) 
Rk 44/19/82 NZ Added docunentation 
ak 


FOI JOJO TO JI TR IOI OT TTT TTT TTT III TN 
FOTO ITI TTT TTT TT TTT K 


=CHKNAS GOSUBL =GTYPE Get the acc ID of the device in A 
RTNC (Error) 
LCHEX 10 Check if Acc ID=16 
RHC OB 
GOYES CHKNAe Not Acc ID=16 

Rtncc  RINCC 

ie 

CHKMAe C=A A Copy accessory ID to C({B] first 
LC(1) =eDTYPE Device type error 
P= =ePIL 


FOO OOOO TI OT TIT DIT IIT IDI T DIDI IIR 
FORO JOTI OTT TO 
kk 


kk Narie: CHKBIT - Check if device indicates Acc ID=16 
ak 
** Category: LOCAL 
kk 
** Purpose: 
o Check if bit "4" of D[3] is set or clear 
k 
&* Entry: 
kk D[3:0] is device spec fron file spec execute 
ak 
aK Exit: 
ak Carry set if bit is set (Acc ID=16 device) 
kk 
kk Calls: None 
kk 
kk Uses....... 
kk Inclusive: C{A] 
kk 
xk Stk lvls: 0 
kK 
** History: 
kk 
x Date Programmer Modification 
Wh cua eo ee: 6  eleeeegi cle en re eke toe 
Kk 05/12/83 NZ Wrote routine and docunentation 
kk 


FOI IIIT TTT TTI 
FOI RIO ITT TI TIO TIT 


=CHKBIT C=D A Copy to C{A] for checking 
CSL A 
C=C+C A 
C=C+C A Check the desired bit 
RTN Carry set iff bit set 


FOUR IO JOO TI ITI TIT DIT ITRITTIDTIITITIRIK 
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218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
267 
258 
259 
260 


261 
262 
263 
264 
265 
266 
267 
268 
269 
270 


27 


F4318 DO 
F431R B24 
F431D AFI 
F4320 8000 
00 
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FOI TOI I TTT IT TI I ITI TT ITI IIT TTI 
ak 


** Nate: CLEARN - Clear a record on device (send zeroes) 
*& Narie: CLLOOP - Send 0’s to a device (A[A] is count) 
aK 

xk Category:  PILI/G 

aK 

** Purpose: 

ah Clear a record (output zeroes to a specific record) 
aX 

** Entry: 

xR D[X] contains the address of the drive 

a Diariond is talker, drive is listener 

aK Record nunber in A[3:0] 

ax DO points to the nailbox 

ik 

REOEMIC: 

ak Carry clear: 

ak Successful (P=0) 

aK Carry set: 

xx Error (P, C[O] are error code) 

ah 

** Calls: <SENDIT> 

ah 

REO USOS sini 

** Exclusive: A[A],B(W], P 

x* Inclusive: A[A],B(W),C(W],P,ST[3:0] 

aK 

*K Stk lvls: 1 <SENDIT> 

ak 

** History: 

aK 

kk Date Prograriner Modification 

WAS toile aise: 8 -ehbeidbee wieder er emeGL eee 
A® 03/22/83 NZ Rerioved CLEARR entry point 

kX 11/19/82 NZ Added docunentation 

aK 


FORO ROI IOI TOI OOO ITO TOTTI 
FORO ROI ORI OO OI TTI TT TS TTI ITOK 


=CLERRN A=0 A 


A=At+1 XS Set A[R]}<--#00100 (256) 
=CLLOOP B=0 W A[A] 1s the # of bytes to clear 
GOLONG =SENDIT Send all zeroes! 


FORO TOI TOI IOI IO 
FORO JOJO OIC UII IIT OOOO IGT TTT OTT TTT 
xk 


X* Nane: FORMAT - Format medium in specified drive 
aa 


** Category:  EXCUTL 

tk 

** Purpose: 

a Format nediun in specified drive (initialize it) 
tt 


Ae Entry: 
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272 &k RO contains vol label ({11:0]), # of entries ([15:12]) 
273 &k Drive address is in D[X] 

274 le DO points to the mailbox 

275 A 

276 kk Exit: 

277 ax Carry clear: 

278 a P=0, drive is rewinding (successful fornatting) 
279 ae Carry set: 

280 kk Error (P, C[0] are error code) 

281 ak 

282 tk Calls: DDL, DDT, READI3, WRITIT,PRASGA, CLLOOP,CLEARN, 
283 aK MTYL,YTML, TSTAT, SEEKA, PUTALR, PUTDX, PUTD, PUTE, 
284 ak GETD, CHKEOT, DdlWrt,D1=SCR,F->SCR,PUTDIR, 

285 = CSLC4, CSLC5, CSRC5, ASLC4, ASRC4, YNDHMNS, <ENDTAP> 
286 & 

287 &k Uses. ...... 

288 *k Exclusive: A,B,C,D,RO, R2,D1,P 

289 : Inclusive: A,B,C,D,RO,R1,R2,D1,P,SCRICH[63:0], ST[8:0] 
2% * 

291 tk Stk lvls: 4 (CLEARR) 

292 ax 

293 ek History: 

294 ae 

295 ax Date Prograriner Modification 

296 1k aicoousk “Pavaadeued, hoadusethnctemortensncsucecassead 
297 o 11/19/82 NZ Added documentation 

a JOO OUI OO ITO TIO TTT TOK 
300 JI III OCI OCIS TOO TK 
301 F4326 796F =FORNAT GOSUB TSTAT Check drive status 

302 F432R 561 GONC FORMIO OK...continue 

303 F432D 380 ?PH =eTAPE Is it a drive error message? 
304 F4330 00 RTNYES No...nust be for real 

305 F4332 80FO CPEX 0 Yes...check further 

306 F4336 8% 7P= =eNEWTA Is it "New Mediun" error? 

307 F4339 DE GOYES FORMAT Yes...try again 

308 F433B 80FO CPEX 0 No... 

309 F433F O02 RTNSC ...Error! 

310 he 

311 a 

312 F4344 FORM1O Check if # entries is OK... 

313 k 

314 * Get # entries fron RO[15:12] 

315 x 

316 F4341 118 C=RO 

317 F4344 D2 C=0 A Clear low nibbles for rotate... 
318 F4346 7157 : GOSUB Cslc4 ...Now C{A] is # of entries 
319 

320 ‘ Convert to records and store in B[A] 

321 

322 F434A 822 SB=0 

323 F434D C6 C=C+C A 

324 F434F Fo CSR A Divide by 8 

325 F4351 832 ?SB=0 Was there a rerainder? 


326 F4354 40 GOYES FORN2O No...continue 
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327 F4356 Eb C=C+1 A Yes...increnent to next record 
328 F4358 AFS FORN20 B=C W Copy to B[R], clear B[7:5] 
329 * 
3H * Get drive’s naxinun address (if it responds to MaxRec) 
331 . 
332 * Send DDT(MaxRec), ask for 2 bytes...(still talker fron TSTAT) 
333 x 
334 F435B 20 P= =MaxRec Send max addressable record 
335 F435D 71F6 GOSUB Ddt (send it) 
336 : 
337 * Following line renoved 10/20/83 to get 3 nibbles to fix the bug 
338 * noted about 15 lines below this (this RTNC is not really needed 
339 * as the only tuo reasons that ODT mill error out are 1) ATIN pre 
340 % tuice, and 2) Dianond has error bit set. Neither of these can 
341 * change before the PUTE innediately following, so PUTE will abor 
342 * with the sane error. 
343 x 
344 * RTNC 
345 : 
346 F4361 3500 LC(6) (="SDA)+2 Send 2 bytes! 
0000 
347 F4369 8E00 GOSUBL =PUTE 
00 
348 F436F 400 RTNC 
349 F4372 7804 GOSUB Getd Get the data byte 
350 F4376 551 GONC  FORN30 OK...in C[B} 
351 F4379 7C61 GOSUB ChkEOT Check if EOT 
352 F437) 400 RTNC If not EOT, then unexpected frane 
353 7 
354 k £0T...nust be HP82161A (at least for size) 
355 x 
356 F4380 20 P= 0 
35? F4382 34FF LC(5) 511 Nax record address for HP82161A 
100 
358 F4389 571 GONC FORM5O Go aluays 
359 es 
360 kL 
361 . 
362 * This 1s a device which does respond to MaxRec...read second 
363 * byte after saving first byte in A[3:2] 
364 : 
365 F438C DA FORN3O AFC A 
366 
36? * Following line 1s a bug fix...fixes bug with INITIALIZE for an 
368 * extended Acc ID=16 protocol device and directory $size 
369 * 
370 F438E ARO A=0 xS Clear the (soon-to-be) nibble 4 
371 F4391 FO ASL A 
372 F4393 FO ASL A 
373 F4395 75R4 GOSUB Getd Read second data byte 
374 F4399 400 RTNC 
375 x 
376 * Now combine the tuo bytes in A[3:0] 
2? & 


Jt 


378 F439C REA A=C B 
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379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 


407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
41? 
418 
419 
420 
421 


422 
423 
424 
425 
426 
427 
428 
429 
430 
431 


F439F 
F431 
F43A4 


F43R6 
F4308 
F43AA 
F43AC 
F43AF 


F43AF 
F4361 
F43B3 
F43B6 
F43B9 
F43BB 


F43C1 
F43C4 


F43C6 
F43C8 


F43CR 


F43CA 
F43C0 


F43D3 
F4305 
F4308 
F430 


F430F 
F43E3 
F43E6 
F4368 
FA3EC 


D6 
8AD 
80 


DS 
ES 
FS 
81D 


110 
8£00 


23 
A94 
7806 
100 


7R96 
400 


7846 
400 
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C=A A 
FORNSO 7BHO OA Check if given dir length=0 
GOYES FORN6O Not zero...leave it as is 


& 
* Specified directory length is zero...need to use default 
x 


* Default is 1/32 of total records (ignore low bits) 
x 


B=C A Copy total to B[A]... 

B=B+1 A ...add one for zero basing... 
BSR A ... divide by 16... 

BSRB ...and 2 (total 32)! 


FORM60 
x 


* Now B[A] is directory length in records, RO[15:12] is length 
* in entries, C{A] is max addressable record address 


x 
* Check if room by the formula T - 2 - R >= N, 
k where T=total # of addressable records on nediun (C[RJ-1), 
k R=# records needed for N directory entries (B[A]), 
* and N=# of directory entries (RO([15:12]). 
x 
C=C-1 A Offset to total recs - 2 
C=C-B A Subtract # records needed 
GOC FORNG65 Error!!! 
A=RO Check if it passes test... 
A=0 A ...Preclear high nibbles... 
GOSUBL =ASLC4 ..-Rotate # entries into A[A]... 
2C>=A A ...and check for fit! 
GOYES FORN70 OK...continue! 


x 
* Error...out of range! 
x 


FORM65 P= =eRANGE not OK...range error! 
RTNSC 
k 
ae 
FORN70 
x 
* Now write the actual # of records for the directory fron B[3:0] 
x 
A=RO 
GOSUBL =ASLC4 
P= 3 
A=B WP 
GOSUB Asrc4 
RO=A RO(15:12] is # of records, rest is 
x volune label 
GOSUB Ntyl 
RTNC 
= =Fornat 
GOSUB Ddl Forrat all records of the nediun 
RTNC 
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432 F4a3EF 70RE 
433 F43F3 400 


434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
44g 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 


467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
47? 
478 
479 


480 
481 
482 
483 
434 


F43F6 
F43F8 
F43FC 
FA3FF 
F4403 
F4406 
F440A 
F4400 
FA40F 
F4413 
F4415 
F4419 


F441C 
F441F 


F4422 
F4425 
F442? 
F442D 
F442D 


F442F 
F4432 


F4435 
F443B 


F443E 


DO 
7BCE 
400 
7A76 


7B26 
400 


3108 
22 


7E56 
400 


AF 4 
118 


BARE 


8£00 


28 
ASS 
AFS 


8E00 
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FOI III TIT TI TIT IT ITI K 


e 


GOSUB  TSTAT 


Page 9 


Wait until finished, check status 


Error Porat riediun 
JIG 


Now actually write the structure on the mediun... 


RO[11:0] is volune label, RO[15:12] is size of 
directory in records 


SOI GIO I TOO I TIO TR TTT TT TID IIIT TTA K 
=INITIL A=0 A 


x 


GOSUB SEEKA 
RTNC 

GOSUB Mtyl 
RTNC 

GOSUB Ddlurt 
RTNC 

P= 0 
LCHEX 80 

P= Q 
GOSUB Putdx 
RTNC 


Seek to first record 
I an going to send data 


Set the drive to write node 


Disc ID (LIF standard) 


ID is two bytes long 


* Now output volune nane (currently in RO[11:0]) 
x 


& 


B=0 W 
C=RO 


* Following 4 lines added 10/20/83 to gain 10 nibbles to fix 
* a bug (DDTo bug, below) by replacing the 5 lines connented 


* gut 10 lines down fron here 
x 


INITOS 
x 


ee ee ee 


- 


‘INITOS 
x 


x 


* Directory start address 
* 


*cHO OR 
GOYES INITOS 
GOSUBL =BLANKC 


P= 11 

B=C WP 

C=B W 

*CHO WP 

GOYES INITOS 
P= 0 

LCASC \ 5 


GOSUBL =PRNSGA 
RTNC 


C=0 A 


Is the nane zeroes? 

No... continue 

Yes...use blanks 

B[11:0] 1s now volune label 
Is the nane zeroes? 

No... continue 


Yes...set to blanks! 


Send the narie (6 bytes) 


Clear C[B] 
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485 F4440 23 
486 F4442 7136 
487 F4446 400 
488 F4449 3120 
489 F444D 7026 
490 F4451 400 
491 

492 

493 

494 

495 F4454 3101 
496 F4458 26 
497 

498 

499 

500 F445A 7916 
501 F445E 400 
He 

503 

504 

505 F4461 118 
506 F4464 7336 
507 

508 

509 

510 F4468 DA 
511 F446A F6 
512 F446C Fo 
513 F446E 7FF5 
514 F4472 Dé 
515 
516 
517 
518 
519 
520 
521 
$22 
623 
§24 
§25 
526 
527 
528 
529 
530 
531 
532 
§33 
§34 
§35 
536 
537 
538 
539 F447A 400 


F4474 22 
F4476 7DFS 











CASSETTE ROUTINES<831221.1632> Tue Jan 17, 1984 11:55 an 
Page 10 

P= 3 
GOSUB Putdx Put first 3 bytes of dir start 
RTNC 
LC(2) 2 Fourth byte of dir start is 2 
GOSUB Putd (Start of directory is record 2) 
RTNC 


Next four bytes required for compatibility (with X00!!!) 
by the LIF standard 


* he 0 


LCHEX 10 
P= 6 
& 
x 
* 


Also output first two bytes of length of directory (zeros) 


GOSUB = Putdx 
RTNC 


Nou get the non-zero part of directory length 


C=RO 


GOSUB Cslce4 C{A] is nunber of records needed 


* Output the last two bytes or directory length 
x 
A=C A Save lou byte in A[B]) 
CSR A 
CSR A High byte first 
GOSUB Putd Send high byte 
C=A A 
x 
* Output the last byte of directory length, 
* tuo bytes for version number, and txo 
* required zero bytes 
x 
erie ttestttertttetsrestttitetesesetttetetetteteesteceee tt: 
k 


* Now set version nunber and version 1 information... 
* (Version 1 info: words 12-17, physical attributes; 
* words 18-20, volune tine stanp) 


Physical attributes: 
Word: 10 11 #12 #13 «14 «18 += «16 = «17 
For tape, urite: 0001 0000 0000 0002 0000 0001 0000 0100 


Volune tine starip: 
Word: 
For all nass nen, write: 


18 19 2 


x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
YYMM DDHH MNS t 
x 
x 


FOR III OTT TTT TTI III TI II DI IIIT ER 


OF 0 0 EO OO 


P= 2 
GOSUB Putdx Qutput last byte of dir length 
x and high byte of version nuriber 


RTHC 
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540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
§53 
554 
$55 
556 
57 
558 
559 
560 
561 


562 
563 


564 
565 
566 
567 
568 
569 
570 
571 
572 
$73 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
583 
590 
591 
592 


F4470 
F4480 
F4482 
F4486 


F4489 
F448) 
F4491 


F4494 
F4496 
F449A 


F449) 


F44A5 
F44A8 


F44RE 
F44B1 
F44B5 


F44B8 
F44BC 


F44BF 
F44C2 
F44C6 
F44(9 
F44cD 
F44CF 
F44De 
F44Db 
F44D9 
F4400 
F44E0 
F44E2 
F44E6 


F44E9 
F44ED 
FA4FO 


301 
23 
71F5 


400 
& 
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LCHEX 1 (This is LIF version 1) 
P= 3 
GOSUB Putdx Output version nun + zero word 
RTNC 


* Deternine if drive talks DDT6 here, and use that value for 
* device information 
x 


7F95 
7383 
400 


i OF Oe Oe Oe Oe 


20 
7385 
400 


3500 
0000 
AFA 

8E00 


400 
7983 
534 


GOSUB 01=SCR Set D1 @ SCRICH for area to write 
GOSUB Ytnl 
RTNC 


Following 3 lines added 10/20/83 to fix a bug with extended- 
Acc ID=16 protocol devices (DDT was forgotten); adds 9 nibbles 
here (pack above saves 10 nibbles...1 filler nibble added at 
ChkEOT, below) 


P= =InpByt Send inplenentation bytes 
GOSUB Ddt 
RTNC 


LC(6) (=nSDA)+12 Read 12 bytes... 


A=C OW 

GOSUBL =PUTE ...send nessage to drive 

RTNC 

GOSUB Getd 

GONC INITIO No carry = device did send value 


® Error fron GETD neans either EOT or 7777 


7B20 
400 


GOSUB ChkEOT Check if EQT 
RTNC No... unexpected 


* Fill in the correct default values for HP&2161A 
x 


AF2 
155? 
17F 
15D? 
Eb 
173 
1500 
1C5 
15D0 
1C? 
£6 
15D0 
5B 


x. 
ke 


8OFF ChkEOT 
880 
20 


C=0 W Clear area first 

DAT1=C W Clear first 16 nibbles... 
D1=01+ 16 

DATI=C 8 ...and last 8... 

C=C+1 A ...set C[OJ=1... 

D1=01+ 4 

DAT1=C 1 Write # records per track 
D1=01- 6 Position to # surfaces/nediun 
DAT1=C 1 Write it 

D1=01- 8 Position to # tracks/surface 
C=C+1 A Set C[O]=2 

DAT1=C 1 Write it! 

GONC INIT20 Go always 

CPEX 15 Now P is FRAME value 

?PH =pEOT Did I get an EOT? 


GOYES ChkEOt 
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593 F44F2 8OFF 

594 F44F6 01 

595 

596 

597 F44F8 0 

598 

§99 

600 

601 

602 

603 

604 F44F9 8E00 
00 

605 F44FF 400 

606 

607 

608 

609 F4502 7625 

610 

611 

612 

613 F4506 7375 

614 F450R 400 

615 

616 

617 

618 F450D D2 

619 F4S0F 300 

620 F4512 DA 

621 F4514 7645 

622 F4518 400 

623 

624 

625 

626 F451B 136 

627 F451E 7675 

628 F4522 DB 

629 F4524 10A 

630 

631 

632 

633 F452? 7F75 

634 

635 

636 

637 F452B 12A 

638 F452E D7 

639 F4530 7555 

640 F4534 134 

641 

642 

643 

644 F4537 112 

645 F453A 8E00 
00 
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ChkEOt CPEX 15 

RIN 
kL 
a 

CON(1) =FIXSPC 1 nibble available here 
x 
xe 
x 


* Device did respond...C[B] is data byte (READI3 writes it 
* at D1, increnents D1 by 2, then junps to READIT) 
k 


INITIO GOSUBL =READI3 ..-into =SCRICH (enter READIT) 
RTNC Error 


* Device volune information is now in SCRICH (12 bytes) 
x 


INIT20 GOSUB D1=SCR Reset D1 to =SCRTCH... 
k 


* First set ne back as talker 
x 

GOSUB Mtyl 

RTNC 


* Write volume information fron =SCRICH (12 bytes) 
x 


C=0 A 

LC(1) 12 

A=C A Count in A[A] 
GOSUB Writit Send the data! 
RTNC 


* 


Save DO, D[A}] in R2 (YMDHNS uses A-D,DO,D1,RO,R1,ST[7:0]) 
CDOEX 
GOSUB Cslcd 
C=0 A 
R2=C 
* Get creation date (current tine) 
k 
GOSUB Yrdhns C{11:0] is value 
x 
* Save tine and date in R2, restore DO, D[A] 
x 
CR2EX 
D=C A 
GOSUB Csrc5 
DO=C 
* Recover the tine fron R2 and continue 
x 


A=R2 
GOSUBL =ASLC4 A[15:4] is value nou 
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646 F4540 26 

647 F4542 8E00 
00 

648 F4548 400 

649 F454B D2 

650 F454D 316D 

651 F4551 DA 

652 F4553 76CD 

653 F4557 400 

654 F455A 7ABD 

655 F455E 400 

656 

657 

658 

659 

660 F4561 7DA4 

661 F4565 89D 
RO 

662 F456B 400 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

6% 

691 

692 

693 

694 

695 

636 

6397 

698 
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P= 6 Send 6 characters! 
GOSUBL =PUTALR Send fron A, start with A[15:14] 
RTNC 
C=0 A 
LCHEX 06 Nunber of bytes left to clear 
A=C A ...into ALA] for CLLOOP 
GOSUB CLLOOP Clear this many bytes 
RTNC 
GOSUB CLEARN Clear record 1 (nust be 0 for LIF) 
RTNC 


x 


* Set the first directory entry to logical end of directory 
* (B[W] is zero from CLEARN - PUTDIR will not check status) 
& 


GOSUB F->SCR Put "FFF"s into SCRTCH 
GOSUBL PUTDIR Write a directory entry fron Di 
RTNC 


* Fall through into ENDTAP!!! 
x 


FOI III IIIT OOOO TOOT ITT 
JOU ICI III IO OTIC OI TOTO TO 
Kx 


** Nane: ENDTAP - Clean up the loop after nass nen action 
ah 


xk Category:  PILUTL 

ak 

xk Purpose: 

a Check status of a drive, rewind it, and unaddress all 
de talkers and listeners 

ak 

x Entry: 

ak D[X] 1s device address 

AR DO points to the nailbox 

aK 

RROERELS 

as Carry clear: 

a P=0, all OK 

= Carry set: 

a Error...P, C{O] are error code 
ae 


** Calls: TSTAT.MTYL, DDL, <UTLEND> 
ad 

BUCO S ia 
** Exclusive: C 
** Inclusive: C 
ak 


** Stk lvls: 3 (TSTAT) 


a& 


** History: 
aA 


aa Date Progranner Modification 
BE eee wet. ° Biatgeimm Slelee ° EE ieee ooh eee Seo en ee ei oe el wen ae ae ay 
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699 tk 41/19/82 NZ Added docunentation 
700 te 
701 SIR RII ROTI TOTTI 
702 JIS COTO TOTS IS ITI I AA 
703 t 
704 ' Code above falls into this code!!! 
705 
706 F456E 712D =ENDTAP GOSUB ITSTAT Check status of drive to finish 
707 F4572 400 RTWC 
708 F4575 7405 GOSUB Mtyl 
709 F4579 400 RTNC 
710 F457C 2F P= 15 Set to ignore any data sent to it 
711 F457E 7584 GOSUB Ddl 
712 F4582 400 RTNC 
713 F4585 20 P= =Rewind 
714 F4587 7CA4 GOSUB Ddl Rewind (hone) the nediun 
715 F458B 400 RTNC 
716 F458E 8000 GOLONG =UTLEND Clean up the loop 
717 Y JOO OCCT TATA A 
718 JOO IOI ISSO SIO TOSI OSS III III III III III IIA II ILIA 
719 ae 
720 tk Nane: READR# - Read a record fron mass nen into RAN 
721 ax 
722 %k Category: PILI/O 
723 ak 
724 *k Purpose: 
725 ax Read a specific record nunber 
726 c 
727 xk Entry: 
728 ak Di points to the destination buffer 
729 ak A[3:0] contains the record nunber 
7H aK D[X] contains the drive address 
731 es DO points to the mailbox 
732 ak 
733 Rk Exit: 
734 ax Carry clear: OK (P=0) 
735 ak Carry set: Error (P, C(O] are error code) 
736 a 
73? *k Calls: TSTAT, SEEKA, DdtRd, DDT, READSU, <TSTATA> 
738 am 
739 AX Uses......- ’ 
740 tk Exclusive: C{Wj, P 
741 ** Inclusive: A[W],C{W],01,P,ST[3:0] 
742 ax 
743 *K Stk lvls: 3 (TSTAT) 
744 aX 
745 ** Note: This routine will always read the device status first 
746 ok and ignore any device error that is reported initially 
747 ak 
748 ** History: 

7 749 te 
750 sie Date Prograrner Modification 
751 $0 eile! coca: ete tte De i ee io lete, 


752 kk 08/09/83 NZ Changed final TSTAT to TSTATA 
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753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
720 
771 
772 


773 
774 
c7o 
776 
77? 
778 
779 
780 
781 
782 
783 
784 
785 
786 
78? 
738 
789 
7% 
791 
792 
793 
794 
795 
796 
797 
798 
(39 
8O0 
801 
802 
803 
804 
805 
806 


F4594 
F4598 
F459C 
F459F 
F45A3 
F45R6 
F45R8 
F45AC 
F45AF 
F45B1 
F45B5 
F45B8 


F45CO 
F45C4 
F45C7 
F45C9 
F45CD 


F4500 


7BFC 
7B2D 
40 
7A94 
400 
20 
76R4 
400 
20 
7094 
4% 
3500 
0000 


77A4 
4% 
20 
7584 
40 


69CC 
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Page 15 
tk 04/29/83 NZ Added tuo buffer exchanges (cost= 
a 9 bytes, takes media reads faster 
ak and nore efficient) 
xk 04/04/83 SC Ignore initial device error 
. 11/19/82 NZ Added docunentation 
t 


FORO JOR I JIU I IT IIT II KIA 
FORO OI OI TOOT TIO TTT TTT TEIN 


=READR# GOSUB TSTAT Check device status (ignore carry) 
GOSUB SEEKA Seek to that record 
RTNC 
GOSUB DdtRd Read that record 
RINC 
P= =XchgT 
GOSUB Ddt Exchange buffers 0 and 1 
RINC 
P= =Read1 
GOSUB Ddt Send data fron buffer 1 
RINC 
LC(6) (=nSDA)+#100 #100 bytes = 1 record 


t 
* Read one record fron the drive to the buffer (D1) 
k 


GOSUB Readsu Read fron drive to (D1) 

RTNC 

P= =XchgT 

GOSUB Ddt Exchange buffers O and 1 back 
RTNC 


x When here, all 256 bytes have been read 
k 


GOTO TSTATA Check final device status 
JOOS III IO IOI III TIO IT 


JOSIE ISIE TI IITA IDOI IOI TO IIT 
aa : 


** Wane: WRITE# - Write to a specific record 

ae 

** Category: PILI/O 

ax 

** Purpose: 

x Write to a specific record on a mass nen device 
aX 

** Entry: 

a 01 points to the input buffer 

ax A[3:0] contains the record nunber to be written 
ae D[X] contains the drive address 

x MO points to the nailbox 

aH 

RAO EM IA: 

ae Carry clear if OK (P=0) 

a Carry set if error (P, C{O] are error code) 

rey 

** Calls: TSTAT, SEEKA, MTYL, DdlWrt, DDL, WRITIT 

aa 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 


807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 


F45D4 
F45D8 
F450 
F45DF 
F45E3 
F45E6 
F45EA 
F45ED 
F4SEF 


F45F2 
F45F6 
F45F9 
F45F8 
F45FF 
F4602 


7BBC 
7BEC 
400 
7A94 
400 
7B44 
400 


B24 


7864 


2F 
7834 
400 
603C 
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REUSOS ia sks 
kk Exclusive: A[A], Pp 
k* Inclusive: A[A],C(W),01,P,S7[8],ST[3:0] 
to 
**K Stk lvls: 3 (TSTAT) 
ik 
** Note: This routine always reads the device status first and 
ae ignores any initial device error. 
aa 
**k History: 
ak 
aR Date Progranner Modification 
Bes Soci ce Lites. iba ecbeeeeeaene cesar tueeecdteoe 
Kk 04/04/83 | SC Ignore initial device error 
ak 11/19/82 NZ Added docunentation 
a 


FOI IIIT TTT TT TO TTT TOTTI. 
FOI ORI TOO TIO OOOO TT TIT IT TIT 


=WRITEH# GOSUB TSTAT Check device status (ignore carry) 
GOSUB SEEKA 
RTNC 
GOSUB Ntyl 
RTNC 
GOSUB Ddlrt Set drive to urite node 
RTNC 
A=0 A 
; A=A+1 XS A[R)=#00100 (1 record) 


* Transfer 256 bytes (one record) 
* 


GOSUB Writit 


RTNC 

P= 15 DOL15 = Ignore data! 
GOSUB Ddl (Ignore data) 

RTNC 

GOTO = =©TSTAT Check status, exit 


FORO IIT ITO TT TOTO TT TIC 
FOO JO RIO IO TOI JO JOO TTT OTIC 
a 


** Nane: MOVEFL - Nove a file between tuo HPIL devices 
ka 

** Category:  PILI/O 

ka 

xk Purpose: 

aK Nove a block of "records" fron one HPIL device to 

ai another 

ka 

kk Entry: 

kk R1[A] = device addr of destination device (from FILSPx) 
ka R2[A] = device addr of source device (from FILSPx) 
x R3[R} = record address of destination if mass nen 

a B[A] = record address of source if nass nen 

xx R3(9:5] = number of records to copy 

ae 

xk Exit: 
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862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
87? 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
%O 
1 
We 
3 
904 
905 
Wb 
KH? 


98 
909 
310 
911 
wie 
913 
314 
915 


F4606 
F4606 
F4609 
F460B 
F460F 


F462 


F4618 
F461B 
F461E 
F4621 
F4624 


11B 
D2 
7984 
10C 


8E00 


147 
1€4 
AFO 
143 
131 
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xx PHO! 
xx Carry clear: OK 
we Carry set: error (P, C(O] are error code) 
kk 
*k Calls: CSLC5, D1=AVE,CSRC10, CSLC10, START, GETDev, SEEKA, 
aa CHKBIT, DdtRd, READSU, DIG@AVS,CSRC5,MTYL, DDL, ASRC10, 
KR WRITIT,WCPY5s, ASRCS5, YINL 
wx 
RR USeS cases ae 


** Exclusive: A[W],C(W],D[A},R3[14:10],R4,D0,01,P,ST[4:0] 
** Inclusive: ALW],C(W),D[W],R3[14:10],R4,D0,01,P,ST[8],ST[4:0] 


aK 


aK Stk lvls: 3 (SEEKA)(hCPY5s) 


ka 
kX Detail: 
xx COUNT# is R3[14:10] - # of records this transfer 
a COUNTD is R4[9:5] - # of records already finished 
a COUNTR 1s R4[14:10] - # of records retiainin 
is COUNT is R3[9:5]  - # of records to nove (total) 
** History: 
x 
S Date Progranner Modification 
Be SeNA Ee Mk ate —aaeei Gee ad eats hue e bee 
ak 08/29/83 NZ Changed where I set up A[A] for 
ax the source so that the call to 
sa START doesn’t destroy # records 
Rk 08/19/83 NZ Added checks for device mode and 
a changed calls to FNDNB+ to START 
Kk 96/25/83 NZ Added checks for tiass wen...if not 
a mass nen, then just tiove bytes 
Rk 91/14/83 NZ Fixed several bugs! 
kk 91/10/83 NZ Added docunentation 
ka 


FOR ITO OI OIC ICO OO TO ITOK 
FOI I II IOI IO TOTO OTTO OTT TIO TTI OK 


=MOVEFL 
C=R3 
C=0 A 
GOSUB CslcS Save # of records in R4[14:10] 
R4=C Save record count in R4[9:5]! 


x 


* R4[9:5] 1s the count of how many records I have moved, 
* R4(14:10] 1s # of records remaining 
x 


MOVEF1 GOSUBL =D1=AVE Set D1=RVNENE 


C=DAT1 A 

b1=01- 5 Point to RVNENS 

A=0 W Clear high nibs for ASRB 
A=DAT1 A 

DI=A Set D1 @ AVNENS 


x 
* AVMEMNE 1n CLA], AVMENS in ALA] 
a 
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916 F4627 E2 C=C-R A C{A]) is # nibbles available 
917 F4629 DA A=C A 
918 F462B 81C ASRB ALA] is # bytes available 
919 F462E F4 ASR A 
920 F4630 F4 ASR A A[A] is # records available 
921 F4632 20 P= =eNORAN 
922 F4634 8A8 ?A=0) OR 
923 F4637 © RTNYES Error...nerory too snall 
924 & 

925 * ALA] is # of records to copy at a chunk, D1 @ AYMENS 
926 x 
927 F4639 11C C=R4 
928 F463C 7554 GOSUB Csrci0 Now C{A] is # of records left 
929 F4640 8AE CHO OA 
930 F4643 40 GOYES MOVEF2 Not done...continue 
931 F4645 03 RTNCC Done...return, carry clear 
932 x 
933 x. 
934 F4647 E2 MOVEF2 C=C-A A 
935 F4649 560 GONC MOVEF3 If no carry, not done 
936 F464C CA A=A+C A Set AR=old C (A+(C-A) = C) 
937 F464E D2 C=0 A Set renaining count = 0 
938 F4650 7444 MOVEF3 GOSUB Cslc5 
939 x 
940 * Pause here to set COUNTH (R3[14:10]) to COUNTA(A[A]) 
941 x 
942 F4654 128 CR3EX 
943 F4657 7A34 GOSUB Csrci0 
944 F465B D6 C=A A Copy COUNTA to COUNTH 
945 F465D 8EOO GOSUBL =CSLC10 
00 
946 F4663 128 CR3EX Restore C, R3 (with new value) 
947 x 
948 * Now continue on...(C{A] 1s nunber of records done) 
949 k 
950 F4666 7E24 GOSUB CsicS 
951 F466A 10C R4=C Write the counts back out 
952 & 
953 * Copy the nibbles...need to call SETUP every tine... 
954 * increnent position by # records noved 
955 & 
956 F4e6D 11A C=R2 Get source address 
957 F4670 D7 D=C A 
958 F4672 7004 GOSUB Start Set up for src, find that nailbox 
959 F4676 400 RTNC Not found...error! 
960 x 
961 * Set A[R] to the nunber of records done 
962 x 
963 F4679 114 A=R4 
964 F467C 8E0O GOSUBL =ASRC5 A[RJ]=# records done 
00 
965 7 
966 * First check if in device node (if so, just send data) 
967 x 


968 F4682 8EOO GOSUBL =GETDev Check if device node 
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00 
969 F4688 412 


970 
971 
972 


973 F468B 7F7C 


974 
975 
976 
977 
978 
979 
980 
981 


F468F 
F4692 
F4696 


40 
7EAN 
6010 


982 F469A CO 


983 
984 
985 
986 
98? 
988 
989 
990 
991 


992 
993 
994 
995 
996 
997 


998 
999 
1000 
1001 
1002 


1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
10114 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1013 


F469C 
F46R0 
F46A3 
F46R7 
F46RA 
F46AD 
F46B1 
F46B3 
F46B5 


F468B 
F46BF 


F46C2 


F46C8 
F46CB 
F46CD 
F46D1 
F46D4 


F46DA 
F46D0 
F46E1 
F46E4 
F46E? 
F46EB 


F46EE 
F46FO 
F46F4 
F46F? 
F46FB 
F46FE 
F4 702 
F4705 


7AR3 
400 
7693 
400 
118 
7463 
Fe 
F2 
8E00 
00 
7CR3 
400 


8EO0 


119 
D? 
7283 
400 
8E00 


413 
7p2C 
551 
110 
7£93 
113 


CA 
7653 
400 
7283 
400 
7C0C 
590 
7023 
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Device node... just send data 


* Check 1f this is a mass nen or other device 
k 


GOSUB 
GOC 
GOSUB 
GOTO 


x. 
xe 


CHKBIT 
NOVEF , 
Ytril 

NOVEF4 


If nass nen, carry set 

Mass men...Seek, Read 

Not nass nen...just make ne talker 
Check carry, continue 


* ALA] is # records offset to file data 
* 


MOVEF, A=A+B 
GOSUB 
RTNC 
GOSUB 

MOVEF4 = RTNC 

MOVEd1 C=R3 
GOSUB 
CSL 
CSL 
GOSUBL 


GOSUB 
RTNC 
& 


* Now have the 
k 
GOSUBL 


C=R1 
d=C 
GOSUB 
RTNC 
GOSUBL 


GOC 

GOSUB 

GONC 

C=R4 

GOSUB 

A=R3 
& 


* Now C[A] 1s COUNTD (done), 
x 


R=A4C 
GOSUB 
RTNC 
MOVEFS GOSUB 
RTNC 
GOSUB 
GONC 
GOSUB 


Ri 
Seeka 


DdtRd 
Csrc10 
A 

A 
=hCPY5s 


Readsu 


Get source record # 
Go to that record 


Read the data fron the drive 

Now get COUNTH back fron R3[ 14:10] 
Convert COUNTH to BYTES 

Set up for SDR/SFC nessage 


Read after set-up 
Error! 


data in RAN, starting at AVNENS! 


=D1@AVS 
R 

Start 
=GETDev 
MOVEF6 
CHKBIT 
NOVEFS 


Csrc5 


A 
Seeka 


Mtyl 
CHKBIT 


NOVEF 6 
DdlWrt 


Set Df to (AVMENS) 

Get the destination address 
Find the destination mailbox 
Check if device node 

Yes... just send data 

Check if mass storage 


Not nass storage...skip Seek 


Now COUNTD is in C{R] 
ALA] 1s dest address 


A[R] 1s dest address 


A[A] 1s desired address! 
Seek to that record 


I an talker now 


Check again if mass storage 
Not mass storage...skip Write 
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1020 F4709 400 

1021 F470C 113 

1022 FA70F 8E00 
00 

1023 

1024 

1025 

1026 F4715 11C 

1027 F4718 7063 

1028 F471C C2 

1029 F471E 7673 

1030 F4722 10 

1031 F4725 FO 

1032 F472? FO 

1033 F4729 7133 

1034 F472D 400 

1035 F4730 61€E 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1043 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 
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RTNC 
MOVEF6 A=R3 
GOSUBL =ASRC10 Get COUNTH fron R3[14:10] 
k 
* ALA] is now the count in records, D1 @ AVNENS 
& 
C=R4 
GOSUB Csrc5 C{A}] 1s now COUNTD (done) 
C=C+A A Update COUNTD to new value 
GOSUB Cslc5 
R4=C Write it back out! 
ASL R 
ASL A ALA] is # bytes now 
GOSUB Writit Send the data to the drive! 
RTNC 
GOTO NMOVEF1 Loop back to finish if nore 


FOI IR RIOR JOO RIO TT ISI IIIT IIT IIT IIT EIT II 
FOI IR ITO RO JO IIT TTR TTI RIK 
xk 


** Nane: FINDFL - Set up loop, get a directory entry 
** Narie: FINDF+ - Set up loop, get directory entry (MS) 
*& Narie: FINDFx - Find a file on a mass storage device 
ha 
2 Category:  FILUTL 
x 
** Purpose: 
aK Find file on external device (for FINDF+ and FINDFx, 
. the device must be a mass storage device) 
at Entry: 
ak FINDFL, FINDF+: 
ak First 8 characters in A[W], last 2 in RO[3:0] 
a D{R] 1s device address (set up by FILSPx poll handler) 
ak FINDFx: 
xe D[X] is mass storage device address 
Rk DO points to the mailbox 
ae First 8 chars of name in RO, last 2 in R1[3:0] 
ae 
AP OEMLAS 
- Carry clear: 
a File directory entry in =SCRICH[32] 
ax A[A] is starting record (A[4]=0) 
ak C[A] is nunber of records (C[4]=0) 
ak D1 points to file type 
aX B{3:0] is directory pointer for file (B[3:1] is 
a record number, B[O] is entry within record) 
i Carry set: 
ae P=0; Nanes don’t natch (sane conditions as carry clear) 
ax P#O: Error (P, C[0] are error code) 
kx 
xk Calls: START, CHKBIT, CHKMRe, YTML, D1=SCR, READSU, hCPY5s, 


xk FINDFx --> GETDR! ,NXTEN+, CSRCS,CSLCS, GETDIR, GETZER 
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1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 F4734 850 

1095 F4737 6600 

1096 

1097 

1098 F473B 840 

1099 F473E 

1100 F473E 120 

1101 F4741 101 

1102 F4744 7833 

1103 F4748 400 

1104 F474B 96B 

1105 F474E 56 

1106 

1107 F4750 7ABB 

1108 F4?754 427 

1109 

1110 

14114 

1112 F475? 7ARB 

1113 F475B 860 

1114 F4?75E 00 

1116 

1116 

111? 

1118 F4760 70E0 

1119 F4764 400 

1120 F4?6? 3500 
0000 

121 F4a?6F 79B2 

1122 F4773 74F2 

1123 F4777 400 

1124 

1125 

1126 

1127 F477A 110 
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xk Exclusive: A,B,C, D1,P, ST[5] 
kk Inclusive: A,B,C,0[15:5],D1,P, SCRICH[63:0], ST[5:0] 
xk 


* Stk lvls: 5 (GETDR!) 
aK 


** History: 

ak 

xx “Date Progranner Modification 

Whe Suacevas “Solesisien- «tose eS .5 ee cece Gh Dee ate & 
kk 10/07/83 NZ Updated docunentation 

kk 06/25/83 NZ Added check for mass storage, not 
an Acc I0=16 (if true, RINSKNY 

ae 06/12/83 NZ Rerroved call to CHKMAS, replaced 
Ka With call to CHKBIT (checks bits 
a fron FILSPx); renoved CONWUC call 
Kk 02/11/83 NZ Added ST( Loop?) 

- 11/19/82 NZ Added docunentation 


FORO IIIT OO IOI TO TOT I III IK 
FOI OT TOI TTI ITO TTI 


=FINDFL ST=1 =sLoop? LOOP is allowed for FINDFL 
GOTO FINDF+ 


x. 
xe 


=FINDF+ ST=O =sLoop? LOOP not allowed for FINDF+ 
FINDF + 
AROEX Save first 8 chars in RO 
R1=R Save last 2 chars in R1 
GOSUB Start Set up the transfer! 
RTNC Error...return! 
70-0 = «=B Is this "LOOP"? 
GOYES FINDF1 Yes...just read 32 bytes, check 
x 
GOSUB CHKBIT Check 1f Acc ID=16 bit set 
GOC FINDFx Mass storage...continue 


x 
* If here, need to check sLoop?...if NOT set, then error! 
x 


GOSUB CHKtMRe Set up device type error... 
?ST=0 ==sLoop? ...check if needed! 
RTNYES Error!!! (Set up by CHKMRe) 


& 
* Device is OK here... just read in the directory info! 
* 


GOSUB Ytrl Device 1s talker 
RTNC 
LC(6) (=nSDA)+32 Directory length 1s 32 bytes 


FINDI2 GOSUB B1=SER 
GOSUB Readsu Save length in A[A], read data 
RINC Error if carry! 

x 


® Now check if the nane is OK or not... 
x 


A=RO Recall first 8 chars 
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1128 F477D 1000 D1=(2) =SCRICH Move to nane field 
1129 F4781 1577 C=DAT1 Ww Pre-read nane 
11H F4785 17F Di=01+ 16 Move to 39th and 10th char of nane 
4131 F4788 D1 B=0 A Clear directory pointer first! 
1132 F478R 8A 7A=O) OA Nane specified? 
1133 F478D 51 GOYES FIND14 No...accept it regardless of value 
1134 F478F 976 TRAC OW Different narie? 
1135 F4792 71 GOYES FINDfn Yes...error (Nanes don’t natch) 
1136 F4794 111 A=R1 No...check last 2 chars 
1137 F4797 D6 C=A A (Copy C[4]) 
1138 F4799 15F3 C=DAT1 4 Read last 2 chars 
1139 F479D 8A6 TAHC OR Last 2 chars natch? 
1140 F47A0 90 GOYES FINDfn No...error (Nantes don’t natch) 
1141 F47A2 173 FINDI4 D1=D1+ 4 Yes...position to TYPE 
1142 F47A5 67AO GOTO FINDF4 Set up exit conditions and exit 
1143 x. 
1144 z. 
1145 F47A9 75FF FINDfn GOSUB FINDI4 Set up A,C (P=0 before call) 
1146 F47AD 02 RTNSC PHO if too big, else bad nane 
1147 a 
1148 x. 
1149 F47AF 20 FINDle P= =eDSPEC Device spec error (LOOP) 
1150 F47B1 02 RTNSC 
1151 k.. 
1152 Re 
1153 F47B3 860 FINDFl ?ST=0 =sLoop? Is LOOP allowed? 
1154 F47B6 9F GOYES FINDle No...error! 
1155 F47B8 D2 C=0 A 
1156 F47BA 3102 LC(2) 32 Read 32 bytes fror Dianond 
1157 F47BE 8&00 GOSUBL =hCPY5s Set for frane count/SDA 
00 
1158 F47C4 5AR GONC FINDI2 Go always 
1159 x. 
1160 fe 
1161 : 
1162 * Find the file on the mass storage device 
1163 . 
1164 F47C7 840 =FINDFx ST=0 =sLoop? If here, this cannot be LOOP! 
1165 F47CA 7E% GOSUB GETDR! Get directory start, first entry 
1166 F47CE 400 RTNC Error 
1167 x 
1168 * Entry nane in A[W], D1 points to last 2 chars 
1169 x 
1170 F47D1 173 FINDFO D1=D1+ 4 Skip last 2 chars 
1171 * 
1172 * Both the E00 nark (HFFFF) and PURGED file type (#0000) are 
1173 * syrinetric bytewise, so I can speed up the search and save 
1174 * code by just reading the value straight fron RAN (not swapping 
1175 * the bytes as I normally should) 
1176 ‘ 
1177 F47D4 15F3 C=DAT1 4 Read in the type 
1178 F47D8 23 P= 3 
1179 F47DR B16 C=C+1 WP Check for end of directory 
1180 F47DD 415 GOC FINDFn File not found! 


1181 F47EO ATE C=C-1 WP Check for purged file 
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1182 F47E3 91A 
1183 F47E6 Ft 


1184 
1185 
1186 
1187 
1188 
1189 
11% 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
122 

1222 
122 

122 

1225 
tee 

tee 

122 

1229 
12H 
1231 
1232 
1233 
1234 


1235 


F47E8 
F47EB 
F47EE 
F47F0 
F47F3 
F4?7F? 
F47FR 
F47FD 
F4800 
F4802 
F4805 


F4805 
F4809 
F480B 


F480E 
F4811 
F4815 
F481? 
F481A 
F4810 
F48iF 
F4823 


F4826 
F482A 


F482D 


F482F 


F48cr 
F483) 
F4834 
F4836 


F4838 


118 
976 
74 
103 
15F3 
173 
121 
912 
A4 
121 


78A2 
D5 
5At 


AFB 
7472 
23 
A1E 
91A 
21 
7572 
RF? 


7B80 
56A 


02 


20 
300 
20 
02 


8COO 
00 
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7C=0 WP 
GOYES FINDF1 PURGED! 
* Now check if naries match 
x 
C=RO 
RHC OW Check first 8 chars 
GOYES FINDF1 
Di=D1- 4 
C=DAT1 4 
D1i=D1+ 4 Leave D1 @ type! 
ARIEX Now check last 2 chars 
?A=C WP 
GOYES FINDF3 MATCH! 
ARIEX Get back directory information 
FINDF 1 
i 
* This is NOT the file! Get directory ptr fron B[3:0]... 
i 
GOSUB NXTEN+ Get next entry (carry if new rec) 
B=C A Store back in B[3:0} 
GONC = FINDF2 Not new record...read next entry 


k 
* Next record needed...check if reached physical EOD yet 
x 


C=D W 

GOSUB Csrc5 Directory length in C[3:0] 
P= 3 

C=C-1 WP Decrenent record count... 

7C=0 OW Nore records? 

GOYES FINDFn No...file not found (EOD) 

GOSUB Cslc5 Yes... read next record 

D=C W Save count back in D[8:5] 


k 
* Now read next entry, loop back 
x 


FINDF2 GOSUB GETDIR Read next entry after status! 
GONC FINDFO (Can pack this by GOTO, nove 
k FINDFO up one line) 
RTNSC Error! 
t 
FINDFn 
k 
* File not found 
i 
P= 0 
LC(1) =eNFILE File not found... 
P= =eTAPE ...drive error! 
RTNSC 
Ro 
tk 
Getzer GOLONG =GETZER Read 4 bytes, check first tuo=0 


ae 
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1236 
1237 


1238 
1239 
1240 


1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1282 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1220 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 


F483E 


F4844 


F484R 


F484) 
F4850 
F4854 
F485? 


F4859 
F485) 
F4860 
F4863 
F4866 


F4868 


F4868 
F486—A 


800 
00 


800 


121 


173 
74EF 
431 
DA 


7BDF 
4A0 
CF 
1€3 
03 
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ko 

Getd GOLONG =GETD 

x 

x 

Ytal GOLONG =YTNL 

x 

x. 

FINDF3 ARIEX Save last 2 chars of nane again 

& 

* Found the file (D1 is at file type) 

k 

FINDF4 01=Di+ 4 Skip to start address field 
GOSUB Getzer Read 4 bytes, check first tuo=0 
GOC FINDFe Error (First tuo bytes # 0) 
A=C A Save start address in A[3:0] 

k 

* Now get the length in records 

x 
GOSUB Getzer Read 4 bytes, check first two=0 
GOC FINDFe Error (First two bytes # 0) 
Di=D1- 16 Move back to start address... 
Di=D1- 4 ...and back to file type 


RTNCC Done! 


xe 
ke 


FINDFe 
* 
* Argurient out of range 
x 
P= =eRANGE 


FOI I TOO III TITUS TOT ITT ITT TTI 
FORO TOO TI ITI III III III RTI IIIT IIIT IK 
xx 


** Nane: GETOR!' - Get first directory entry fron drive 

** Nane: GETDIR - Get the next directory entry from drive 
xk Nane: GETDR" ~ Get the next directory entry @ B[3:0] 
kk Nane: GETDR# - Get the next directory entry @ A[3:0] 
*k Nane: GETDR+ - Get the next directory entry @ A[S] 

ak 


** Category:  FILUTL 
i 


*x Purpose: 

* GETDR!: Get the first entry in an LIF directory 

a GETDR": Get the B[3:0]th entry in an LIF directory 
ax GETDR#: Get the A[3:0]th entry in an LIF directory 
ax GETOR+: Get the A[S] entry in the current record 
ia GETDIR: Get the next entry in an LIF directory 

ks 

eX Entry: 

ak D[X] is the drive address 

ex DO points to the nailbox 


a GETDIR: Drive is addressed as talker, we as listener 
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1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
101 
1He2 
1X3 
1304 
1305 
16 
1X? 
18 
1309 
1310 
1314 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
132? 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
133? 
1338 
1339 
1340 
1341 
1342 
1343 


F486C 
F4870 
F4873 
F4875 
F4378 
F487B 
F487F 
F4882 
F4886 
F4883 
F438 
F488E 
F4832 
F4895 
F489? 
F439B 
F489E 
F48A1 
F48A3 
F48A5 
F48A? 
F48AB 


7860 
400 
D4 
814 
ADO 
784A 


77B1 
400 
948 
92 
7BE1 
400 


7091 


810 
D6 
Fe 
C6 
7601 
400 
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ax GETDR’: B[3:0] is the directory entry # 

aK GETDRH: A[3:0] is the directory entry # 

a GETDR+: A[S] is the directory offset nibble in record 
ak 

EXE RIT: 

ae Carry clear: 

xx Directory entry in =SCRICH[32] 

ax AW] is first 8 chars of filenane 

am D1 points past first 8 chars of filenane 

am Carry set: 

aK Error (P, C{O] are error code) 

ax 

tk Calls: GDIRST, SEEKA, DDT, MTYL, PUTD, YTML, TSTATA, READSC, 
xx D1=SCR 

re 

RA USOSc 8. ox 

** Exclusive: A, C, P 

*k Inclusive: A,B,C,0[15:5],P, SCRICH[63:0],S1[4:0] 

kk 

** Stk lvls:  GETDR!: 4 (GDIRST) 

** Stk lvls:  GETDR': 3 (SEEKA)(TSTATA) 

** Stk lvls:  GETDR#: 3 (SEEKA)(TSTATA) 

** Stk lvls:  GETDR+: 3 (TSTATA) 

** Stk lvls:  GETDIR: 3 (TSTATA) 

ik 

** History: 

xx 

*x Date Progranner Nodification 

oR pviecsu: ‘aetasGdued. “nawiG tui cneuce tees ted 


kK 11/19/82 


wk 


NZ 


Added docunentation 


FOI ICO TOIT ICI OOO OI IIIT OOO TOO IO TI IK 
FOOT IO OI OOO TIO I TTI TTI TOT IT TTI IC 


=GETOR! 


=GETDR" 
=GETDR# 


=GETDR+ 


GOSUB 
RTNC 
A=B 
ASRC 
A=0 
GOSUB 
RTNC 
GOSUB 
RTNC 
7A=0 
GOYES 
GOSUB 
RTNC 
p= 
GOSUB 
RTNC 
ASLC 
C=A 
CSL 
C=C4+C 
GOSUB 
RTNC 


GDIRST 
A 


qh 
SEEKA 


DdtRd 
S 
GETDIR 
Mtyl 


=SetBP 
Ddl 


Get directory start 


Save BP value in A[S] 
Clear high nibble for SEEK 
Go to that record 


Read that record (Drive 1s talker) 


Is the BP to be zero? 
Yes...skip setting it! 
I rust be talker for this! 


Set byte pointer connand 


Get pointer in ALO] 

Copy A[O] to C{O} 

Entty:* 16 

Entry * 32 

Send the Byte pointer value 
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1344 F48RE 729F GOSUB = Ytnl I an listener! 
1345 F48B2 400 RTC 
1346 & 
1347 * Drive should already be talker for GETDIR! 
1348 & 
1349 F48B5 7169 =GETDIR GOSUB TSTATA Check 1f successful read! 
1350 F48B9 400 RTNC 
1351 F48BC 3500 LC(6) (=nSDA)+32 Length of one directory entry 
0000 
1352 F48C4 7F91 GOSUB Readsc Read into scratch RAM! 
1353 F48C8 400 RTNC Error! 
1354 F48CB 7D51 GOSUB D1=SCR Go back to SCRICH... 
1355 F48CF 1537 A=DAT1 W Read the first & chars of nane... 
1356 F48D3 17F Di=D1i+ 16 Skip nane field... 
1357 F48D6 03 RTNCC And return! 
1358 JOO UI OI COIS OG I TO RIT 
1359 JIU IIIS CIC OTT TT I 
1360 ak 
1361 ** Narie: GDIRST - Get directory start and information 
1362 ak 
1363 ek Category:  FILUTL 
1364 aK 
1365 ** Purpose: 
1366 ax Locate the start of directory (and length) on nass nen 
1367 Rk and return both to the caller 
1368 aa 
1369 ek Entry: 
1370 ak D[X] contains the drive address 
1371 RK DO points to the nailbox 
1372 aE 
1373 ak Exit: 
1374 ak Carry clear: 
1375 ak B{W] contains: 
1376 ak Directory start pointer in [3:0], [15:12] 
1377 aK Start of data area in [7:4] 
1378 a Zero in [11:8] 
1379 ak D[W] contains: 
1380 ax Drive address in [A] (No change) 
1381 he Nuriber of directory records in [8:5] 
1382 aK Address of LAST data record + 1 [12:9] 
1383 aR Zero in [15:13] 
1384 = Carry set: 
1385 an Error (P, C{O] are error code) 
1386 ak 
1387 *k Calls: SEEKA, DdtRd, READSC,D1=SCR, GETALR, ASLC9, ASRC4, 
1388 S GETZER, (GDIRSM) ,ASRC9, CSRC8, ASRC3,ASLC3,CSLC4 
1389 x 
1390 ak Uses....... 
1391 kK Exclusive: A,8,C,0(15:5],D1,P 
1392 kk Inclusive: A,B,C,D[15:5],01,P, SCRTCH[63:0], ST[3:0] 
1393 ak 
1394 ** Stk lvls: 3 (SEEKR)(GDIRSB) 
1395 ak 
1396 ** History: 


1397 a 
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1398 
1399 
1400 
1401 
1402 
1403 


1404 F48D8 DO 


1405 
1406 
1407 
1408 
1409 
1410 


1411 
1412 
1413 
1414 
1415 
1416 


1417 
1418 
1419 
1420 


1421 
1422 
1423 
1424 
1425 
1426 
142? 


1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
143? 
1438 
1439 
1440 
1444 


1442 
1443 
1444 
1445 
1446 
1447 


F48DA 
F48DE 
F48E1 
F48e5 
F48E8 
F48EA 


F48F2 
F48F6 
F48F9 
F48FD 
F48FF 


F4905 


F490B 
F490D 
F4910 
F4912 
F4915 
F4918 
F491A 


F4920 
F4923 
F4925 
F4927 
F492B 
F492D 


F492F 
F492F 
F4931 


F4934 


79E9 
400 
7851 
400 
20 
3500 
0000 


7171 
400 
7F 21 
22 
8E00 
00 


3300 
08 
23 
916 
F4 
178 
AFO 
24 
8EOO 


958 
11 
20 
80FO 
20 
02 


20 
45F 


8EO 
00 
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ae Date Progranier Modification 
HA, owes.” eee heuer ears wae eaten is 
KK 11/19/82 NZ Added docunentation 
ax 


JOO OI IIT TTI TN 
FOO OO OI III UTI IIS I III ITT ITE IN 


=GDIRST A=0 R 

GOSUB SEEKRA (Leaves drive as talker) 

RTNC 

GOSUB DdtRd Read rediun at current record 

RTNC 

P= 0 

LC(6) (=nSDA)+24 Read LIF ID, label, start addr, 
x length, version #, Secondary ID 

GOSUB Readsc 

RTNC Error...bad read 

GOSUB D1=SCR Reset 01 to start of data 

P= 2 

GOSUBL =GETALR Get LIF ID 


* Check if this is an LIF fornat nediun (LIF I0=#8000) 
k 


LCHEX 8000 
P= 3 
7ARC OP 
GOYES GDIRSe Not LIF...error 

GDIRS1 01=01+ 12 Skip volurie label (ignore) 
A=0 W 
P= 4 
GOSUBL =GETALR Get start address of directory 
7A=0 OU If any but low 3 nibsk#O, error! 
GOYES GDIRS3 OK! 

GDIRSE P= =eTSIZE Error! 

GDIRsE CPEX 0 
P= =eTAPE Drive error (Size of File) 
RTNSC 

ke 

k. 

GDIRSe 
P= =eNOLIF Not LIF! 
Cac GDIRsE Go always 

ke 

x. 

GDIRS3 GOSUBL =ASLC9 


x 


* A=[<--000--> <--Directory start address--> <--000-->] 


s boas Teg Marre Rend Cave ois a teste tite Oi Bacre es 0 
& 


x 
* Nou read nunber of records in the directory 
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1448 

1449 F493A 177 

1450 F493D 1583 

1451 F4941 173 

1452 F4944 8AC 

1453 F4947 ED 

1454 F4949 22 

1455 F494B 8E00 
00 

1456 

145? 

1458 

1459 

1460 F4951 7F41 

1461 

1462 

1463 

1464 

1465 

1466 

1467 F4955 D2 

1468 F4957 15F3 

1469 F495B 8AE 

1470 F495E AO 

1471 

1472 

1473 

1474 F4960 3200 
2 


1475 F4965 5(3 

1476 

1477 

1478 F4968 3500 
0000 

1479 F4970 73F0 

1480 F4974 400 

1481 

1482 

1483 

1484 F4977 1£00 
00 


1485 F497D 77BE 
1486 F4981 491 
148? 

1488 

1489 

149% F4984 DA 
1491 

1492 

1493 

1494 F4986 1CF 
1495 

1436 

1497 

1498 
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x 

Di=Di+ 8 Skip unneeded info in header 

A=DAT1 4 Read first two bytes of length 

DI=D1+ 4 Skip past then... 

RHO OR 

GOYES GDIRSE Too big! 

P= 2 Read 2 bytes... 

GOSUBL =GETALR Read the last two bytes of length 


x 


* A=[<--Dir start address--> <--0000--> <--Dir length-->] 
Be PAG i taurntn ae, Vile erets BG h ie on teat 0 


GOSUB Asrc4 


* A=[<--Dir length-->,<--Dir start address-->,<--000-->] 
Vice Seweee t2 123M Ni stdeind Oe aedee 9 Bivwccaks 0 


x 
* Now get the extension field...if extension > 0, read it! 
x 


C=0 A Clear high nibble... 

C=DAT1 4 ..-Read in the extension... 
7C#O OA ..-18 it zero (no extensions)? 
GOYES GDIRS4 No...read it. 


* Extension freld=0...fill in the default value for tape end 
x 
LC(3) #200 First record past tape 


GONC GDIRS8 Go always! 
ke 


ke 
GOIRS4 LC(6) (=nSDA)+12 Send 12 bytes fron here... 


GOSUB Readsc ...to SCRICH! 
RTNC Error! 


* READSC uses A[5:0] only 
x 
D1=(4) (=SCRTCH)+16 


GOSUB Getzer 
GOC GDIRS7 Too big...use #FFFF 


* Put # of records per track into A[A} 
x 
A=C A 
x 
* A[3:0] is # of records per track, A[4]=0 
k 
Di=Di- 16 Point to surfaces/nediun 


Call subroutine to get surfaces/nediun and nultiply tines 
records per track (result in A[3:0]}) 


we fe 0 
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1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1614 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1821 
1522 


1523 
1524 
1525 
1526 
1527 
1628 
1529 
1530 
1631 


1532 
1533 
1534 
1535 
1536 


1537 
1538 
1539 


1540 
1541 
1542 
1543 
1544 
1545 
1546 
194? 
1548 
1549 


F4983 7060 GOSUB GDIRSN 
F498D 4D0 GOC GDIRS?7 Too big...use #FFFF 
k 
* A is now (records/track) * (surfaces/mediun) 
k 
F4990 7890 GOSUB 01=SCR Tracks/surface 
k 
* Get tracks/surface, nultiply tines (records/track * 
x surf aces/riediun) 
x 
F4994 7550 GOSUB GDIRSN 
x 
* Now AL3:0] is tracks/nediun! (= last rec #) 
k 
* A=[<-Dir length->,<-Dir start addr->,<-0->,X,<-last rec #->] 
x Pe cvicngearrs Teel ls oie oa aed es 985480 I a aeons 0 
x 
F4998 5B0 GONC GDIRSI All OK if no carry 
F499B D2 = =GDIRS? C=0 A More than I can do...use #FFFF! 
F499D 23 P= 3 
F499F ATE C=C-1 WP Default value! (HFFFF) 
F49A2 DA GDIRS& = A=C A C{3:0] 1s # of records in dir 
F4SA4 GDIRS9 
F49A4 8EOO GOSUBL =ASRC9 Roll to correct fields for return 
00 
k 
* A=[<-0->,<-last rec #->,<-dir length->,<-dir start addr->] 
& Vet 1O es uence Progr t ere back Jie tae beets 0 
k 
F49AR AF2 C=0 W 
FA4SAD ABE C=A x C{X] is dir start address 
F49B0 F2 CSL OA Set record pntr to zero (first) 
F49B2 D5 B=C A Set PTRC to Directory start 
F49B4 8E00 GOSUBL =CSRC8 Shift directory start to [11:8] 
00 
x 
* PIRF area is now in C[3:0]... 
x 
F49BA ABE c=A X Copy directory start to C[3:0] 
F43BD 8E00 GOSUBL =ASRC3 Rotate directory length to A[3:0] 
00 
F49C3 23 P= 3 
F49C5 A12 C=C+R WP Nou C[3:0] 1s PTRF initial value 
F49C8 8E00 GOSUBL =ASLC3 Rotate A[W] back uhere it belongs 
00 
F4SCE 7900 GOSUB Cslc4 
F49N2 A99 C=B WP Copy PTRC (set up) to C{3:0]... 
F49N5 AFS B=C W ...and finish setting all PTRs 
x 
* Now set PFC, Dlenl, NEW, PhEOQD, and Tendr 
x 
F49D8 AF6 C=A W Directory length and nediun end... 
F43D8 BFe CSL W .. Shift... 
F4SDE BF2 CSL W ...to C[8:5]... 
F49E1 2 P= 12 


CASSETTE ROUTINES<831221.1632> Tue Jan 17, 1984 11:55 an 
Page 29 


Saturn Assenbler CASSETTE ROUTINES<831221.1632> Tue Jan 17, 1984 11:55 an 


Ver. 3.39/Rev. 236 Page 
1550 F49E3 DB C=D A ...copy D[A] to C{A]... 
1551 F49E5 AF3 D=0 i .-.Clear high nibbles of D... 
1552 & ..- (PFC, NEW, PhEGD)... 
1553 F49E8 A97 D=C WP ...and copy it all to D! 
1554 x 
1555 % Done with initialization! 
1556 % 
1557 F49EB 03 RTNCC 
1558 t- 
1559 he 
1560 & 
1561 * This is the routine to get fron RAM & multiply by A[3:0] 
1562 : (Uses ALA], C[A], D1, P!!) (P is NOT zero on return!) 
1563 
1564 F49ED 774E GDIRSM GOSUB Getzer Read 2 bytes=0, 2 nore into C[A] 
1565 F49F1 400 RTWC Error if not zero 
1566 & 
1567 : Use D1 as a temporary holding area for multiplicand 
1568 
1569 F49F4 131 DI=A 
1570 F49F7 DO A=0 A Clear product area 
1571 * 01 is nultiplicand, C[A] is multiplier, A[A] is zero 
1572 F49F9 137 CDIEX 
1573 * D1 is multiplier, C[A] is nultiplicand, A[A] is zero 
1574 F49FC 1CO0 GDIRSn D1=D1- 1 Decrerient multiplier... 
1575 F49FF 490 GOC GDIRsN ...End of loop! 
1576 F4RO2 CA A=A+C A Add nultiplicand to product... 
1577 F4RO4 57F GONC = =GDIRSri If no carry, repeat loop! 
1578 F4RO7 02 RINSC If carry, WAY too big! 
1579 r 
1580 x. 
1581 & 
1582 * Now product in A[A], multiplicand in C[A] 
1583 x 
1584 F4A09 24 = =GDIRsN P= 4 ...point to high nibble... 
1585 F4ROB 90C PAHO OP ...and check if product too big. 
1586 F4AOE 00 RTNYES T00 big! 
1587 & 
1588 * Return with C[3:0] = multiplicand, A[3:0] = product 
1589 x 
1590 F4A10 03 RTNCC Size is OK! 
1594 JIT III TI IIIT ITI IIT III IIIT IST I ISI ISI IIIT IS IIIS IIIS II IIA 
1592 JOO III IODC ISI ISG CII II 
1593 ak 
1594 ax Nane: F->SCR - Write "FFF"s to SCRICH ran 
1595 ak 
1596 ** Category: LOCAL 
1597 ax 
1598 ** Purpose: 
1599 ae Write 64 nibbles of "FFF" into SCRICH RAN 
1600 aK 
1601 *k Entry: 
1602 aK None 
1603 ae 


1604 xX Exit: 
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1605 
1606 
160? 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 


1635 
1636 
163? 
1638 
1633 


1640 
1641 
1642 
1643 
1644 
1645 
1646 
164? 
1648 
1649 
1650 
1651 
1652 
1653 
1654 


1655 
1656 


F4A12 7610 
F4A16 AF2 
F4A19 AZE 
F4AIC 23 
F4A1E 1557 
F4A22 17F 
F4A25 OD 
F4A27 SOF 
F4R2R 03 


F4A2C 1F00 
000 
F4A33 01 


F4A35 20 
F4A37 8000 
00 


F4A3D 20 
F4R3F 7FOO 
F4R43 400 
F4R46 6358 


F4A4A 6078 


FAA4E 6448 


F4A52 8000 
00 
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ae Carry clear, D1 @ =SCRICH+64,P=15 
x 
** Calls: D1=SCR 
ae 
kk Uses....... 
tk Inclusive: C{W],D1,P,SCRTCH[63:0) 
ik 
&* Stk lvls: 1 (DI=SCR) 
ak 
*k History: 
aa 
as Date Progranner Modification 
ek Sosa Gucteieese  MeltdusasGunceumeceeneseneaeh euwe 
tk 02/18/83 NZ Added call to D1=SCR to pack code 
*k 01/06/83 NZ Added routine and documentation 


ax 


SOO IO IT IOI TIO 
JOTI ITU TIO IOI. 


=F->SCR 


F->SC! 


he 

hk. 
DdlWrt 
Ddl 


ke 
Re 


=DdtRd 


Tstata 
ke 


Rs 
Seeka 


Tstat 


GOSUB 
C=0 
C=C-1 
p= 
DRT1=C 
D1=D1+ 
P=P-4 
GONC 
RTNCC 


01=(5) 
RTN 


p= 
GOLONG 


GOSUB 
RTNC 
GOTO 


GOTO 
GOTO 


GOLONG 


D1=SCR 

W 

W C="FFFFFFFFFFFFFFFF" 

3 Write out 64 nibbles (4*16) 

W 

16 
Decrenent counter 

F->SC! Not done...continue 
Done...carry clear! 


=SCRICH 


=Write 
=BDL 


=Read 
Odt 
TSTATA 
SEEKA 


TSTAT 


=DDT 
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1657 


1658 
1659 
1660 
1661 


1662 
1663 
1664 
1665 


1666 
1667 
1668 


1669 
1670 
1671 


1672 
1673 
1674 


1675 
1676 
1677 


1678 
1679 
1680 
1681 
1682 
1683 


1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 


1693 
1694 
1695 


1696 
1697 
1698 


1699 
1700 


F4AS8 


F4R5E 
F4R61 


F4R67 
F4R68 


F4R71 


F4A77 


F4R7D 


F4R83 


F4A89 
F4&R8C 
F4R8C 
F4R8F 


F4R9S 
F4A95 
F4R98 
F4A3B 
F498 
FARSE 
F4ASE 


F4AR4 


F4RRA 


8C00 Putc 
00 


ke 
Teo: 


840 Writit 
8000 


we. 
ke 


71CF Readsc 
8C00 Readsu 


xe 
Ke 


8(00 Putd 


we 
ke 


8(00 Putdx 


x= 
we 


8C00 Htyl 


ke 
on 


8(00 Start 


xe 
we 


816 Csrc5 

Cslct2 
816 Csrc4 
8(O0 Csrc3 


xe 
x. 


Csrct0 
812 Csicé6 
812 CslcS 
Csrcei2 
8i2 Cslc4 
Csrcei3 
8(00 Cslc3 


xe 
ke 


8CO0O Asrc4 


ke 
ke 


8D00 Yridhiis 
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GOLONG =PUTC 


ST=0  =LoopOK Do not abort out with ONE ATIN 
GOLONG =WRITIT 


GOSUB D1=SCR 
GOLONG =READSU 


GOLONG =PUTD 


GOLONG =PUTDX 


GOLONG =NTYL 


GOLONG =START 


CSRC 


CSRC 
GOLONG =CSRC3 


CSLC 
CSL 


CSLC 
GOLONG =CSLC3 


GOLONG =ASRC4 


GOVLNG =YNDHNS 


FOR I III IIT OI ETT ITT ITO IK 
OORT TO TTT TTI TTT I IT IT IK 
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1701 
1702 
1703 
1704 
1705 
1206 
1207 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1222 
1723 
1724 
1725 
1726 
1227 
1728 
1729 
1730 
1731 
173e 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
124? 
1748 
1749 
1750 
1751 
1752 
1763 
1754 
1755 


F4RB1 
F4RB3 
FARBS 
F4AB?7 
F4RBR 
F4RBC 
FARBF 
FARCI 
F4RC4 
FART 


FART 
F4ACB 
F4RCE 
F4RDO 
FARD3 
FARDS 
F4ADS 
F4RDA 
F4ApC 


D9 
23 
0B 
853 
OB 
B16 
0B 
863 
4 
5EO 


23 
AIE 
OB 
873 
20 
343 
0B 
20 
01 
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*k 
xx Nane: NXTENT - Move to next directory entry 

** Nane: LSTENT - Move to previous directory entry 
kk 

** Category:  PILUTL 

ok 

** Purpose: 

ax Increnent/decrerent to next/last directory entry 
xk 

AX Entry: 

= C[3:0] is the current entry 

xk 

KX Exit: 

wx C(3:0] is next/last entry 

xs P=0 

kn Carry set if crossed record boundary, else clear 
kx 

Ex Calls: None 

Kk 

Bm USCS iiiicta ate 


xk Stk lvis: 


** History: 
xx 


tok Date 
RRS ie aes anaes 


XX 12/08/82 
os 


xk Inclusive: €[3:0],P 
* 


0 


NZ 


Modification 


Added routine and docurentation 


FORO I ICICI IOUS OIC IOI IOI ICO IOI IOI IIIIOK 
SOI IOI IOI IGIOIOIOIOIOIO IOI IOIICIOTOICICIOIIGIO IOI OUI COI IDIOTIC IC OIIOK 


=NXTEN+ C=B 

=NXTENT P= 
CSTEX 
ST=1 
CSTEX 
C=C +1 
CSTEX 
?ST=0 
GOYES 
GONC 


1 ee 


or ih 


STENT P= 
C=C-4 
CSTEX 
*ST=1 
GOYES 
LSTEN1 = ST=0 
CSTEX 
P= 
RIN 


A 
3 


3 
WP 
3 


LSTEN1 
LSTEN1 


3 

WP 

3 
LSTEN1 
3 


0 


Set high bit to propagate carry 
Increment counter 


Is this zero (Nibble is zero)? 
Yes...set carry 
Go aluays...clear carry 


57? 
Yes...set carry 
Clear unconditionally! 


Rluays set P=0!!! 
Carry set if new entry,else clear 


TORR ORR OO I OI OI IOI TIOK 
KIEKR ARE HERE ERE R ERE KER RE KIRA ER RAR RRR RE RER REDE RR KER EERE KE Ok 
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1756 aE 
1787 Ke Nane: NEWFIL,NEWFI+ - create a file on mass menory 
1758 * 
1759 *k Category:  FILUTL 
1760 an ° 
1761 ** Purpose: 
1762 oka Create a new file on a mediun, given a pointer to the 
1763 ne file data and all info needed to create the directory 
1764 ax entry. If NEWFIL 1s called by CREATE, the file will be 
1765 a initialized according to its create code. 
1766 aR 
1767 RX Entry: 
1768 aR ST[=sOVERWJ=1 if overwrite existing file, O if error on 
1769 ak existing file 
1770 aR D[X] is device address (D[B]=0 if LOOP) 
1771 ak RO is first 8 chars of nane 
1772 ak R4[15:12] is last 2 chars of nane 
1773 aK R1[5:0] is new file size in bytes 
1774 ak R1[9:6] is new file type 
1775 a R1[14:10] is new file data start (RAM address) 
1776 aK (If zero, don’t copy any file...check CCode) 
1777 aK R1{15] = 0 if called by COPY with device spec, 
1778 ak "F" af called by COPY with LOOP or non-nass storage 
1779 ae device (D[BJ]#0 neans non-nass storage device) 
1780 aR create code 1f called by CREATE 
17814 ae R2[7:0] is data for implenentation bytes ([B] 1s first 
1782 ax byte of inplenentation field...byte 28) 
1783 ax (R2[B}] 1s FIRST byte of inplenentation info) 
1784 ee ONEWFIL: 
1785 a DO points to the nailbox 
1786 Ax 
1787 a8 ERI t: 
1788 Re Carry clear: 
1789 aK P=0, R3 is file infornation (B[W] internally): 
1790 ak (3:0): Current directory pointer (of no value) 
1791 an [7:4]: Pointer to start of data area for file 
1792 aR {11:8}: Pointer to old directory location (if found) 
1793 ak {15:12]: Pointer to new directory location of file 
1794 aX R1 is unchanged fron entry conditions 
1795 xk (If RI[S]="F" and R1[BJ#"00" then R1[5:2] has been 
1796 RK increnented, R1{B]=0) 
1797 ae The file has been created on the nass storage nediun 
1798 ak Carry set: 
1799 aK Error (P,C{O] are error code) 
1800 kh 
1801 ** Calls: START, CHKBIT, GDIRST, SEEKA, DdtRd, READSC , GT2BYT, 
1802 ak NXTENT, PT2BYT, YDHMS , MTYL, <ENDTAP>, I/OFND, PURFIB, 
1803 kk FTYPFH, CHKSEC, CHKSIZ, PUGFIB, NEWF 80, NEWF 84, NENF 90, 
1804 ak NEWF.O0, GETNBX, D1=SCR,F->SCR 
1805 a CSRC3;4;538;9;12, ASRC4, CSLO3;4;3538;12 
1806 x 
1807 ak coca -->v ASRC4;8, CSRC2; 3512, CSLC3, YADHNS, PTZ2BYT, DdlPur, 
1808 SEEKA, MTYL, DDL, PUTD, PUTC, D1=SCR 
1809 ae Ae -->¥ PT2BYT, CSLC2;6,MTYL, GT2BYT, CSRC13 


1810 +X PUTDRH -->v SEEKA, NTYL 
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1811 aX NEWF9O -->v DdlPur, DDL, PUTD 
1812 ** PUTDIR ---> DDL,D1=SCR, <NEWF. 3> 
1813 aK 
1814 xX NEWF.O -->v CSRC4;10, SEEKA,MTYL, DDL, <INITFL> 
1815 *X NEWF.3 ---> WRITIT,GETST,PUTC, <TSTAT> 
1816 ee 
1817 BE USCS ios 
1818 kk Exclusive: A,B,C,D,RO,R2,R3,R4,00,01,P 
1819 *k Inclusive: A,B,C,D,RO,R2,R3,R4,00,01,P, SCRTCH[63:0],ST[8, 4:0] 
1820 x 
1821 Ak Stk lvls: 5 (PUGFIB)(Only if deleting FIB entry:file existed 
1822 *k Stk lvls: 4 (GDIRST)(NEWF80; YMDHNS) 
1823 ak 
1824 xt Detail: 
1825 a Consolidates into one pass through the directory the 
1826 ae following actions for nass storage: 
1827 ak 1. Find the file on the nediun (if present) 
1828 ak 2. Find a space on the nediun sufficient to hold 
1829 aE the file, giving preference to the place 
1830 Re it was before (if found in 1.) 
1831 ak 3. Purge the old directory entry, if not using 
1832 ae sare entry for new file 
1833 ax 4. Write the new directory entry 
1834 Ax 5. Copy the file to the data area of the nediun 
1835 xs 
1836 *k Algorithn: 
1837 ** 0: Get directory infornation 
1838 x Initialize PTRC,PTRD,PTRF,PTRL,PTRN, PFC 
1839 a (PTRC is current directory entry <== dir_start 
1840 ola PTRD is "hole" in directory space <== dir_start 
1841 ae PTRF is “hole” in file space <== 0 
1842 Ax PTRL 1s old directory entry <== 0 
1843 aX NEW is new directory entry flag <== 0 
1844 a PFC 1s count of purged files <== 0 
1845 gs 
1846 ax Seek to the start of the directory space 
184? aK -- 
1848 ak 1: Read a directory entry @ PTRC into =SCRTCH 
1849 at -- 
1850 iy -- Check if done with nediun directory 
1851 a3 -- 
1852 ak IF ((end of directory) THEN 5: 
1853 ae 2 
1854 ie -- Check if have enough infornation already 
1855 ae = 
1856 **°4.2: IF (PTRLAO AND NEWHO) THEN 5: 
1857 a ie 
1858 Ee -- Check if in_file 1s purged 
1859 x -- 
1860 4*°14.3: IF (1n_file_type = 0) THEN 2: 
1861 * -- 
1862 a -- Check if nanes natch (found old file) 
1863 e is 
1864 AS IF (in_file_nane # new_file_nane) THEN 3: 


1865 rs = 
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1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
188? 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1W%e 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
191? 
1918 
1919 
1920 
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ax 
xk 
ak 
ak 
ak 
ak 
ak 
xk 
ax 
aK 
xk 
ak 
xk 
xk 
ak 
aK 
ak 
xk 
ak 
xk 
xk 
ak 
ax 
ak 
ak 
ax 
xk 
ak 
xk 


xk 45; 


ak 
ak 
ak 2 
kt 
ik 


meee 


ak 
xk 
xk 
xk 
xk 
ak 
xk 
aK 
xk 
xk 
xk 
ak 
xk 


aK 3,4: 


xx 
ax 
xk 
ak 
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-- Check 1f overwrite is pernitted 


IF (ST[sOVERW]=0) THEN ERROR (File Exists) 


IF (old file is secure) THEN ERROR (File protect) 


Mark FIB entry to be purged if old file is open 


-- Check 1f roon for new file in old file 


IF (in_file_space < new_file_size) THEN 1.5: 


-- It fits here...use this entry! 


PTIRF <== in _file_start 
PTRD <== PTRC 


Write neu_file_ inplerientation into SCRTCH directory entry 
Write new file type into SCRICH directory entry 


Get current tine and date fron nainfrane 


GOSUB 8.4: -- Write tine&date, output entry @ PTRD 
GOTO ?: -- Transfer file data to PTRF, exit cleanly 


ee ee a a a a a we ee eww ew we ww we 


-- Found old file, file won’t fit here...mark as purged 


PTRL <== PTRC 


-- Count a purged file, get the next directory entry 


> PFC <== PFC + 4 


GOTO 4: 


ee ee ee we wee ee ee ee eee ww ee wee me wee wee ew ame were 


-- Nares don’t match...check 1f found new space yet 
-- (If found new space, continue to look for old nane) 


IF (NEWHO) THEN 4: 


-- Check if this file terninates a purged block RND 
-- the file would fit here 


IF (PFCHO AND ((in_file_start - PTRF)>=neu_file_size)) 
THEN NEW <== 1 @ GOTO 4: 


-- Won’t fit OR not termination of purged block 


PFC <== 0 
PIRF <== in_file start + in_file_ length 
PTRD <== PTRC + 1 


-- Fall through to code to loop back for next entry 
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1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
194? 
1948 
1949 
1950 
1951 
1982 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 


xx 
ak 
ak 
ak 
ae 
xx 
ak 
ax 
ae 
ak 
ak 
xk 
ax 
xk 
xk 
xx 
xx 
kk 
ar 
ax 
xx 
ak 
ak 
xk 
ak 
xk 
xk 
aK 
xx 
tok 
an 
ak 
ak 
ak 
ak 
ax 
ak 
ak 
ax 
xk 
ak 
xk 
ak 
ak 
ax 
ak 
we 
ae 
ak 
aK 
ak 
xk 
RK 
a 
ke 
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5.5: 


6.2: 


6.7: 


7.5; 
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: PTRC <== PTRC + 1 


IF (NOT End_of_ directory) THEN 1: 


PhEOD <== -- Set Physical End of directory flag... 


-- ,.,and fall through to End_of_directory code 


-- Check uhy we are done...end_of_file or finished 


IF (NEW=0) THEN 6: 


GOSUB 8:  -- Purge the old file, create new directory 


GOTO ?: ~- Copy the data to (PTRF), exit cleanly 


-- Check physical end_of_directory and no purged files 
IF (PhEOQD AND PFC=0) THEN ERROR ("Directory Full") 


-- Check if roon at end of nediun for new file 


IF (NOT (room at end)) THEN ERROR ("End of Medaun'') 


GOSUB 8: -- Purge the old file, create new directory 


Check if roon for logical end_of_directory nark 


IF ((PTRD + 1) = physical_end_of_directory) THEN GOTO ?: 


-- Write an End of Directory mark to the nediun 


Set SCRICH="FF...FF" -- Set up EOD mark in RAN 


GOSUB 9: -- Write the directory entry here 


: GOSUB #: -- Copy the data to the nediun 


-- Delete the FIB entry tarked to be deleted (if any) 


GOSUB Purge_riarked FIB entry (PUGFIB) 


IF (device 1s mass storage) THEN GOTO Reuind&status 


~- Destination is LOOP/non-nass storage 


IF (device is LOOP) THEN GOTO send ETO 


GOTO untalk_unlisten_end 


-- Subroutine to write the directory to the nediun 
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1976 h -- 
1977 ak -- Found roon for the new file...check if found old 
1978 i. -- (If found it and uriting sornewhere else, purge it) 
1979 -- 
1980 : 8: IF (PTRLWO AND PTRLHPTRD) THEN PTRL_file_type <== 
1981 -- 
1982 ne -- Before copying data, build the new directory entry 
1983 -- 
1984 *k 8.2: Get current tine and date: set up type, start addr, 
1985 ak and length of file 
1986 ae -- 
1987 i: 8.4: Set up tine and date, volune #, end flag, and inplenentat 
1988 = 
1989 a -- Now directory entry is set up...urite it to the rediun 
1990 ax =e 
1991 ak GOSUB SEEK(PTRD) 
1992 e* - 
1993 ae -- Write the new directory entry to the nediun 
1994 ak a 
1995 eA 9: Set up partial write tode to read in the record, repositi 
1996 -- 
1397 tk 9.5: Set to urite rode (buffer 0 contains the record) 
1998 7 Set the byte pointer to the correct entry 
1999 ia -- 
2000 xe Write the new entry 
2001 xx ae 
2002 ay RETURN -- End of subroutine 8: 
2003 ee | ete tees haa oe eel ere ee ne Bot ane 
2004 WAe, 0° bala oe lae see cee wees weet eens 
2005 ax -- 
2006 a -- Subroutine to urite the data to the nediun 
2007 ax ios 
2008 tk: IF [(data length=0) OR (data address=0) OR "LOOP") AND 
2009 ax (this is a COPY)) THEN RETURN 
2010 xx -= 
2011 a -- If this 1s a COPY, transfer data else initialize it 
2012 a -- 
2013 ax IF (NOT LOOP) THEN SEEK(PTRF) 
2014 kk =e 
2015 . IF CREATE THEN initialize data area (INITFL), RETURN 
2016 =e 
2017 os COPY neu_file_data TO (PTRF) (Send last byte as END) 
2018 ss 
2019 Rx RETURN -- End of subroutine #: 
2020 ax 
2021 x 
2022 ** History: 
2023 ax 
2024 a Date Prograrner Modification 
2025 RK weemnnme weer eee meen erm n nnn wenn nn ene nn nn anne 
2026 kK 10/11/83 NZ Updated docunentation 
2027 kk 09/01/83 NZ Added call to DELFIB to fix bug 
2028 Rx With not closing assign # to the 
2029 ak destination of a COPY command, 


20H 1 packed to install this fix 
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2031 
2032 
2033 
2034 
2035 
20 36 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 


F4ADE 
F4RE2 


F4RES 
F4RE8 


F4AER 
F4REE 
F4AF 1 
F4AF4 
F4RF 7 
F4AFA 
F4AFD 
F4B00 
F4B03 
F4B06 


F4BOR 


7 1AF 
400 


96B 
90 


7028 
480 
119 
A4E 
109 
119 
B46 
590 
AF 1 
6082 


7ACD 


ak 
x 
an 
kk 
xx 
ax 
ark 
xx 
ak 
xx 
ax 
ax 
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07/18/83 
05/12/83 
03/02/83 
02/05/83 


02/04/83 
02/03/83 


11/19/82 


NZ 
NZ 
NZ 
NZ 


NZ 
NZ 


NZ 
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Added status bit for overwriting 

file 

Changed CHKMAS call to use bits 

that are set by FILSPx 

Added sending nENDM to Diarond 

Added CHKNAS in NEWFI+ 

Added LOOP check in several spots 

Rearranged order of copy...nouw 
writes directory entry BEFORE 
writing the data 

Added docunentation 


JOU TOIT IIIT TO TTT TTI OI OI IO 
SOIC OIC IO TOTO I TTT TOTO TO OTTO 


=NEWFI+ GOSUB Start 


+ we ee OF 


NE 


=N 


5 
Ke 


NE 
i 


x 
x 
x 
x 
x 
x 
* 
x 
x 
x 
x 
x 
x 
x 
x 


RTNC 


Set up the loop 
Error??? KKK 


Now check if nass storage device...if not, check R1[S]: 
If R1[S]=0, set RI[S]="F" (not nass storage) 
If RI[S]#O, this 1s a create...error'! 


7D=0 
GOYES 


Check af bit 


GOSUB 
GOC 
WR++ C=R1 
C=C-1 
R1=C 
EWFIL C=R1 
C=C +1 
GONC 
B=0 
GOTO 


WFO1 GOSUB 


B 
NEWF ++ 


"LOOP"? 
Yes...set RI[S] 


"4" of D[3] 18 set...af so, then nass storage 


CHKBIT 
NEWFIL 


S 
S 
NEWFO1 


W 
NEWF55 


GDIRST 


0: Initralization 


Check mass storage bit 
Mass storage...continue on! 


Set for "LOOP" or not MS 
Check if LOOP or Non-MS device 
Not LOOP 


LOOP...set all pointers=0, enter 
at a later entry point 


Get directory start, etc 


GDIRST leaves start of directory (Dstrt) in A[X], length of 
directory (Dleng) in A[6:3], address of next record after 
the last ane on the nediun (Tlast) in A[10:7] 


Now initialize my internal pointers 


Narie Value 
PIRC: Dstrt 
PTIRD: Dstrt 
PTIRF: Dend 
PIRL: 0 
NEW: 0 


Register nibs Description: 


B[ 3:0] 
B(15:12] 
B[?:4] 
B[ 11:3] 
B[S]} 


Current directory pointer 
Directory pointer (neu space) 
File pointer (to data area) 
Pointer to old nane (Last) entry 
Flag- indicates PTRD is new entry 
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2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 


2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 


F4BOE 


F4B11 
F4B14 
F4B16 
F4B1A 
F4B1D 
FABIF 
F4B23 
F4B26 


F4B29 
F4B2eC 
F4BH 
F4B33 
F4B37 


F4B3A 
F4B3C 


F4B44 
F4B48 
F4B4B 
F4B4F 
F4B53 
FABS5 
F4B58 
F4B5B 


ee ee ee OOO 


5A1 


» 


880 
00 
80F 0 
880 


80FO NE 
53E 


ee ee 


ADO NE 
AATF 


760F 


x 
x 
x 


20 ONE 
3500 
0000 
7FLF 
400 
1000 
15F3 

23 

B16 

560 
6622 NE 


x. 
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PFC: 0 D[14] 
PhEOD: 0 D[13] 
NNane:given RO,R4[15:12 
NSize:given R1[5:0] 
NType:given R1(9:6] 
NData:given R1[14:10] 
CCode:given R1[15] 
NInpl:given R2[7:0] 
Dlenl:Dleng D[8:5] 


Purged file currently found 

Physical end_of_directory reached 

New file nane (20 nibbles) 

New file size (bytes) 

New file type 

New file data start (in RAM) 

Create code (if not zero,F) 

New file inplenentation bytes 

Directory records left to process 
(includes current record) 

Mediun end (address of next record) 


B=" HOON HHI 


Tendr:Tlast 0{12:9] 
All directory pointers are of the forn [3 nibs][1 nib}; 

The [3 nibs] field is the directory record nunber. 

The [1 nib] field is the entry number within the record. 
If carry, check what the error is...1f "New Mediun", try again 


GONC NEWFOS OK... continue 


Check for "New Medium" error ...close files, continue 


PH =eTRPE 
RTNYES Error during status 
CPEX 0 
?PH =eNEWTA New nediun? 
GOYES NEWFO3 
WFO3 CPEX 0 Carry: not "New Mediun" 
RTNC If carry, return the error 
GONC NEWFO1 Go always...try again! 


Seek the first record of the directory...in A[X] 


WFOS = A=0 q Clear high nibbles 
GOSUB Seeka Seek to that record 
RTNC Error with nediurt or loop 
GOSUB DdtRd Read conrand 
RTNC Error 


1: Read in an entry (at PTRC) 


WF10 P= 0 
LC(6) (=nSDA)+32 Read 32 bytes... 
GOSUB Readsc ..-into =SCRICH! 
RTNC Error! 
D1=(2) (=SCRTCH)+20 Type! 
C=DAT1 4 
P= 3 
C=C+1 UP If carry, then End of directory 
GONC NEWFI2 Not end of directory 
WF11 GOTO NEWF5O End of directory! 
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2140 
2141 
2142 
2143 
2144 


2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
e172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2t8e 
2183 
2184 
2185 
2186 
218? 
2188 
2189 
2190 
2191 
e192 


2193 


F4BD5F 
F4B62 
F4B64 
F4B67 


F4B6D 
F4B70 


F4B72 


F4B75 


F4B79 


F4B7D 


F4B70 
F4B81 
F4B84 


F4B86 
F4B89 
F4B8D 
F4B90 
F4B94 
F4B97 
F4B9A 
F4BSC 
FABSF 


F4BR2 
F4BAS 
F4BRS 
F4BAC 
FABRE 


F4BB1 
FABB3 
F4BR6 


94B 
Bi 
AFS 
8EO0 
00 
91A 
DO 


58E 


6751 


6F51 


15F 3 
91A 
1F 


1€3 
15B3 
1CF 
157? 
120 
976 


120 
49D 


11 
72FE 
912 
50 
SAC 


20 
HO 
860 
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ke 
NEWF12 ?*D=0 = = 6§ Is NEW=07 
GOYES NEWF13 Yes...continue 
C=B W 


COSUBL =CSRC8 


7C=0 = WP 
GOYES NEWF13 
k 


* PTRLHO and NEWHO...call it 
x 


GONC NEWF11 
we 
ae 
NEWF2. GOTO  NEWF20 
ke 
Ks 
NEMF 30 


NEWF3. GOTO 
x 


ke 
NEWF 13 
x 


* Check if in_type=0 
* 
C=DAT1 4 


7C=0 =P 
COYES NEWF2. 


* This is not a purged file.. 
x 


Di=D1- 4 
A=DAT1 4 
Di=D1- 16 
C=DAT1 W 
AROEX 

*RAC OW 
GOYES NEWF14 
AROEX 
GOL 


NEWF 14 
NEWF3. 
x 


* First 
x 
C=R4 
GOSUB 
PA=C 
GOYES 
GONC 


Csrei2 
WP 

NEWF ta 
NEWF3. 


Nanes natch.. 


ee ee oe 


NEWF 1a 
EFILE 


iC{1) =e 
sOVERW 


P= 0 
*ST=0 : 


Get PTRL into C[3:0] 


Is PTRL=0? (P is 3) 
Yes...continue 


end of directory 


Go always! 


Jurip (out of range) 


Jurip (out of range) 


Reread type fron SCRICH+H20 
Purged file? 
Yes...process it 


check if nanes natch 


Set D1l<-last 2 characters of nane 
Read then into A[3:0] for now 
First 8 characters of nane 

Read then! 

First 8 chars in A[W], C[W] 


Sets carry 1f no natch 
Suap nane back into RO, A[3:0] 
Not a match...continue 


8 chars match...check 1f last 2 also natch 


Get last 2 chars in C[3:0] 


Match...check roor 
Go always...Not match 


.check if overwrite permitted (if not, error) 


File exists 
Qverurite it? 
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2194 F4BB9 92 
2195 

2196 

2197 

2198 FABBB 1D00 
2199 F4BBF AFS 
2200 F4BC2 108 


2201 

2202 

2203 

2204 F4BC5 7925 

2205 F4BC9 DA 

2206 F4ABCB 8E00 
00 

2207 F4B01 541 

2208 

2209 

2210 

2211 F4BD4 8E00 
00 

2212 F4BDA 5B0 

2213 

2214 

2215 


2216 F4BDD 20 
2217 FABDF 300 
2218 FABE2 20 
2219 F4BE4 02 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 F4BE6 DB 
2230 F4BE8 1F00 
000 
F4BEF 7105 
F4BF3 77RE 
F4BF?7 3200 


F4BE6 


2231 
2232 
2233 
0 
2234 F4BFC 8E00 


00 
2235 F4CO2 798E 
2236 


2237 

2238 

2239 F4C06 8E00 
00 

2240 

2241 


2242 
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GOYES NEWFid No...error (Duplicate file) 


* Overwrite pernitted...check if file is secure 
& 


B1=(2) i SCRTICH)+20 Point to type field 
C=8 Save B in R3 temporarily! 
R3=C 


* FIYPFH destroys RO, but the nane is also in SCRICH[15:0] 
GOSUB GT2BY0 


R=C A 
GOSUBL =fTYPFH 


Read file type 
File type is in A[A} now 
Get file type # 
NEWFic Not found.. 


GONC .OK (continue) 


* Found...check if secure 
x 


GOSUBL =CHKSEC If secure, returns with carry set 


GONC = NEWFic Not secure...0K to continue 

& 

* File is secure...error! 

x 

=fPROT P= 0 Set up "File Protected" error 
LC(1) =efPROT File Protected! 

NEWFid P= =eTAPE 
RTNSC 


x. 
x. 
x 


* Not secure...kill the FIB entry (if any) for the file! 
k 


NEWF ic 
i 
* First build the FIB file data pointer 
& 
C=D =A 
D1=(5) (=SCRTICH)+28 Start address (third byte) 
GOSUB GT2BYT Read tuo bytes! 
GOSUB Cslc3 
LC(3) =bFIB 
GOSUBL =i/OFND Find the FIB buffer 


GOSUB Csrc3 Now C[6:0] is pointer! 


x 


* 01 @ FIB buffer, C[6:0] is address of file 
k 
GOSUBL =PURFIB Find and nark the FIB entry 


x 
® Restore RO fron SCRICH and B[W] fron R3 
x 
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2243 
2244 
2245 
2246 


2247 F4CiA 


2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 

275 
2276 
227? 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
228? 
2288 
2289 
e290 
2291 
2292 
2293 
2294 
2295 
2296 
cee 


FACOC 
F4C10 
F4C14 
F4C17 


F4C1D 
F4C20 


F4C24 
F4C28 
F4C2A 
F4C2c 
FAC2F 
F4C32 
F4C34 


F4C38 
F4C3B 
F4C3F 
F4C43 
F4C45 
F4C48 
F4C4A 
F4C4D 
F4C51 
F4(53 
F4C56 
F4C59 
F4CSC 
F4C60 


F4C64 
F4C6? 
F4C6B 
F4COF 


F4C73 
F4C76 


7C1E 
157? 
108 
11B 
AFS 


111 
1D00 


7cc4 
F2 
25 
B92 
99R 
60 
66380 


1CB 
7584 
785€ 
23 
A99 
2? 
A95 
7B3E 
2B 
Ag9 
108 
112 


1597 


119 

712E 
1000 
7894 


119 
10A 
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GOSUB 01=SCR 
C=DRT1 W 
RO=C Restore RO[W] fron SCRICH 
C=R3 
B=C W Restore B[W] fron R3 


K 
* Registers are restored...check if room for new file here 
k 


Get file length (given) 


Ri 
=(2) (=SCRTCH)+36 Length of file field @ 3rd byte 


A= 
D1 
k 

* NOTE: if length of existing file is > 2%16 sectors, this 
* code will treat it as if it were (size modulo 2°16) 

k 


GOSUB GT2BYT ...Read 2 bytes, start at DI 
CSL A 
P= 5 
CSL WP Now C{5:0] 1s length in bytes 
?Ac=C WP Does it fit? 
GOYES NEWFib Yes...set it up! 
GOTO 8 NEWF1I5 No...continue 
*. 
k. 
x 
* New file will fit in space for the old file (already on medium) 
* 
* Copy start address to PTRF 
x 
NEWFib 01=D1- 12 Point to start address @ 3rd byte 
GOSUB GT2BYT Read 2 bytes into C{3:0] 
GOSUB Cslc4 ...shift to C[7:4]... 
P= 3 
C=B WP ...copy PTRC to C[3:0]... 
P= ? 
B=C WP ...and set PTRF<==1n start 
GOSUB Csrc4 Shift PIRC to C(15:12] 
= 11 
C=B WP 
R3=C Copy PTRC==>PTRD! (save B in R3) 
R=R2 Get inplenentation bytes into A 
D1=(2) (=SCRTICH)+56 (Inplenentation bytes) 
DAT1=A 8 Write out the 4 bytes! 


* 
* Update the file type to the "nen" type 
x 


C=R1 Get type fron R1[9:6) 

GOSUB Csre4 Get to C{5:2] 

D1=(2) (=SCRTCH)+20 Point to type field 

GOSUB PT2BYT Output 2 bytes fron C{5:2] to D1 


Now B[W] in R3; Save R1[W] in R2; DLA] ain R4[9:5] 
(YMDHMS uses A-D,P,DO,D1,RO,R1,ST[7:0]) 


ee ee 


R 


C=R1 
Re=C R1 in Re 
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2298 F4C79 DB C=D A 
2299 F4C7B 791E GOSUB Cslc5 
2300 F4C7F 100 R4=C D[A] in R4[9:5} 
2301 FAC82 742E GOSUB Yndhns 
22 * 
2303 * Now C[11:0] 1s date info 
2304 * 
2305 F4C86 AFS B=C W Save date info in B tenporarily 
2306 F489 11C C=R4 
2307 F4C8C 79FD GOSUB CsrcS 
2308 F4C90 D7 D=C A Restore B[A] 
2309 F4C92 7000 GOSUB =Getnbx Restore DO 
2310 F4C96 1FOO 01=(5) (=SCRTICH)+56 
000 
2311 F4C9D 15F7 C=DAT1 8 Recall inpl bytes (for NENF84) 
2312 F4CA1 12A CR2EX Restore R2, fetch R1 value 
2313 F4CA4 109 R1=C Restore R1 
2314 F4CA7 118 C=R3 Recall B{W] value 
2315 F4CAA AFD BCEX W Restore B[W], fetch date info 
2316 FACAD 1C2 Di=D1- 3 Position to where NEWF84 expects 
2317 F4CBO 7EF2 GOSUB NENF84 Write the date, vol label, inpl 
2318 F4CB4 400 RTNC Error soneuhere! 
2319 F4CB7 6E61 , GOTO NEWF70 Copy file to (PTRF), exit cleanup 
2320 - 
2321 a. 
2322 * 
2323 : 1.5: Found the old file, new file won’t fit there 
2324 
2325 F4CBB NEWF15 
2326 . 
2327 : Found old file, but it’s too small now...consider it purged 
2328 
2329 F4CBB D9 C=B A Set PTRL<==PTRC 
2330 FACBD 8E00 GOSUBL =CSLC8 
00 
2331 F4CC3 27 P= ? 
2332 F4CC5 R99 C=B WP 
2333 F4CC8 28 P= 11 
2334 FACCA AIS B=C WP Now PTRL=PTRC 
2335 . 
2336 * 2: Mark a purged file and loop back 
2337 x 
2338 F4ACCD 2E = =NEWF20 P= 14 
2339 F4CCF BO? NEWF25 D=D+1 P Nake PFC non-zero 
2340 F4CD2 4CF COC NEWF25 If carry, mrap around! 
2341 F4CD5 6080 Aga GOTO NEWF40 Incrertent to next entry, loop back 
2342 - 
2343 es 
2344 . 
2345 * 3: Nanes don’t match, non-purged file...check if found a 
2346 * place for the file yet (if so, continue looking for the 
2347 x old file on the nediun) 
2348 4 
2349 F4CD9 94F NEWF30 7DHO S$ Is NEWHO? 


2350 F4CDC 9F GOYES NEWF4. Yes...continue looking for old 
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2351 

2352 

2353 

2354 

2355 

2356 F4CDE 2E 

2357 FACEO 908 

2358 F4CE3 D3 

2359 

2360 

2361 

2362 FACES 1000 
. 2363 FACES 7704 

2364 

2365 

2366 

2367 FACED 7900 

2368 F4CF1 4&2 

2369 

2370 

2371 

2372 F4CF4 B47? 

2373 FAC? SE5 

2374 

2375 

2376 F4CFA AF4 

2377 FACFD 73AD 

2378 F401 23 

2379 F4DO3 B12 

2380 

2381 

2382 

2383 F4ADOG 111 

2384 F4D09 822 

2385 F4DOC BF4 

2386 FADOF BF4 

2387 F4d12 832 

2388 F4D015 40 

2389 

2390 

2391 

2392 FADI? E4 

2393 

2344 

2395 

2396 F4019 996 

2397 F4D1IC 00 

2398 FADIE 03 

2399 

2400 

2401 F4D20 

2402 

2463 

2404 

2405 F4D20 2E 
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x 
* Check if (PFCHO) AND ((Start-PTRF) >= new_size) 
x 
* First check PFC=0 (If zero, skip) 
k 

P= 14 

7D=0 =P Is PFC zero? 

GOYES NEWF34 Yes...reset PTRF, PTRD and cont 


* Nou check if enough roon! 
x 


D1=(2) (=SCRICH)+28 In file start (Start@ third byte) 
GOSUB GT2BYT Read 2 bytes,start @ D1,to C[3:0] 


* C[A] is now In_file_start...get PTRF, check if file fits. 
k 


GOSUB CHKSIZ Check if fits (carry if not) 
GOC NEWF 34 Doesn’t fit...continue 
x 
* The new file WILL fit at PTRF 
x 
D=D+1 = §$ NEW <== 1 (PTRD is location) 
GONC NEWF40 Go always 
k. 
x 
CHKSIZ A=B W Get PTRF into A[3:0] 
GOSUB Asrc4 
P= 3 
C=C-A UP Compute (In_file_start - PTRF) 


* Get NSize next, convert to records (Use next integer record) 
x 


A=R1 A[5:0] is size in bytes 

SB=0 Use the Sticky Bit to check if 
ASR W any bits were shifted off the 
ASR W end of A! 

?SB=0 Any bits lost? 


GOYES CHKSIz No...skip increnent statenent 

: NOTE: if file size is ever > HFFFFOO, this won’t uork . 
A=A+1 A Increnent A[3:0] 

: Now C[3:0] 1s (In_file start - PTRF), A[3:0] 1s NSize(Recs) 


CHKSIz *A>C WP Does it fit? 
RTNYES No...set carry 
RINCC Yes...clear carry 

a. 

k. 

NEWF 34 

x 


* File uon’t fit OR no purged files before it 
*¥ 


P= 14 
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2406 F4D22 A83 D=0 P PFC <== 
2407 
2408 * Set PTIRF <== In_file start + In_file_ length 
2409 x 
2410 F4D25 1000 D1=(2) (=SCRICH)+28 Back to In_file start... 
2411 F4D029 7703 GOSUB GT2BYT Read In_file_start into C(3:0] 
2412 F402D0 DA A=C A Save In_file_ start in A[3:0] 
2413 F4D2F 173 D1=Di+ 4 Move to In_file length + 4 
2414 F4D32 7EB3 ; GOSUB GT2BYT Read In_file_length into C[3:0] 
2415 
2416 : Now A[3:0] is In_file_start, C[3:0] is In_file_length 
2417 
2418 F4D36 23 P= 3 Set up for C=B WP below 
2419 k 
2420 : NOTE: if in_file(start+length) #FFFF, this will be incorrect! 
2421 
2422 F4D38 C2 C=C+A A C[3:0] 1s in_file(start + length) 
2423 F403A 7D5D GOSUB Cslc4 Shift to C[7:4] 
2424 F4D3E AIS C=B WP 
2425 F4D41 27 P= 7 
2426 F4D43 AIS B=C WP Copy to B[7:4]! 
2427 : 
2428 * Now set PTRD <== PTRC + 1 
2429 * (PTRC is in C[3:0] NOW!) 
24H : 
2431 F4D46 7960 GOSUB NXTENT Increrient to next entry 
2432 F4DAA 7E3D GOSUB Csrc4 Now C[3:0] is PTRC+1... 
2433 F4D4E 28 = 1 ...tove to C(15:11)... 
2434 F4D50 ASS C=B WP 
2435 F4D53 AFS B=C u ...and copy to PTRD! 
2436 Z 
2437 * Fall through to... 
2438 x 
2439 * 4: Code to loop back for next entry 
2440 x 
2441 F4D56 NEWF40 
2442 * 
2443 * Increrient PTRC, loop back if not record carry...else check 
2444 * for end-of-directory, decrenent record count 
2445 * 
2446 F4D56 775D GOSUB NXTEN+ C=PTRC, Increnent to next entry 
2447 F4D5A DS B=C A Store back in PTRC 
2448 F4D5C 460 GOC NEWF45 Wrap!...Decrenent record count 
2449 FADSF GADD NEWF1. GOTO NEWF1I0 Loop back for next entry 
2450 Ae 
2451 Re 
2452 - 
2453 * Check for physical end of directory 
2454 - 
2455 F4D63 AFB NEWF45 C=D W 
2456 F4D66 7F1D : GOSUB  Csrc5 Get Dlenl into C[3:0] 
2457 
2458 * By the definition of Dlenl, this can’t borrow (I check zero 
2459 * every tine I decrerient and original value is > 0) 
x 


2460 
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2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
24% 
2491 
2492 
2493 
24:94 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 


F4D6R 
F4D6C 
F4D6E 
F4D71 
F4D73 
F4D77 
F4D7A 


F4D70 
F4D7F 


F4D82 


F4D82 
F4D85 


F408? 
F4D8B 
FAD8E 


F4D92 


F4092 
F4D94 
F409? 


F499 
F498 
F4N3e 
F4DRO 
F4DR2 
F4DA5 
F4DA7 


F4DA9 
F4DRB 
F4DRE 


CE 
ea 
391A 
Co 
7120 
RF? 
54€ 


2D 
BO? 


948 
DO 


72E0 
400 
6790 


2E 
SOF 


2D 
90B 
3 
20 
300 
20 
02 


20 
300 
46F 
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C=C-1 A Decrenent C[3:0] (Can’t borrow) 
P= 3 Check C[3:0] 
7C=0 OP Done? 
GOYES NEWF48 Yes...Physical end of directory 
GOSUB Cslc5 
D=C W Store back into Dlenl 
GONC NEWF1. Go always 
ke 
fe 
NEWF48 P= 13 Point to PhEOD... 
D=D+1 P ..-and set 1t true 
* §: Reached end of file...process it now 
k 
NEWF50 
k 
* First check if have a space for the new file 
x 
7D=0 = S NEW=0? 
GOYES NEWF6O Yes...no room yet 
* Have roon for it...process it here 
x 
NEWF55 GOSUB NEWF80 Purge old, create new file entry 
RTNC Error during write 
GOTO  NEWF70 Copy data to (PTRF), cleanup&exit 
a 
ie 
i 
* 6: End of directory, no space found for file yet 
i 
NEWF 60 
* 
* If (PFC=0 AND physical End_of_directory) THEN Error! 
i 
* Check PFC=0 first 
& 
P= 14 
7DHO OP 
GOYES NEWF62 Need to check if room on nediun 


* Now chech Physical End_of_directory 
tt 


P= 13 Point to PhEOD... 
*D=O0 OP ...check 1f reached PhEOD 
GOYES NEWFE62 Nat physical end_of_directary 
P= 0 Is physical end_of directory... 
LC( 1) =eDIRFL Directory 1s full! 

HEWFeT P= =e TAPE (Mediuri error) 
RINSC 

ke 

te 

NEWF61 P= 0) 
LC(1) =eEGTAP End of mediutt 


GOC NEWFeT Go aluays 
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2516 Ke 
2517 a 
2518 & 
2519 ; Not physical end_of_directory...check if room for file @ end 
2520 
2521 F40B1 NEWF 62 
2522 m 
2523 : PTRD points to the directory entry to be used...if roon! 
2524 
2525 ; First check if room at end of nediun for this fale. 
2526 
2527 * IF ((Tendr - PTRF) >= NSize) THEN room at end 
2528 x 
2529 * Get Tendr first... 
2530 & 
2531 F4DB1 AFB C=D u 
2532 FADB4 8E00 GOSUBL =CSRC9 Shift into C{3:0] 
oO 
2533 x 
2534 * Now check if the file will fit here 
2535 ‘ 
2536 F4DBA 7C3F GOSUB CHKSIZ Check if roon for file 
2537 F4DBE 4AE COC NEWF61 No...End of nediun error 
2538 : 
2539 * Roon for the file...urite it here! 
2540 x 
2541 F4DC1 78A0 GOSUB NEWF80 Purge old, create new dir entry 
2542 F4DC5 400 RTNC Error during write 
2543 ‘: 
2544 : Check if room for the end_of_directory mark here 
2545 
2546 * If got here by logical end_of_directory and PTRC is at the 
2547 * last directory entry before physical EOD, then set PhEOD for 
2548 * the following test! 
2549 , 
2550 F4DC8 75EC GOSUB NXTEN+ Increrent to next entry 
2551 F4DCC 562 : GONC NEWF67 Not new record...continue on 
2652 
2553 * New record...check if this was the LAST one 
2554 x 
2555 F40CF AFB C=D W 
2556 F4DD2 73BC GOSUB Csrc5 Get Dlenl into C[3:0] 
2557 F4DD6 CE C=C-1 A Can’t carry by its definition 
2558 F408 23 P= 3 
2559 FADDA 391A *C=0 =P Physical end of directory? 
2560 F4DDD % P GOYES NEWF66 Yes...no more records in directory 
2561 
2562 * If physical end_of_ directory is false, then there IS roon 
2563 * for the end_of_directory mark. If physical, then check if 
2564 * PFC>1...af so, room for end_of_directory mark, 
2565 - 
2566 * Check first for physical end_of_directory 
2567 x 
2568 FADDF 2D P= 13 


2569 F4DE1 90B 7D=0 =? Is this physical £0D? 
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2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
C608 
2009 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 


2619 
2620 
2621 
e622 
2623 


FADE4 
F4DE6 


F4DE6 
FADES 
F4DEB 
F4DEE 
FADF1 


FADF3 
F4DF6 
F4DFA 
FAaDFE 
F4EOO 
FAEO4 
F4EO? 
F4EOR 
F4EOD 
F4E11 
F4E14 
F4E18 


FAE1B 
F4E1F 
F4E23 


F4E26 
F4E2A 


F4E2D 
F4E2F 
F4E32 


F4E35 
F4E37 
F4E3A 


FAE41 
F4E45 
F4E48 
F4E4R 


FO 


2E 
AOF 
4A3 
9B 
53 


AFS 
71AC 
75BC 
DA 
788C 
AFS 
814 
RDO 
793C 


756C 
400 


73FB 
77F 1 
400 


7$32 


AF9 
108 


0B 
10A 
8FOO 


7000 
114A 


118 
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NEUF 66 
x 


GOYES NEWF67 
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No...0K to write EOD nark 


* Have reached physical end of directory...check if any purged 
* directory entries available to urite the logical E00 mark 
x 


x 


* Write 
x 


NEWF 67 


* Write 
k 


* 


P= 14 
D=D-1 P 
COC NEWF 70 
7D=0 =P 


GOYES NEWF70 


the end_of_ directory 


C=B Wd 
GOSUB Csrc12 
GOSUB NXTENT 
A=C A 
GOSUB Cslci2 
B=C W 

ASRC 

A=0 nN 
GOSUB Seeka 
RTNC 

COSUB Ntyl 
RTNC 


Check # of purged files 
(Decrenent FCS 

If PFC was zero, no roon for EOD 
More than one purged entry? 
No...no roon for EOD mark 


nark 


Get PTRD into C[15:12]... 

... Move to C[3:0]... 
...increnent to next entry! 
Copy the pointer to A[3:0] 
...tove back to C{15:12]... 
..and copy back to B (Rest is OK) 
Entry # in A[S], record in A[X] 
(Clear unused nibbles) 

Go to that record 

Error during seek 

I send data to the rediun 
Error 


"FFF"s to SCRICH (For the end_of_directory mark) 


GOSUB F->SCR 
GOSUB NEWF90 
RTNC 


Write 64 nibs of "F" to SCRICH 
Read the record, update, trite 
If carry, error writing EOD 


* 7: Copy the data to the mediun 
* 


NEUF 70 


x 


GOSUB NEWF.O 
RTNC 


Copy the data to the nediun 


* Fall into clean-up code...(rewind device, etc) 


x 


0 
B W 


P 
C 
R3=C 


wWwiy tl 


Put B[W] into R3! 


* Now delete the FIB buffer narked by PURFIB (if any) 


A 


SAR 


D 
=C 
SBVL =PUGFIB 


GOSUB 
C=R2 
D=C R 
C=R3 


=Getribx 


Save D[A} in Ro 
Delete first FIB marked as purged 


Get DO back to the mailbox 


Check if LOOP 
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2624 F4E4D 97—~A *c=0) OW LOOP? 
2625 F4ESO 80 GOYES NEWF75 Yes...don’t remind! 
2626 F4E52 8CAI GOLONG ENDTAP Carry = result 
7F 
2627 ae 
2628 ae 
2629 F4E58 SOF NEWF75 *DHO B Is this "LOOP"? 
2630 F4E5B CO GOYES Utlend No...clean up 
2631 F4E5D 3100 LC(2) =nENDN Yes...set ETO 
2632 F4E61 800 GOLONG =PUTC+ 
0) 
2633 a. 
2634 ke 
2635 F4E67 8COO =Utlend GOLONG =UTLEND Unt, Unl, END 
00 
2636 he 
2637 a. 
2638 & 
2639 * 8: Subroutine to write the new directory entry to the nediun 
2640 
2641 F4E6D NEUF 80 
2642 x 
2643 * First check if found the old file (If found and writing 
2644 * soneuhere else, purge this first) 
2645 * 
2646 : IF (PTRLHO AND PTRLHPTRD) THEN PTRL_file_ type <== 0 
2647 
2648 * First check PTRLHO 
2649 _ 
2650 F4E6D AF4 A=B W Get PTRL into A[11:8]... 
2651 F4E70 8E00 GOSUBL =ASRC8 ...tove to A[3:0]... 
00 
2652 F4E76 23 P= 3 
2653 F4E78 SIC 7AHO | OWP ...and check if non-zero 
2654 F4E7B 60 GOYES NEWF8! Non-zero...check PTRLHPTRD 
2655 F4E7D 6E6O NEWF8. GOTO NEWF82 Zero...continue 
2656 aad 
2657 xe 
2658 : 
2659 * Now check PTRLHPTRD...Use A to fetch PTRD 
2660 x 
2661 F4E81 AFS NEWFS8!' C=B W Get PTRD into C{15:12]... 
2662 F4E84 7310 GOSUB Csrci2 ...shift into C[3:0]}... 
2663 F4E88 912 ?A=C OWP ...and check for equality 
2664 F4E8B 2F : GOYES NEUF8. EQUAL...skip purge 
2665 
2666 : Need to purge the file here (PTRL is in A[3:0]}) 
2667 
2668 * If this purge were to be done uhen it is FOUND, there will 
2669 * be less nediun wear, but the file would be purged even if an 
2670 : error occurs while trying to create the new file 
2671 
2672 F4E8D 814 : ASRC Shift PTRL - get record # in A[X] 
2673 
2674 * Now A[X] is the record #, A[S] is the directory entry # 
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2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 


2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 


2712 
2713 
2714 
2715 
2716 
2717 
2718 
2713 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
272? 


F4E90 
F4E93 
F4E9? 
F4E9R 
F4ESE 


F4EA1 
F4EA? 


F4ERR 
F4ERE 


F4EB1 
F4EB3 
F4EB? 
F4EBA 
F4EBD 
F4EBF 
F4EC1 
F4ECS 
F4EC8 
F4ECC 


F4ECF 
F4ED3 
F4ED6 
F4ED8 
F4EDC 
F4EDF 


F4EES 
F4EES 
F4EEC 


F4EEC 
F4EFO 
FAEF3 
F4EF? 


F4EFA 


R80 
7388 
400 
7FDB 
400 


8EX® 
400 


7788 
400 


20 
7088 
400 
810 
FO 
c4 
31% 
R62 
75AB 
400 


7468 
400 


7598 
400 
3300 


7F 6B 
400 


7C3B 
110 
151? 
17F 


119 
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x 


x 


A=0 Pp 
GOSUB Seeka 
RTNC 

GOSUB Ntyl 
RTNC 


(P is still 3 fron above stnts) 
Go to that record 

Error 

Send DDL to the drive 


* Read the record into buffer zero of the drive 
x 


GOSUBL =DdiPur 
RTNC 


Send partial write mode, MTYL 


Error 


* Set the drive mode back to WRITE mode (NOT partial write) 
k 


x 


* Now buffer 0 
* at PTRL (set 
k 


NEWF 82 
k 


GOSUB DdlWrt 
RTNC 


P= =SetBP 
GOSUB Ddl 
RTNC 

ASLC 

ASL A 
A=A+A A 
LC(2) 10 
C=C+A B 
GOSUB Putd 
RTNC 

P= =Writed 
GOSUB Odl 
RTNC 

C=0 A 
GOSUB Putd 
RTNC 

LC(4)  =nENDF 


GOSUB Putc 
RTNC 


* Now ready to write the new 
* 


x 


GOSUB D1=SCR 
A=RO 

DATI=A W 
D1i=D1+ 16 


Write node (Sets Byte pointer=0) 


contains the record...nodify the file type 
to zero) and write the record out to the rediun 


Set byte pointer 


Move entry # to A[O] 

Shift into the B field (*16) 
Double it (*32) 

Byte # within entry of file type 
Now C[B] points to the file type 
Send it! 


(WriteO is 0, P is already 0) 
Set WRITE node 


Clear C[B] 
Send first byte of type (PURGED) 


Send last byte as an END frane 


entry (Create it in SCRICH first) 


Narie... 
(First 8 chars) 
(Write first 8 chars) 


* At this point, save the contents of R1 @(=SCRTCH)+#10, B[W] 
* @(=SCRTICH)+#20, DO @(=SCRTICH)+H30, and D[A,15:13] @(=SCRICH) 
* +#35 so that I can call YMDHMS, which uses DO,D1,A-D,RO,R1 


x 


C=R1 
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2728 F4EFD 
2729 FAFO1 
2730 F4F04 
2731 F4FO7 
2732 F4FOB 
2733 F4FOE 
2734 F4F11 
2735 F4F14 
2736 F4F17 
2737 FaFIA 
2738 F4F1E 
2739 
2740 
2741 
2742 F4F22 
2743 
2744 
2745 
2746 
2747 
2748 F4F26 
2749 F4F29 
2750 F4F2C 
2751 F4F30 


2752 F4F37 
2753 F4F3B 
2754 F4F3E 
2755 FAF42 
2756 F4F45 
2757 FAF49 
2758 FAF4C 
2759 FAFSO 
2760 F4F53 
2761 F4F5?7 
2762 
2763 
2764 
2765 
2766 
2767 


F4F5A 
FAFSE 
F4F61 


2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 F4F78 
2780 F4F7B 


F4F67 
F4F6R 


F4F6E 
F4F 71 
F4F75 


1557 
17F 
AF9 
155? 
17F 
136 
145 
174 
AFB 
7088 
1507 


7488 


AF? 
11 
7B6B 
1FOO 
000 
1537 
101 
15D3 
173 
7858 
AF6 
7681 
AF2 
1507 
177 


1577 
AFS 
8E0O 


13 
7091 


AF2 
1503 
173 


119 
36R 
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* Now I 


+ eS Se 


© 


* 


DAT1=C W 
01=Di+ 16 
C=B WW 
DAT1=C W 
D1=Di+ 16 
CDOEX 
DAT1=C A 
D1=D1+ 5 
C=B W 
GOSUB Cslc3 
DAT1=C 8 
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Save R1 @ (=SCRICH)+#10 


Save B @ (=SCRTCH)+#20 


Save DO @ (=SCRICH)+#30 


Save D[A,15:13] @ (=SCRTCH)+#35 


an ready to call YMDHNS 


GOSUB Yndhns 


D=C 
C=R4 
GOSUB Csrci2 


W 


D1=(5) (=SCRTICH)+16 


R=DAT1 W 
R1=A 

DAT1=C 4 
DI=Di+ 4 
GOSUB Asrc4 
C=A Wi 
GOSUB PT2BYT 
C=0 W 
DATI=C 8 
D1i=D1+ 8 


Set start address < 


C=DAT1 W 
B=C W 
GOSUBL =CSRC2 


Di=D1- 4 
GOSUB PT2BYT 


C=0 W 
DAT1=C 4 
Di=D1+ 4 


= PTRF 


D1 now points @ (=SCRICH)+ 


Returns with info in C[11:0] 


Registers A,B8,0,D0,D1,R0,R1 are NOT defined nou! 


Restore registers and write out the info 


Save tine in D(H] for now 


Get last 2 chars in C[3:0] 
Point to filenane 


Read in R1 fron =SCRICH+H10 


Restore it 
Write out last tuo chars of ‘nane 


Output file type 


Clear out start address field 
Move to B[W] save area 


PIRF is in C{7:4]... 
..- (restore B[W])... 
.. shift into C{5:2]... 


...position to START field... 
..-Put 2 bytes, Di=D1+ 4 


#20 (LENGTH field) 


Clear first 2 bytes of LENGTH 
Skip to second half! 


* Set length field <== (NSize + 255) DIV 256 
x 


C=R1 


7C=0)—o#B 


NSize is in Cf£5:0]! 
Is this an even # of records? 
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2781 F4F7E 61 

2782 F4F80 B26 

2783 F4F83 550 

2784 F4F86 BS6 

2785 F4F89 97D 

2786 FAF8C 80 

2787 F4F8E RE2 

2788 F4F91 109 

2789 FAF94 

2790 

279) 

2792 

2793 F4F94 7371 

2794 

2795 

2796 

2797 F4F98 177 

2798 F4F9B 147 

2799 F4F9E 147 

2800 F4FA1 134 

2801 FAFA4 174 

2802 FAFA? 15F7 

2803 F4FAB 70EA 

2804 FAFAF AFF 

2805 F4FB2 ICC 

2806 

2807 

2808 

2809 F4FB5 2A 

2810 F4FB? 7ADA 

2811 F4FBB 14D 

2812 F4FBE 171 

2813 F4FC1 8600 
00 

2814 F4FC? OC 

2815 FAFC9 51F 

2816 

2817 

2818 

2819 F4FCC 22 

2820 F4FCE 3310 


08 
2821 FAFD4 7331 
2822 
2823 
2824 


2825 F4FD8 11A 
2826 F4FDB 1507 
2827 FAFDF 97D 
2828 F4FE2 01 
2829 F4FE4 96B 
2830 F4FE? 66 
2831 

2832 

2833 
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GOYES 
C=C+1 
GONC 
C=C+1 
?BRO 
GOYES 
C=0 
R1=C 


NEWF 83 


NEWFS, 
k 


NEWF8, 
KS 
NEWF83 
q 

W 
NEWFS, 
B 
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Yes...continue 
No...add 1 to it! 
If carry, propagate into C[M] 


Loop? 

No... continue 

Yess 

...set length=# recs * 256 


* Now C[5:2] is length in records 
k 


GOSUB 


PT2BYT 


Put 2 bytes, increnent D1 by 4 


* D1 is now @ (=SCRICH)+ #28 (tine of creation field) 
* 


01=01+ 
C=DAT1 
C=DAT1 
DO=C 
01=D01+ 
C=DAT1 
GOSUB 
CDEX 
NEWF84 D1=D1- 
x 


* Qutput it in 
* 


P= 
GOSUB 
DAT1=C 
D1=D1+ 
GOSUBL 


NEWF85 


P=P+4 
GONC 
x 


8 
A 
A 
5 
8 
Csrc3 
W 
1 


3 


Skip to saved DO 


Read in DO... 
... restore it 


Read in D stuff... 

...-rotate to correct place... 
..-and put in D[W], fetch tine 
Back up to start of tine field 


the proper order! 


16-6 
Cslc6 
B 

2 
=CSLC2 


NEWF 85 


Increnent P until carry...6 tines 
Move to C[B],C{15:6] 

Write this byte... 

...Hove to next byte... 

..-Shift in next byte... 


...aincrenent count... 
...if no carry, continue! 


* Now output volune number, END flag 
x 


p= 
LCHEX 


GOSUB 


2 
8001 


PT2BYT 


Volune 1, END 


Put 2 bytes fron C[5:2] 


* D1 1s now at the inplenentation bytes 


C=Re 
DAT1=C 
7 BRO 
GOYES 
*D=0 
GOYES 


8 
W 
NEWF87 
B 
NEWF 97 


Get NInpl fron R2[7:0] 
Write then out! 

LOOP or non-MNS device? 
No... continue 

LOOP? 

Yes...skip addressing! 


* Non-nass storage...address me as talker, device as Listener 
x 
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2834 F4FE9 709A GOSUB Ntyl Controller...address ne as talker 
2835 F4FED SF5 GONC NEWF97 Go if no error 
2836 F4FFO 02 RTNSC Return with error 
2837 a. 

2838 te 

2839 & 

2840 : Now entry is created in SCRTCH...write it to the nediun 

2841 

2842 F4FF2 1F0O NEWF87 D1=(5) (=SCRICH)+36 
000 

2843 F4FF9 7S5FO GOSUB GT2BYO Read 2 bytes (size in records) 

2844 F4FFD 108A R2=C Save size of file in R2{[A] 

2845 & 

2846 F5000 AFS C=B W Copy PTRD into C{15:12).. 

2847 F5003 D2 C=0 A ..Clear nibbles "above" PTRD.. 

2848 F5005 759A GOSUB Csrc13 .. shift into C{2:0], C{S].. 

2849 F5009 AFA =PUTDRH A=C W ...save all in A[W]... 

2850 FSOOC 7A3A GOSUB Seeka ...goto the correct record 

2851 F5010 400 RTNC 

2852 F5013 766A GOSUB Atyl Make ne talker, drive as listener 

2853 F5017 400 RTNC 

2854 FSO1A NEWF 90 

2855 FSO1A 8E00 GOSUBL =DdlPur Partial urite node, check status 
00 

2856 F5020 400 RTNC 

2857 k 

2858 : Set back to write node before sending data to drive 

2859 

2860 F5023 7EOR GOSUB Ddlurt Write node 

2861 F5027 400 RTNC 

2862 t 

2863 % Set byte pointer to current position 

2864 & 

2865 FSO2AR 20 P= =SetBP 

2866 F502C 770A GOSUB Ddl Set byte pointer 

2867 F5030 400 RINC 

2868 F5033 810 ASLC Get entry number back to A[0] 

2869 F5036 AEG C=A B 

2870 F5039 F2 CSL A iB) 1s now entry nurber * 16.. 

2871 F503B8 C6 C=C+C A Katee eee 

2872 F503D 703A GOSUB Putd .. Send to the drive 

2873 FS041 400 RTNC 

2874 x 

2875 * Set back to WRITE node 

2876 ; 

2877 F5044 =PUTDIR 

2878 k 

2879 * Entry to write a directory entry from SCRTICH 

2880 & 

2881 F5044 20 P= =Writed Write mode (resure) 

2882 F5046 7DE9 =PUTDR" GOSUB ODdl 

2883 F504AR 400 RTNC 

2884 * 

2885 : Nou send the entry to the drive 


2886 
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2887 
2888 
2889 
289 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
23902 
2903 
2904 
2905 
2906 
2907 
2308 
2903 
2910 
2914 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
eve9 
29.0 
2431 
2932 


2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 


F5040 
F504D 
F5051 
F5053 
F5055 
F5059 
FS505B 


FSO5F 
F5062 
F5064 
F5067 
FS069 


F5068 
FSO06F 
F5072 


F5074 
F5076 
F5079 
F507B 
F507E 
F5081 
F5084 
F5087 
F5089 
F5O8C 
F5090 
F5092 
F5096 
F5099 
F5090 
FS5ORO 
F5OR4 
F5OR? 
F5ORR 
FSORC 
F SORF 
F5OB1 
F50B4 
F5OB7 


FSOBD 
FS5OC1 


7BD9 
D2 
20 
31F1 
DA 
6160 


119 
25 
SIE 
40 
03 


762A 
8RE 
FO 


25 
90R 
OF 
B06 
4AE 
135 
979 
02 
AFS 
7CF9 
DA 
7489 
4 
70E9 
400 
7199 


111 
CC 
948 
£0 
B44 
480 
SCO 
00 


#099 
400 


NE 


ke 
ke 


NE 


NE 
ke 
te 


NE 


x 
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WFO? 
GOSUB 
C=0 
p= 
LC(2) 
R=C 
GOTO 


WF.O C=R1 
p= 
?CHO 
GOYES 

WF.c RINCC 


WF.1 GOSUB 
?CHO 
GOYES 


D1=SCR 


31 
NEWF.3 


WP 
NEWF. 4 


Csrc10 
A 
NEWF.2 
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Point to the entry... 


P could be non-zero fron jurip in 
Send all but the last byte. 


(WRITIT,mENDF, check drive status) 


Get NData into C[14:10] 


Is the file size zero? 
No...seek to the data area’ 
Yes...don’t seek to the data area 


Shift to C[4:0] 
Is NData zero? (no copy) 
No...continue on 


* NData 1s zero...no data address to copy (check if CREATE) 
i 


NE 
NE 


NE 


ke 
aL 


P= 
?C=0 
GOYES 
C=C +1 
WF.C GOC 
WF.2 D1=C 
?B=0 
GOYES 
C=B 
GOSUB 
A=C 
GOSUB 
RTNC 
GOSUB 
RTNC 
GOSUB 
RTNC 
WF98 A=R1 
A=A-1 
?R=0 
GOYES 
A=A+1 
GOC 


GOLONG =INITFL 


15-10 
P 
NEWF oc 
Pp 
NEWF .c 


W 
NEWF 98 
W 
Csrc4 
A 
Seeka 


Mtyl 
Ddlwrt 


A 
S 
NEWF. 3 
S 
NEWF . 3 


NEWF.3 GOSUB Writit 


er Oe 


RTNC 


Point at R1I[S] 

Is this a COPY? 

Yes...don't seek to the data area 
Is this a non-nass storage device? 
Yes...don’t seek! 

Set D1 <== start of data 

LOOP? 

Yes...skip SEEK 


Get PTRF into C[3:0]... 
...Copy to A[3:0]... 
...and SEEK to that record 


I nust be talker to do DDLs 
Write mode... 


Copy NSize to A[A]... 

... leave 1 byte to END... 
Called by COPY? 

If so, copy it 

LOOP? 

Yes...copy it 

Initialize file if CCode#0 


Send (NSize) bytes to the device 


Because the ENDf message is a SEND nessage, make sure I an 
active talker first (otherwise will get Invalid Mode error) 
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2941 


2942 
2943 
2944 
2945 
2946 
2947 
2948 


2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
23% 


F50C4 


FSOCR 
FS0CD 
FSOCF 
F50D2 
F50D4 
FSOD6 
F50D9 


FSODF 
F50E2 
FSOE6 
F50E9 
F5OEC 
FSOEE 


8E00 
00 
400 
OB 
860 
20 
0B 
40E 
3300 
00 
14F 
7279 
400 
979 
29 
6F59 


2991 FSOF2 De 
2992 FSOF4 21 
2993 FSOF6 BF2 
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NEWF.. GOSUBL =GETST Get status...(sets P=0) 

RTNC 

CSTEX 

?§$T=0 ==sTALKA Talker active? 

GOYES NEMF., (Set carry 1f not) 
NEWF., CSTEX 

GOC NEWF.. Not talker active...wait! 

LC(4) =nENDF End frane 

C=DAT1 B Read value of last data byte 

GOSUB Putc Send the last frarie as an END 

RTNC 

7B=0 OW LOOP? 

GOYES NEWF.C Yes...return, carry clear 

GOTO ©Tstat Check drive status! (carry=status) 


ORR TE TT TK 
FORO IO JOR JOJO TORO UII TOOT II 
ak 


x* Nane: GETBYT - Read bytes fron RAM (nost sig. first) 
ak 

** Category: LOCAL 

ks 

xk Purpose: 

ak Read "P" bytes from RAM into C fron 01 (Bytes are high 
ae bytes first) 

ki 

kk Entry: 

ak P= # of bytes to read - 1 

x D1 points to first byte 

kk 

ASEM tS 

ik P=0 

ape Carry clear 

xx C contains (P+1) bytes of data 

xx D1 points to the next byte (first one NOT used) 
xk 

** Calls: None 

kk 

AB -USCS is ca6e 


xk Inclusive: C{W],D1,P (Unused nibbles of C shifted left) 
kk 


** Stk lvls: 0 
kx 

** History: 

kk 


“> Date Programmer Modification 
PR. tdeccCes. Seidel. “SuGuiad dessa doedacwscwsecateses ke 


KK 11/19/82 NZ Added docunentation 

wk 

FOI IOI IOI COICO IO IGUGIOC ICO IGOCOC OTT TOK 
JOO IDI IOGIOUIGIIIIOUCIICGIGOCIOO ICCC OTT IK 


=GT2BYO C=0 A Clear C{A] first 
=GT2BYT P= 1 Read 2 bytes 
=GETBYT CSL W Preshift C over one byte 
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2994 FSOF9 BF2 
2995 FSOFC 14F 
2996 FSOFF 171 
2997 F5102 OD 
2998 F5104 SIF 
2939 F510? 20 
3000 F5109 03 
3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 F510B 1503 
3037 FS10F 7979 
3038 F5113 140 
3039 F5116 173 
3040 F5119 03 
3041 F511B 
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CSL W 

C=DAT1 B 

01=01+ 2 

P=P-1 Is this the end? 

GONC GETBYT No...get another 

P= 0 Set P=0 

RTNCC 
XIII SI III IIIS ITT III II III II III IIS III III SIDI SIT I SIS III SSIS IIS: 
JI IO DI IAI IT III III III II III IIS IAS IIS IS III ITI SSIS ISOS III TK 
kk 


** Nane: PT2BYT - Wtite 2 bytes, high byte first, to RAM 
ak 

** Category: LOCAL 

ik 

** Purpose: 

ak Qutput 2 bytes at D1 from C[5:2]) (C[5:4] first, then 
a C[{3:2]}) 

&k 

** Entry: 

os C[5:2] contains the tuo bytes 

ax D1 points to destination RAM 

kok 

eA ERLE 

a D1 points to first byte following the written data 
ES Carry clear 

x 

** Calls: CSRC4 

ce 

PP USES: c's i 


** Exclusive: 01 
xk Inclusive: C{W],D1 (C[W] 1s shifted right circular 4 nibs) 
kk 


** Stk lvls: 1 (CSRC4) 
&k 

** History: 

tok 


ae Date Progranner Modification 
ie tess. latest. , Via ee eee le 


kk 11/19/82 NZ Added docunentation 

ka 

JOO CII CII IIIS IGUIG ICO CISC IG OGIO IORI K 
JOO UIE ICI IGG IIIS ICOII OIE ISCAS II 


=PT2BYT DATI=C 4 Write the low byte first... 
GOSUB Csrc4 ...get the high byte into C(B]... 
DATI=C B ...Urite the high byte 
D1=D1+ 4 Increnent D1 past data... 
RTNCC ...and return with carry clear 
END 
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ASLC3 
ASLC4 
ASLCEI 
ASRC10 
ASRC3 
ASRC4 
ASRC5 
ASRC8 
ASRCS 
Asrc4 
BLANKC 
=CHKBIT 
=CHKMAS 
CHKMAe 
CHKSEC 
CHKSIZ 
CHKSIz 
=CLEARN 
=CLLOOP 
CSLC10 
CSLC2 
CSLC3 
CSLC8 
CSRC2 
CSRC3 
CSRC8 
CSRC9 
ChkEQT 
ChkEOt 
Cslct2 
Cslc3 
Cslc4 
Cslc5 


Cslc6 
Csrci0 
Csrci2 
Csre13 
Csrc3 
Csre4 
Csrc5 
D1=AVE 
=D1=SCR 


CS 
DOL 
DBT 
Odl 


Ddl Pur 
Odlurt 
Ddt 
=DdtRd 
=ENDTAP 
F->SC! 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Rbs 
Ext 
Abs 
Rbs 
Abs 
Ext 
Rbs 
Rbs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 


Ext 
Ext 
Ext 
Abs 


Ext 
Abs 
Abs 
Abs 
Abs 
Abs 


1002148 #F4AR4 


1000206 #F430E 
1000177 #F42F1 
1000197 #F4305 


1002746 #F4CFA 
1002777 ¥F4D19 
1000216 #F4318 
1000221 #F431D 


1000631 #F44E9 
1000690 #F44F2 
1002124 #F4A8C 
1002142 #F4A9E 
1002139 #F4A9B 
1002136 #F4A98 


1002133 #F4A95 
1002133 #F4A95 
1002139 #F4A9B 
1002142 #F4ASE 
1002127 #F4A8F 
1002124 #F4AR8C 
1002121 #F4AR89 


1002028 HF4A2T - 


1002039 #F4A37 


1002037 #F4A35 
1002066 #F4A52 
1002045 #F4A3D 
1000814 #F456E 
1002014 HF4ATE 


Table 


- 1639 
- 406 
- 1441 
- 1022 
- 1536 
- 1695 
- 964 
- 2651 
=~ 1522 
1695 
466 
212 
169 
177 
2211 
2376 
2396 
257 
259 
945 
2813 
1692 
2330 
2767 
1683 
1531 
2532 


593 
1681 
1692 


i re ee | 


- 1688 

2465 
- 1687 
- 1686 
- 1689 
- 1691 
- 1683 
- 1682 
- 1680 


1634 
1664 
= 2997 
- 1639 
- 1654 
1639 
2706 
- 2684 
1638 
1654 
1642 
706 
1627 


1 


421 


424 
973 
173 


2367 
2388 


652 


2144 


351 
592 
2588 
2232 
318 
627 


2810 

928 
2182 
2848 
2235 
2278 

639 


548 
2243 


110 
2866 
2855 

44? 

335 

764 
2626 
1630 


1460 
1004 
1112 
2536 


570 


2737 
%1 


943 
2585 


2803 
2289 
1007 


609 
2718 


430 
2882 


830 
§68 
985 
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2377 
1017 


1840 
938 


988 
2662 


2432 
102? 


1121 
2888 


711 


1019 
767 
1329 
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2756 
1107 


2273 
950 


2903 
2750 


2918 
1208 


1354 


714 


2689 
770 
1407 


2057 


2423 
1029 


3037 
2307 


1414 


840 


2860 
779 
2124 


1213 


2456 


1336 


2924 
1643 


11:55 an 
Page 58 


2299 


2556 
1623 


2696 
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=F->SCR Abs 1002002 #F4A12 - 1623 660 2599 
=FINDF+ Abs 1001275 HF473B - 1098 

FINDFO Abs 1001425 #F47D1 - 1170 1219 
FINDF1 Abs 1001477 #F4805 - 1197 1183 1189 
FINDF2 Abs 1001510 #F4826 - 1218 1203 
FINDF3 Abs 1001546 #F484A - 1243 1195 
FINDF4 Abs 1001549 #F484D - 1247 1142 
=FINDFL Abs 1001268 #F4734 - 1094 

FINDFe Abs 1001576 #F4868 - 1261 1249 1255 
FINDF1 Abs 1001395 #F47B3 - 1153 1105 
FINDFn Abs 1001519 HF482F - 1224 1180 1212 
=FINDFx Abs 1001415 HF47C7 - 1164 1108 
FINDf+ Abs 1001278 #F473E - 1099 1095 
FINDfn Abs 1001385 #F47A9 - 1145 1135 1140 
FIND12 Abs 1001327 HF476F - 1121 1158 
FIND14 Abs 1001378 #F47A2 - 1141 1133 1145 
FINDle Abs 1001391 #F47AF - 1149 1154 
FIXSPC Ext =. “597 

FORMIO Abs 1000257 #F4341 - 312 We 
FORN20 Abs 1000280 HF4358 - 328 326 
FORN3O «Abs 1000332 #F438C - 365 350 
FORNSO Abs 1000353 HF43A1 - 380 358 
FORN60 Abs 1000367 #F43AF - 391 381 
FORN65 Abs 1000390 #F43C6 - 412 403 
FORMN?0 Abs 1000394 HF43CR - 416 408 
=FORMAT Abs 1000230 HF4326 - 1 7? 


Fornat Ext 429 
GDIRS1 Abs 1001746 #F4912 1424 
GDIRS3 Abs 1001780 #F4934 1441 1429 


GDIRS4 Abs 1001832 #F4968 - 1478 1470 
GDIRS? Abs 1001883 #F499B - 1517 1486 1500 
GDIRS8 Abs 1001890 HF49A2 - 1520 1475 
GDIRS9 Abs 1001892 HF49R4 - 1521 1516 
GDIRSE Abs 1001765 #F4925 - 1430 1453 
GDIRSM Abs 1001965 HF49ED - 1564 1499 1509 
=GDIRST Abs 1001688 #F48D8 - 1404 1322 2069 
GDIRSe Abs 1001775 HF492F - 1436 1423 
GDIRSn Abs 1001980 HF49FC - 1574 1677 
GDIRSE Abs 1001767 #F4927 - 1431 1438 
GDIRSN Abs 1001993 #F4A09 - 1584 1675 


GETALR Ext - 1416 1427 1455 
=GETBYT Abs 1003766 HFSOF6 - 2993 2998 
GETD Ext ao Mee 


=GETDIR Abs 1001653 #F48B5 - 1349 1218 1332 
=GETDR' Abs 1001580 HF486C - 1322 1165 
=GETDR" Abs 1001587 #F4873 - 1324 

=GETDRH Abs 1001589 #F4875 - 1325 

=GETDR+ Abs 1001614 HF488E - 1333 


GETDev Ext - 968 1002 
GETST = Ext - 2941 
GETZER Ext - 1234 


=6T2BYO Abs 1003762 HFSOF2 - 2991 2204 2843 

=GT2BYT Abs 1003764 HF5SOF4 - 2992 2231 2257 2272 2363 2411 2414 
GTYPE Ext - 169 

Getd Abs 1001534 #F483E - 123? 56 «60349373 565 


Saturn Assenbler CASSETTE ROUTINES<831221.1632> Tue Jan 17, 1984 11:55 an 
Ver. 3.39/Rev. 206 Synbol Table Page 60 


Getnbx Ext - 239 2619 
Getzer Abs 1001528 #F4838 - 1234 1248 1254 1485 1564 
INITOS Abs 1000493 #F442D 467 465 
INIT10 Abs 1000697 HF44F9 604 8566 
INIT20 Abs 1000706 HF4502 - 609 587 


INITFL Ext ~ 2932 
sINITIL Abs 1000438 #F43F6 - 442 
InpByt Ext = 657 


LSTEN1 Abs 1002197 HF4AD5 - 1750 1741 1742 1749 

=LSTENT Abs 1002185 HF4AC9 - 1745 

LoopOK Ext - 1660 

MOVEF, Abs 1001114 #F469A - 9382 974 

MOVEF1 Abs 1000978 #F4612 - %7 1035 

MOVEF2 Abs 1001031 #F4647 - 934 930 

MOVEF3 Abs 1001040 #F4650 - 938 935 

MOVEF4 Abs 1001127 HF46A7 - 986 976 

MOVEFS Abs 1001207 #F46F7 - 1015 1005 

MOVEF6 Abs 1001228 #F470C - 1021 1003 1018 

=HMOVEFL Rbs 1000966 HF4606 - 898 

MOVEd1 Abs 1001130 HF46AAR - 987 969 

ATYL Ext - 1674 

MaxRec Ext - 334 

Atyl Abs 1002109 #F4A7D - 1674 107 427 445 613 708 828 1015 
1333. 2594 2679 2834 2852 2922 

NEWF++ Abs 1002225 RF4AF1 - 2059 2053 

NEWF., Abs 1003732 HF50D4 - 2946 2945 

NEWF.. Abs 1003716 #F50C4 - 2941 2947 

NEWF.O Abs 1003615 HFSOSF - 2896 2605 

NEWF.1 Abs 1003627 #FS06B - 2903 2899 

NEWF.2 Abs 1003649 #F5081 - 2914 2905 

NEWF.3 Abs 1003709 #FSOBD - 2935 2893 2929 2931 

NEWF.C Abs 1003646 #FS07E - 2913 2953 

NEWF.c Abs 1003625 #F5069 - 2900 2911 2913 

NEWFO1 Abs 1002250 #F4BOR - 2069 2064 2115 

NEWFO3 Abs 1002271 HF4B1F - 2113 2112 

NEWFOS Abs 1002281 #F4B29 - 2121 2104 

NEWF1. Abs 1002847 HF4D5F - 2449 2467 

NEWF1O Abs 1002298 #F4B3A - 2129 2449 

NEWF11 Abs 1002331 #F4B5B - 2138 2150 

NEWF12 Abs 1002335 RF4BSF - 2141 2137 

NEWF13 Abs 1002365 #F4B7D - 2159 2142 2146 

NEWF14 Abs 1002396 HF4B9C - 2176 2175 

NEWF15 Abs 1002683 HF4CBB - 2325 2263 

NEWFia Abs 1002417 #F4BB1 - 2191 2184 

NEWF1b Abs 1002552 HF4C38 - 2271 2262 

NEWFic Abs 1002470 HF4BE6 - 2225 2207 2212 

NEWFid Abs 1002466 HF4BE2 - 2218 2194 

NEWF2. Abs 1002357 #F4B75 - 2153 2165 

NEWF20 Abs 1002701 #F4CCD - 2338 2153 

NEWF25 Abs 1002703 HF4CCF - 2339 2340 

NEWF3. Abs 1002361 HF4B79 - 2156 2177 2185 

NEWF30 Abs 1002713 #F4CD9 - 2349 2156 

NEWF34 Abs 1002784 HF4D20 - 2401 2358 2368 

NEWF4. Abs 1002709 #F4CD5 - 2341 2350 

NEWF4Q0 Abs 1002838 #F4D56 - 2441 2341 2373 
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NEWF45 
NEWF48 
NEWF 50 
NEWF55 
NEWF OO 
NEWF 61 
NEWF62 
NEWF66 
NEWF 6? 
NEWF 70 
NEWF 75 
NEWFS8! 
NEWFS, 
NEWFS. 
NEWF 80 
NEWF82 
NEWFS3 
NEWF 84 
NEWFS5 
NEWF 8? 
NEWF 90 
NEWF 97 
NEWF98 
=NEWFI+ 
=NEWFIL 
NEWFeT 
=NXTEN+ 
=NXTENT 
PRASGA 
=PT2BYT 
PUGFIB 
PURFIB 
PUTALR 
PUTC 
PUTC+ 
PUTD 
=PUTDIR 
=PUTDR" 
=PUTDR# 
PUTDX 
PUTE 
Putc 
Putd 


Putdx 
READI3 
=READRA 
READSU 
Read 
Read] 
Readsc 
Readsu 
Rewind 
Rtnce 
SCRTICH 


Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ros 
Ros 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 


Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Abs 
Abs 
Ext 
Abs 
Ext 


1002851 #F4D63 
1002877 #F4D7D 
1002882 HF4D82 
1002887 HF4D87 
1002898 #F4D92 
1002921 #F4DAS 
1002929 #F4DB1 
1002982 HF4DE6 
1002995 #F4DF3 
1003046 HF4E26 
100396 HF4E58 
1003137 #F4E81 
1003412 HF4F94 
1003133 #F4E 7D 
1003117 #F4E6D 
1003244 #F4EEC 
1003401 #F4F89 
1003442 #F4FB2 
1003451 #F4FBB 
1003506 HF4FF2 
1003546 #F501A 
1003597 #F504D 
1003687 HF50AR7 
1002206 #F4ADE 
1002234 #F4AFA 
1002917 #F4DAS 
1002161 #F4AB1 
1002163 #F4AB3 


1003787 #F510B 


1003588 #F5044 
1003590 #F5046 
1003529 HF5009 


1002072 #F4A58 
1002097 HF4A71 
1002103 HF4R?7?7 
1000852 #F4594 


1002087 #F4A67 
1002091 #F4A6B 


1000195 HF4303 


2455 
2470 
2475 
2484 
2492 
2513 
2521 
2571 
2584 
2605 
2629 
2661 
2789 
2655 
2641 
2714 
2785 
2805 
2811 
2842 
2854 
2887 
2926 
2045 
2062 
2509 
1733 
1734 
479 
3036 
2618 
2239 
647 
1657 
2632 
1668 
2877 
2882 
2849 
1671 
54 
1657 
1668 
2872 
1671 
604 
761 
1665 
1642 
769 
1664 
1665 
713 
174 
1128 


2448 
2464 
2138 
2066 
2480 
2537 
2500 
2560 
2551 
2319 
2625 
2654 
2781 
2664 
2484 
2655 
2783 
2317 
2815 
2828 
2600 
2830 
2916 


2058 
2515 
1201 
2431 


2291 


661 


347 
2712 
115 


4$2 


1352 
776 


1484 


2506 
2570 
2486 
2786 
2541 


2835 


2446 
2586 


2758 


563 
2950 
118 


486 


1412 
992 


1634 
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2550 
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2580 


2769 2793 2821 


489 
500 


1479 
1122 


213 


§13 
53? 


2131 


1342 


642 


99 
ec 
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2703 2709 


2252 2283 
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2290 2310 2362 2410 2751 2842 


=SEEKA Abs 1000135 HF42C7 107 443 762 826 1327 1405 1648 


=SEEKB Abs 1000142 #F42CE - 109 
SENDIT Ext - 260 
START = Ext - 1677 
Seek Ext - 109 
Seeka Abs 1002058 WF4A4A - 1648 983 1013 2122 2592 2677 2850 2920 
SetBP = Ext - 1335 2695 2865 
Start Abs 1002115 #F4A83 - 1677 958 1000 1102 2045 
=TSTAT Abs 1000083 #F4293 - 50 123 W1 432 76 761 825 842 
1651 
TSTAT1 Abs 1000109 #F42AD - 56 
TSTAT2 Abs 1000127 #F42BF - 64 60 
=TSTATA Abs 1000090 HF429A - 52 66 784 1349 1645 


Tstat Abs 1002062 HF4A4E - 1651 2954 
Tstata Abs 1002054 #F4A46 - 1645 
UTLEND Ext - 716 2635 
=Utlend Abs 1003111 HF4E67 - 2635 2630 
=WRITE# Abs 1000916 #F45D04 - 825 


WRITIT Ext - 1661 

Write Ext - 1638 

WriteO Ext - 2881 

Writit Abs 1002078 HFGASE - 1660 621 837 1033 29356 
XchgT Ext - 766 778 

YADHMNS Ext - 1698 

YTAL Ext - 1240 


1698 633 21 2742 
1240 50 549 975 1118 1344 


Yndhiis Abs 1002154 #F4AAA 
Ytnl Abs 1001540 #F4844 


bFIB Ext - 2233 

eDIRFL Ext - 2508 

eDSPEC Ext - 1149 

eDTYPE Ext - 178 

eEFILE Ext - 2192 

eEOTAP Ext - 2514 

eNENTA Ext - WE 2ii1 

eNFILE Ext - 1223 

eNOLIF Ext - 1437 

eNORAN Ext - 921 

ePIL Ext - 179 

eRANGE Ext - 412 1265 

eTAPE Ext - 33 1230 1432 2108 2218 2509 
elSIZE Ext - 1430 . 

efPROT Ext - 2217 

=fPROT Abs 1002461 HF4BDD - 2216 

FTYPFH Ext - 2206 

hHCPYSs Ext - 994 1157 

1/OFND Ext - 2234 

mENDN = Ext - 2631 

nENDF = Ext - 2711 2948 

nSDA Ext - 346 S61 772 1120 1351 1410 1478 21% 
nSST Ext e 53 

pEOT Ext = 594 

sloop? Ext - 1094 1098 1113 1153 1164 
sOVERW Ext - 2193 


sTALKA Ext - 2944 
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Input Parareters 
Source file nane is NZ&CAS::M5 
Listing file name is NZ/CAS:TI:NL::-1 
Object file nane is NZ“CAS:TI:NS::-1 


114111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Asserbler Neus 
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1 x 
2 x N N 222272) & H H N N ODD 
3 x N ON 2 8&8 H HN ND OD 
4 s NN ON Z 8&8 H H NN ND OD 
5 z NNN Z & HHHHH NNN DD 
6 % N NN 2 &&& H H N NN DOD 
7 x N oN Z & &® H HN ND OD 
8 . N N 2227277 8& & H H N- N_ DDDD 
g x 
10 % 
11 TITLE POLL HANDLERS <840106.0805> 
12 F511B ABS #F511B TIZHP6 address (fixed) 
13 RDSYNB = TIZEQU 


Saturn Assenbler 
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14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
44 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 


63 


F511B 118 
FS11E 135 
F5121 112 
F5124 1CF 
F5127 137 
F512A 8B6 
F512D 42 
F512F 135 
F5132 10B 
F5135 3F02 
02R3 
C494 
0584 
02 
F5147 3300 
00 


POLL HANDLERS <840106.0805> 


Tue Jan 17, 1984 12:12 pr 


Page 2 


STITLE DATA FILE HANDLERS 


FOO III RIO JOJO TU JOT TO TT TOTO I. 
FOO IIIT TTT I TTT TOO TOT TT DISTT TTI IM. 


ak 
ak 
aK 
ak 
at 
ak 
ak 
ak 
xk 
ak 
ak 
xk 
am 
ak 
ak 
ak 
a 
xk 
ak 
ak 
ak 
ak 
ax 
ak 
ak 
xk 
an 
xk 
xk 
xk 
ak 
a 
xk 


Nane: 
Category: 


Purpose: 


hVER$ - Handler for the VER$ poll 


POLL 


Add HPIL info to the VER$ string 


Entry: 


P=0, R2[A] is AVMEMS, R3[R] is current end of VER$ 


string 


Exit: 


P=0, XM set, R3 updated to neu location 


Calls: 


None 


Inclusive: A[W],C{W),01,R3[A] 


Stk lvls: 


History: 


10/20/83 


03/3/83 
11/22/82 


0 


we wee ew eee 


NZ 


NZ 
NZ 


Modification 
Changed first instruction fron 
CR3EX to C=R3 to fix bug with 
insuffient nenory for my response 
destroying R3 pointer 
Changed to just RTNSXM (carry=?) 
Added code and docunentation 


FORO TOTO TTR III I IIIT III III 
FOR JIU ITI OTTO TTT IK 


=hVER$ C=R3 


D1=C 
R=R2 


Di=Di- 16 


CDIEX 
PAC 
GOYES 
D1=C 
R3=C 
LCASC 


LC(4) 


A 
hVER$1 


\ HPIL: \ 


=PILVER 


Get 01 pointer 

Put in D1 

Get AVNENE 

Subtract length I’ adding 
Now check if there is room! 


No roon...clear carry, exit 
Roon...update D1, R3 


(Last 2 filled in by PILVER) 





Saturn Asserbler 


POLL HANDLERS <840106.0805> Tue Jan 17, 1984 12:12 pri 


Ver. 3.39/Rev. 2306 DATA FILE HANDLERS Page 3 
64 F514D 1557 DAT1=C W Write it out! 
65 F5151 hVER$1 
66 F5151 00 RTNSKNM Set XM (say not handled) 
67 JOOS II OO IIIS IOC IG IO TK TERR 
68 JOO II IO IIE III III TK 
69 xk 
70 = Nane: hFINDF - Find file handler (pFINDF poll) 
71 x 
72 *k Category: POLL 
73 kk 
74 ** Purpose: 
75 ak Handle the POLL of (pFINDF), find a specified file 
76 = in the given mass netriory device for HPIL devices 
77 x 
78 x* Entry: 
79 an RO: First 8 chars of file nane 
80 xR R1[3:0]: Last 2 chars of file nare 
81 ak D[A]: Device address as returned from FILSPx handler 
82 aK D[S]: Device type from FILSPx 
83 kK 
84 AK Exit: 
85 ak Carry clear: (file found, no errors) 
86 ax RO[3:0]: starting record nunber 
8? aK RO[6:4]: device address 
88 aK RO[10:7]: 0000 
83 kk RO[14:11]: file type 
50 ak RO[15]: 8 (HPIL) 
94 a R1(O]: entry # in the directory record (0-7) 
92 KK R1[3:1]: record # of the directory entry 
93 aK R1[5:4]: 00 
94 wa R1i[9:6]: length of file in sectors 
95 xe Carry set: 
96 aR Error (C[3:0] are the error nurber) 
97 ak 
98 ** Calls: CKBITL, START, FINDFx, CSLC5, DATSTR, ENDTAP, <ERROR> 
99 ae 
100 xk Uses: 
101 ak Exclusive: C; RO,R1, P 
102 - Inclusive: A,B,C,D[15:5], RO, R1, DO, 01, P, SCRTICH[63:0],S1(5:0] 
103 
104 kK Stk lvls: 6 (FINDFx) 
105 ar 
106 ** History: 
107 ak 
108 ea Date Progranner Modification 
109 RR”, oheoceoeo. oelSeeese: Si weticeessceews oeeweseSless 
110 ae 10/14/83 NZ Updated docunentation 
411 ak 04/01/83 SC Wrote routine 
1 aK 
OOOO JO OOOO ROJO ORO OO OR OO OR ORO 
114 JOO IO JOO RIGOR E SIO doo dtd ooi mooi ODO io aotok 


115 F5193 7026 
116 F515? 500 
11? F515A ?DC2 
118 F51SE 4E2 


=hFINDF GOSUB CKBITL Check if HPIL and mass nerory 
RTNNC No...don’t handle (XM set by CKBITL) 
GOSUB Start Set up the loop, DO 
GOC hFNFer Error! 


Saturn Assenbler 


119 F5161 8E00 
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GOSUBL =FINDFx Find the file on the device 
GOC hFNFer Error (either not found or loop err) 


00 
120 F5167 452 
121 
122 
123 
124 
125 
126 
127 FS16A 7143 
128 FS16E D2 
129 F5170 BF2 
130 F5173 23 
131 F5175 A99 
132 F5178 20 
133 F517A 109 
134 F517D 7010 
135 F5181 108 
136 F5184 8EE9 
AO 
137 F518A 500 
138 F518D 6250 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
16? 
168 
169 
170 
174 


* If no carry, then C[3:0] 1s nunber of records, B[3:0] is the 
* directory pointer for the file, A[3:0] is then starting record 
* of the file on the device, and D1 points to the file type in 


* the directory entry (which is in SCRICH[63:0)) 

x 
GOSUB Cslc5 C[8:5]=nunber of records 
C=0 A 
CSL W C{9:6J=nunber of records 
P= 3 
C=B WP C[{3:0]=directory pointer for file 
P= 0 
R1=C Ri is set up for exit conditions 
GOSUB DATSTR Set up RO exit conditions in C{W] 
RO=C Put into RO for exit 
GOSUBL Endtap Rewind device, unaddress all 
RTNNC If carry clear, done! 

hFNFer GOTO  €Rror Error...set up C[{3:0], RINSC 


FOTO OTTO TTT TTT TT RT TK 
FOI III OR TOT TT TTT EIT TTT TTDI TI TIE ITN 
ak 


** Nane: DATSTR, DATST+ - Set up data fron FINDFx in C(W) 
ok 

x& Category: LOCAL 

ka 

xk Purpose: 

ax Set up the data fron FINDFx for single register return 
aa 

*X Entry: 

ae DATSTR: 

ax P=0 

aa D1 points to the file type in RAN (high byte first) 
aK DATST+: 

kk O[X]=device address 

ae A[3:0]=file start address (record number) 

ak 

BEER 

a P=0 

ae Carry clear 

ax C(15}=8, C[14:11]=file type, C[6:4]=device address, 
ak C{3:0]=file start record nunber 

re 

** Calls: GT2BYT,CSLC7, CSLC4 

ak 

BE USCS aaa 


xk Exclusive: C(W], P 
xk Inclusive: C[{W],D1,P 
xk 


*k Stk lvls: 1 (GT2BYT)(CSLC7)(CSLC4) 
kk 


** History: 
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172 i 
173 7 Date Progranner Nodification 
174 EN Geieee: sSeectewe | ieee eee eee ue aes 
175 KK 10/14/83 NZ Added docunentation 
176 xx 
177 SII IIIA I III III II IIIS IS SIS II SI SI SSIS ISIS ISIS IIS SSSI ISS SIS ISI SIA 


178 

179 F5191 AF2 

180 F5194 308 

181 F519? 8E4C 
AO 

182 F519D 8E00 
00 


183 F51A3 ABB 
184 FS51A6 7803 
185 FSIAA 23 
186 FSIAC AIG 
187 FSIAF 20 
188 F51B1 03 
189 

199 

194 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

cts 

216 

217 

218 

219 

220 

eal 

222 

ecg 

2c4 


JIT III RII IIIT ITI III III ITI IOI ILI IIIT STIS III AIT IAI IA 
DATSTR C=0 W 


LC(1) 8 Will end up in C{S] (HPIL device) 

GOSUBL Gt2byt Read file type fron SCRTCH 

GOSUBL =CSLC7 C{11]=8, C[10:7]=file type 
DATST+ C=0 Xx C[6:3]=0000, C[X]=device address 

GOSUB Cslc4 

P= 3 

C=A WP Copy file start addr fron A[3:0] 

P= 0 

NCC 


FOI III TTT TTT TT ITT III NK 
FOTO RIO OI OOOO TOI TTI TOK 
ak 


** Nane: hCREAT - Handle POLL for pCREAT (HPIL device) 
an 

*k Category: POLL 

kk 

*k Purpose: 

x Creates a neu file in a mass nenory device 

ek 

ek Entry: 

at D[X]=device address 

eR D[SJ=device type (if HPIL, 8) 

ia STMNTRO=first 8 chars of the file nane 

xk STMTR1[3:0]=last 2 chars of the file nane 

xk STMTR1[6:5]=offset to data (fron file type table) 

a STMTR1[13:10]=file type 

mA STMTR1[14]=create code 

th 

A R2[AJ=first paraneter for CREATE: 

2 Coenen ere ee eae eae ee mate a tees 
ae Code Fornat Inplied Meaning of this parameter 
Pe Ge. -etetortieencoewen:. . Sie ce suite tee 
ne 0 Executable Data length in nibbles 

ne 1 DATA (fixed length) Nurnber of records 

a 2 SDRTA (41C data) Nunber of (8-byte) registers 
a 4 TEXT (variable len) File length in bytes 

*e 8 External type File length in bytes 

ae 

an R3[A]=second paraneter for CREATE: 

Oo ie ee ide ieee or eG Cu susomeem meats 
oe Code Format Inplied Meaning of this paraneter 
ke UA. Weeeoe eset “Seeds Moen ener a ten 
xe 1 DATA (fixed length) Record length in bytes 

a (any) (not DATA) (ignored) 

te 
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225 aX Exit: 
226 ax P=0 
227 -* Carry clear: 
228 * File created on device, initialized if copy code#0 
229 &k R3(7:4]=start of data area for file 
2H” ax R3[15:12]=directory entry pointer for the file 
231 ak Carry set: 
232 ak Error (C{3:0] 1s the error nunber) 
233 ak 
234 xk Calls: CKHPIL, START, CHKMAS, ASLC3, CSRC4, CSLC4,A-MULT, 
235 ax CSLC6, NEWFIL 
236 am 
237 ** Uses: 
238 kk Exclusive: A, €, RO-R4, 01,P, ST[8] 
239 e Inclusive: A,B,C,D,RO-R4,DO0,D1,P,SCRTCH[63:0],S1(8,4:0] 
240 x 
241 ** Stk lvls: 5 (NEWFIL) (File does not exist currently) 
242 aK 
243 ** History: 
244 ax 
245 xx Date Prograrner Modification 
246 Cis cies, eles (jee ket ese cee ee 
247 kK 10/14/83 NZ Updated docunentation 
248 04/01/83 SC Wrote routine 
oe 2 III IO ITI II IIIA LI IIIS AS IIIS TIS III IIIT IS SOT IIIS SS ISDS SSS STS: 
251 1 IRI TI DTA SIT ID ITI IID III III IIIS IID IIIT II ITI IIIA TIO ITO TIT TSI 
252 F51B3 =hCREAT 
253 F51B3 7605 GOSUB CKHPIL Check if device=8 
254 FS51B7 500 RTNNC Not HPIL 
255 FS51BA 7062 GOSUB Start Set up nailbox, etc 
256 FSIBE 412 GOC ERror Error starting up 
257 F51C1 96B 7-0 =—«iB Is this LOOP or NULL? 
258 F51C4 BO GOYES CRIFOO Yes...exit, don’t handle 
259 F51C6 8E0O GOSUBL =CHKNAS Check acc ID 
00 
260 FS51CC 560 GONC CRTFO1 Filbert...continue 
261 FSICF 6DE2 CRTFOO GOTO 3 hCPYXM Not Filbert...don’t handle! 
262 = 
263 t. 
264 F51D3 AFO CRIFO1 A=0 W 
265 F51D6 118 C=R2 
266 F51D9 8AE 7C#O OA File size specified? 
267 FS51DC 80 GOYES CRTFO5 If so, continue 
268 FS1DE 20 P= =eRANGE Error...file size not specified 
269 FS1EO 6344 ERror GOTO hCPYer Jump to "GOTO Error" 
270 t- 
271 a 
272 FS51E4 DA CRIFOS A=C A A= First parn (# sectors/bytes) 
273 F51E6 1F0O Di=(5) (=STMTR1)+5 Position to offset to data 
000 
274 F51ED D2 C=0 A 
275 FSIEF 14F C=DAT1 B C{A] = Offset to data 
276 FSIF2 137 CDIEX Subtract 5 (length of length field) 


277 FSiF5 1€4 DI=D1- 5 
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278 
279 
280 
281 
282 
283 
284 
285 
286 
28? 
288 
289 
2% 
291 
292 
293 
294 
295 
256 
29? 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
319 
at 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
jes 
324 
325 
326 
327 
328 
329 
3H” 
331 
332 


F51F8 
FS1FB 
FSIFE 


F5202 
F5205 


F5207 


F5209 
F520C 
F520E 
F5211 


F521 
F218 
F521B 
F521E 


F§221 
F§224 
F§227 


F522R 
F522eD 


F520 
F5233 
F5236 
F5238 
F5238 
F523D 
F5240 


13? 
178 
1574 


94E 
01 


CA 


102 
£4 
8iC 
6860 


R46 
48F 
A46 
5B0 


AF2 
108A 
425 


R46 
542 


RF2 
RE6 
Fea 

814 
&14 
REG 


* * Me 


CR 
ke 


ke 


CR 


x 
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CO1EX 
Di=D1i+ 9 
C=DAT1 S C{S] = Create code of the file 


Look at the create code and inplenentation field to conpute 
the total file length in bytes 


CHO OS 
GOYES CRIF1O 


Mainfrane executable file (Create code zero) 
A=A+C A Length is requested + subheader 


Inplenentation field for create code zero is length in nibs 


R2=A Inplenentation field in directory 
A=A+1 A 
ASRB Convert to bytes (round up) 
TF4. GOTO CRIF40 Continue create (A[A] 1s # bytes) 
TRIO «6C=C+0) OS 
GOC CRIF4. Create code 8...R2, R3 are set up 
C=C+C § 
GONC  CRIF20 Not create code 4 (check further) 


* Variable length record file (LIF1 type) (Create code 4) 


x 


Ro 
xe 


CR 


x 
x 


x 
x 


x 


a 
k 
a 
x 
x 


C=0 W 
R2=C Inplerentation field in directory 
GOc CRTIF4O Go aluays (A[A] is # bytes) 
TF2O C=C+C § 
GONC CRIF30 Not create code 2...nust be 1 


HP41C data file 
k 


The bytes of the iriplernentation field in the directory are: 


BYTE # MEANING 
28 High order byte of size (in registers) 
eg Lom order byte of size 
30 Protection field (O=unsecured, 1=secured) 
31 Unused 

C=0 W 

C=A B 

CSL A 

CSL A 

ASRC 

ASRC 

C=A B 
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333 F5243 10A R2=C Inplenentation field in directory 
334 F5246 8£00 GOSUBL =ASLC3 A[AJ=file length in nibbles 

+) 
335 FS24C BIC ASRB A[A}=file length in bytes 
336 FS24F 4A2 GOC CRIF40 Go aluays 
337 x 
338 x 
339 x 
340 ; FIXED LENGTH RECORD DATA FILE 
341 
342 F5252 AFG CRIFH C=A W C[3:0]= # of logical records 
343 F5255 8£00 GOSUBL =CSRC4 
00 
344 F525B 113 A=R3 
345 FS25E 8AC AHO OA Logical record length specified? 
346 F5261 5 GOYES CRIF35 Yes...use it 
37 F5263 B24 A=A+1 XS No...default to 256 bytes 
348 F5266 23 CRIF35 P= 3 
349 F5268 AIG C=A WP C[3:0]=Logical record length 
350 F526B 20 P= 0 
351 F5260 7142 GOSUB Cslc4 
352 F5271 12A CR2EX R2[7:4J=Rec length,R2[3:0]=# recs 
353 F5274 8£00 GOSUBL =A-MULT Compute file length 
64) 
354 x 
355 * Now R2 = inplerentation field, A[A] = file length in bytes 
356 * Put the file size, file type and create code into Ri 
357 * Put the file nane into RO and R4[15:12] 
358 x 
359 F527A 1€3 CRIF4O D1=D1- 4 
360 F5270 AF2 C=0 W 
361 F5280 15F3 C=DAT1 4 C[3:0] = file type 
362 F5284 8£00 GOSUBL =CSLC6 (into C[9:6]) 
oO 
363 F528A 25 P= 5 
364 FS28C AIG C=R WP Copy all 6 nibs 
365 FS28F 173 01=D1+ 4 
366 F5292 1574 C=DAT1 $ C{S] = Create code 
367 F5296 109 R1=C 
368 F5299 AF2 C=0 W 
369 F529C 1CD 01=D1- 14 
370 FS2SF 15F3 C=DAT1 4 C{3:0] = Last 2 chars of filenane 
371 FS52R3 8E00 GOSUBL =CSRC4 
0 
372 F52A9 10C R4=C R4(15:12J= Last 2 chars of nare 
373 FS2AC 1CF D1=D1- 16 
374 FS2AF 1577 C=DAT1 W 
375 FS2B83 108 RO=C RO=First 8 characters of filenane 
376 F52B6 840 ST=0  =sOVERW Do NOT overwrite an existing file! 
377 F52B9 7000 GOSUB =NEWFIL Create the file on the tape 
378 FS2BD 500 RTNNC If no carry, no error...done 
379 FS2C0 6363 GOTO hCPYer Error...set itu 
380 SOR ROO JO OI OOO OO I III 
381 SORT JOR JI JOJO ROO JOIST OT IO 


382 


ax 
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383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 


432 
433 
434 
435 
436 


Tue Jan 17, 1984 12:12 pn 
Page 9 


** Nane: hROCBF - Read current record into FIB buffer 
wk 

** Category: POLL 

ak 

x* Purpose: 

ek Read the current record of the FIB pointed to by STMTD1 
ak into its FIB buffer 

XA (FAST POLL) 

kok 

** Entry: 

aX STNTD1 contains the FIB address for the file 

ax 

ae Exits 

a Carry clear, XN=0 

am Current record has been read into FIB buffer 

ae A[W],D[W], and D1 are restored fron SNAPBF (SNAPRS) 

xm If error, jutips directly to BSERR after setting up error 
kk 

*k Calls: STBUF+, START ,WRTADR, READRH, CSLC9,UTLEND, ACES=0, 
wk <SNAPRS>, <ERRORX> 

tok 

xx Uses: 

** Inclusive: A,B,C,D,D0,01,P,ST[4:0] 

re" 

** Stk lvls: 3 (READRH)(START) {1 level saved during these} 
ax 

** Detail: 

as STBUF+ saves a stack level in D[11:7], RSTORE restores 
ae it to the RSTK 

wx 

** History: 

kK 

wk Date Progranner Modification 

PE ee Dee | eee eua i seen te eee le 
** 10/14/83 NZ Updated docunentation 

kk 04/01/83 SC Wrote routine 


Kx 


OOO ICIQIII II IIIT TIO OIG. 
FO ORO IOI IOI ITO IIIS IOI IOI IT 


Check 1f HPIL,set up D[X]},D1; 

save RSTK level in D[11:7]) if HPIL 
Not HPIL 

Set up the rarlbox, DO 

Error exit 

Compute current record 


* AL3:0] 1s the record number of the current record 
x 


F52C4 ?7CCO =hRDCBF GOSUB STBUF+ 
x 
F52C8 500 RTNNC 
F52CB 7C51 GOSUB Start 
FS2CF 4C2 GOC Errorx 
F52D2 7831 GOSUB WRTADR 
k 
FS5206 8E00 GOSUBL =READR# 
00 
Errorx 


FS2DC 4F1 = RSTOR+ GOC 
a 


Read the record to the buffer @ 01 


Error exit 


* Restore the RSTK saved in D[11:7] 
* Set access mode in FIB to zero (not modified) 
* Exit through SNAPRS to restore A,D,DO, and D1 from SNAPSV 
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437 k 
438 FS2DF AFB RSTORE C=D W Restore one RSTK level... 
439 F52E2 8E00 GOSUBL =CSLC9 ... fron D[11:7] 
0 
440 FS2E8 06 RSTK=C 
441 x 
442 FS2ER 7000 GOSUB =Utlend Clean up the loop (unaddress all) 
443 FS52EE 4D0 GOC Errorx Error exit 
444 FS2F1 7000 GOSUB ACES=0 Set access code to zero (clean) 
445 F52F5 8DOO =sNAPRS GOVLNG =SNAPRS Restore A, D, DO, D1 
000 
446 x 
447 k 
448 FS2FC 8C00 Errorx GOLONG =ERRORX 
00 
449 x 
450 a. 
451 x 
452 : ACES=0 sets the access code of the current FIB to zero 
453 
454 F532 7B21 ACES=0 GOSUB dO=FIB 
455 F536 16A 00=00+ =oACCSb Position to the access code in FIB 
456 F5309 D2 C=0 A 
457 F530B 150 DATO=C 1 Write out a zero (not nodified) 
458 F530F 6F64 GOTO 3 =Rtnkno Return with XM=0, carry clear 
459 JO UII OUI OO TI TTT 
460 OIC GIO IOC OOOO TO OTT TTT 
461 KR 
462 ~ Nane: hWRCBF - Write current record to nass men device 
463 
464 ** Category: POLL 
465 a 
466 ** Purpose: 
467 kk Flush the current record for this FIB entry out to 
468 xk the mass menory device (buffer contents, current 
469 XS position, and record address are not changed by this 
470 ak operation) 
471 an (FAST POLL) 
472 xk 
473 *k Entry: 
474 ‘“ STNTD1 contains the FIB address for the file 
475 
476 aK Exit: 
477 i Carry clear, XM=0 
478 ak Current record has been flushed out to mass nen device 
479 xk A[WJ],D[W],D0, and 01 are restored fron SNAPSV (SNAPRS) 
480 = If error, jumps directly to BSERR after setting up error 
481 x 
482 a Calls: STBUF+, START, WRTADR, WRITE#, <RSTOR+> 
483 x 
484 *k Uses: 
485 kk Inclusive: A,B,C,D,00,D1,P,S1[8,4:0] 
486 ak 
487 ax Stk lvls: 3 (START)(WRITE#) {a level is saved in D0 for these 


488 
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489 
490 
49} 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 


505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
$21 
522 
§23 
§24 
525 
526 
527 
528 
529 
530 
531 
532 
$33 
534 
535 
§36 
53? 
§38 
539 
540 
541 


Lay 
ec 


F§313 7070 


F531? 500 
F531A 7001 
FS31E 4D0 
F5321 7CEO 
F5325 8£00 
00 
F532B 60BF 
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** History: 
kk 


a Date Progranner Modification 

$i sees” “beetemese,, uspetedveleet ia vow snaeetaeeu eas 
ee 10/14/83 NZ Updated docunentation 

xk 04/01/83 sc Wrote routine 

ak 


FOI JOTI TT TTT TTT TIT TDI IK 
JOJO IIIT TTT TT TTT TTT OTT 


=hWRCBF GOSUB STBUF+ Check if HPIL, set up D[X],01; 

x save RSTK level in D127] if HPIL 
RTNNC Not HPIL 
GOSUB Start Set up the mailbox, DO 
GOC Errorx Error exit 
GOSUB WRTADR Conpute current record 
GOSUBL =WRITE# Write the buffer to mass nen device 
GOTO RSTOR+ Restore RSTK level, exit 


FORO RII IOI II III OTTO TT III 
FOI ITO IOI III IIIT TTT OTT TT 
ak 


** Nare: hRDNBF - Flush current FIB buffer, read next 

ak 

*X Category: POLL 

i 

** Purpose: 

xh Flush the current FIB buffer out to the nass nenory 

a device (if altered), read the next record into the FIB 
ak buffer, and update the current position 

as (FAST POLL) 

ki 

** Entry: 

me STMTD1 contains the FIB address for the file 

ke 

ae EMAC! 

ie Successful: 

ae Carry clear, XM=0 

ae Next record is read into the FIB buffer 

ed Current position in FIB is set to start of next record 
= File access nibble in FIB is set to zero 

ak Error: 

aS Direct junp to BSERR after setting up the error code 
re 

&* Calls: STBUF+, START, WRTADR, WRITER, STUPBF ,GETNBX, READRH, 
ak ACES=0, <RSTORE> 

ah 

** Uses: 

** Inclusive: A,B,C,D,DO,01,P,ST[8,4:0] 

aS 


RR Stk Ivis: 3 (START)CWRITEH)(READRH) {1 level saved in D} 


eh 
** History: 
ke 


a Date Prograntier Modification 
RO (Soe Sette ~° Dee ote | CE SO RO eee ee a Se es ee 
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543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
§54 
§55 
556 
557 
558 


559 
560 
561 
562 
563 
564 
565 


566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
531 
582 
583 
584 
585 
586 
587 
588 
589 
590 
594 
592 
593 
594 
595 


F532F 7160 
F5333 500 
F5336 71FO 
F533A 41C 
F533B 7000 
F5341 2c 
F5343 90B 
F5346 
F5348 20 
F534A 8E00 
00 
F5350 4BA 


F5353 
F5355 
F5359 
F535) 
F535F 


20 
7E£50 
7800 
E4 
8E00 
00 
F5365 469 
F5368 769F 
F536C 16€ 
FS36F 16D 
F5372 146 


F5§375 
F§378 
F537B 
F537E 
F5380 
F5383 
F5386 
F5389 144 
F538C 7590 
F5390 6E4F 


8iE 
816 
316 
£6 

812 
812 
A76 
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RK 10/14/83 
kK 04/01/83 
kk 


FORK ITO IIIT OOOO TTT TTS TTT TTT TK 
JOO IOI ITT TTT TOT TTT TTR 


=hRONBF GOSUB STBUF+ Check if HPIL, set up D(X], DO; 
x save RSTK level in D[11:7} if HPIL 


N2 
SC 


Updated docunentation 
Wrote routine 


RTNNC Not HPIL 

GOSUB Start Set up mailbox, DO 

GOC Errorx Error exit 

GOSUB WRTADR Compute current record 

P= 12 Check access (set up by STBUF+) 

7D=0 =P Is access nibble = 0? 

GOYES RDNB10 Yes... Just read next record 

P= 0 No... 

GOSUBL =WRITE# Write FIB buffer to mass nenory 
; GOC Errorx Error exit 
RDNB10 P= 0 


GOSUB STUPBF 
GOSUB Getnbx 
A=A+1 A 

GOSUBL =READR# 


Set up D1 to start of FIB buffer 
Set DO back to nailbox 

Select next record... 

...read next record 


GOC Errorx Error exit 

GOSUB ACES=0 Set access code=0 (not nodif ied) 

DO=D0+ (oDBEGb)-(oACCSb)+5 

DO=D0+ (oCPOSb)-(oDBEGb)-5 Position to current position 
: C=DATO A Read current position into C[A] 
* The current position is the number of nibbles fron data start 
: for the file 


CSRB Turn nibbles into bytes (forces 
CSRC the current position to be at an 
CSRC even byte boundary uhen done) 
C=C+1 A Increment to next record nuriber 
CSLC 

CSLC 

C=C+C W Convert back to nibbles 

DATO=C A Write out updated current position 
GOSUB Getribx Set DO back to the mailbox 

GOTO RSTORE Clean up the loop, restore A,D,D0,D1 


FORO RTI ITO TO OTK 
FORO III OI TOTO TT TTT TTT TT ITT 
xk 


**k Nane: STBUF+,STUPBF - Set to read/write current recrd 
*k Nane: WRTADR - Write device addr into FIB, <STUPBF> 
kk 

** Category: LOCAL 

ok 

** Purpose: 

x STBUF +: 


ax Check if HPIL...af not, RINCC,XM=1 
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596 ak Save one RSTK level in D[11:7] 
597 ax STUPBF: 
538 ak Set D[12] to the access nibble for buffer, D1 to the 
539 Sas FIB buffer, D[A] to the device address, A[3:0] to 
600 Be the current record position 
601 ak 
602 ** Entry: 
603 xk STMTD1 contains the FIB address of this file 
604 ak 
605 KK Exit: 
606 fk Carry clear: 
607 xk Not HPIL...XM=1 
608 ak Carry set: 
609 ak 0[12] is the access nibble for this buffer 
610 ak D[11:7] is the RSTK value of the caller’s caller 
611 an P=0 
612 ak D[A} is the device address 
613 xk A[3:0] is the current record number 
614 xx 
615 a Calls: DO=FIB, CKHPI+, CSRC9, 1/OFND, CHKASN 
616 x 
617 AX Uses... ce 
618 ie Inclusive: A[W],B[W),C(W],0[W],D0,01,P 
619 x 
620 ve Stk lvls: 2 (CHKASN) {RSTK level already saved for this} 
621 
622 ** History: 
623 ak 
624 oe Date Progranner Modification 
625 RE Seucreiss jo teelecs. “item vetesssonee ee tinker oe 
626 Kk 10/14/83 NZ Added docunentation 
aK 
te JOIST KITT 
629 JOIST IOI OCI EE 
630 F5394 7990 STBUF+ GOSUB ddO=FIB Set 00 to the start of the FIB 
631 F5398 168 DO=D0+ =oDEVCb Skip to device type 
632 F539B 1564 C=DATO $ 
633 FS39F 7DE3 GOSUB CKHPI+ Check if HPIL 
634 F53A3 500 RINNC No...return, carry clear (XM=1) 
635 F53R6 07 C=RSTK ld en ee 
636 FS53R8 D7 D=C BE eee Sede 
63? FS3AR 07 C=RSTK .. Save caller’s caller RSTK value 
638 F53AC 8EOO GOSUBL =CSRC9 .. in D[11:7] 
00 
639 F53B2 AFF CDEX WY — V.eeeen 
640 F53B5 06 RSTK=C i ee ee 
641 x 
642 F53B7? 7670 STUPBF GOSUB d0O=FIB Set DO at FIB entry 
643 F53BB 16A DO=D0+ =oaACCTSb Position to access nibble 
644 FS3BE 2C = 12 
645 F53C0 1560 C=DATO P Read access nibble into C{12]... 
646 F53C4 A87 b=C P ...and save 1t in D[12] 
647 F530? 20 P= 0 
648 F53C9 188 DO=DO- (oACCSb)-( oF BF#b) 
649 F53CC 146 C=DATO A Read the FIB buffer nunber([X}) 
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650 FS3CF 8E0O GOSUBL =1/0FND 
00 
651 F53D5 480 GOC STUP10 Found the buffer 
652 F53D8 300 LC(1) =eSY¥Ser Not found..."Systen Error" (HPIL) 
653 F53DB 20 P= =ePIL This 1s an HPIL tessage 
654 F53D0 6GE1F GOTO 3 Errorx Error exit 
655 a 
656 ae 
657 FS3E1 167 STUP10 DO=D0+ (oCOPYb)-(oF BFHb) 
658 F53E4 16€ DO=D0+ (oDBEGb)-(oCOPYb)+4 
659 F53E7 15€6 C=DATO 7 C[6:0] is device address info 
660 FS3EB 8£00 GOSUBL =CHKASN Set up for START to get the addr 
00 
661 F53F1 07 ; D=C A (Info for START into D[3:0]) 
662 
663 F53F3 183  STUP2O DO=D0- 4 Position DO to data begin 
664 FS3F6 15A3 R=DATO 4 A[3:0]=data start record nunber 
665 FS3FA 163 DO=D0+ 4 
666 FS3FD 16€ DO=D0+ (ofPOSb)-( oDBEGb)-4 
667 F5400 AF2 C=0 W 
668 F5403 146 C=DATO A C[A}=current position (in nibbles) 
669 F5406 81E CSRB Convert nibble position to byte 
670 F5409 F6 CSR R 
671 FS40B F6 CSR A C{A] 1s nurber of records offset 
672 F540D CA A=A+C A A[A] is current record nunber 
673 FS40F 02 ; RTNSC Carry set=set up for HPIL 
674 - 
675 oe 
676 F5411 7C10 WRIADR GOSUB dO=FIB 
677 F5415 16C DO=D0+ (oF BEGb) 
678 F5418 168 DO=D0+ (oDBEGb)-( oF BEGb) +4 
679 F541B DB C=D A 
680 F541D 1543 DATO=C xX Store device address into FIB 
681 F5421 7ECF GOSUB STUP20 Set A[3:0] to current record # 
682 F5425 8C00 =Getnbx GOLONG =GETNBX Set DO back to the nailbox 
00 
683 he 
684 a. 
685 F542B 8COO Start  GOLONG =START 
00 
686 a. 
687 ae 
688 F5431 8D00 dO=FIB GOVLNG =DO=FIB 
689 we JORIS IOI TOG OTC CCE Rn 
690 JORIS CUI IU IT TR ITOK 
691 aK 
692 - Nane: hPRICL - Print class poll handler for HPIL 
693 
694 ** Category: POLL 
695 aX 
696 ** Purpose: 
697 ax Respond to the PRINT class poll, if this is “OUTPUT” 
638 ax or "PLOT" (and the device is HPIL!) 


699 ce 
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700 &k Entry: 
701 ax P=0, HEXMODE, DO @ =NLFFLG 
702 aw If this is HPIL and (OUTPUT or PLOT): 
703 ak STMTR1[8:2] 1s the 7 nibble device specifier 
704 ax STNTR1[10:9] is the position for QUTPUT/PLOT 
705 tk STNTR1[12:11] is the length for QUTPUT/PLOT 
706 ax STNTRO[O] is either OUTPTt or PLOTt 
707 ak 
708 eK Exit: 
709 x Carry clear, P=0, HEXMODE 
710 ak XM=0: 
711 AX Entry conditions for STMTRx are maintained 
712 ak STMTRO[5:1] is the address of PRASCI 
713 ax STMTRO[10:6] is the address of STNTR1+9 
714 xk XM=1: NOT handled by ne! 
715 kk 
716 ** Calls: TSAVD1 , CSLC5,CSLC3, TSAVZC, PRTIS+, TRES2C, CSRC3, CSRC 
717? XK 
718 ek Uses....... 
719 Exclusive: C, bDO,P 
720 ** Inclusive: A,B,C,D,00,P,FUNCDO, FUNCD1 , FUNCR1 
721 x 
722 ek Stk lvls: 3 (PRTIS+) {2 RSTK levels saved first} 
723 aK 
724 ** NOTE: Must NOT use D1, status bits! 
725 ay 
726 ** History: 
727 aK 
728 he Date Prograrier Modification 
729 ERO SeseSsess.. eecebecees.  Jeececciceceocosde cnuleccesco estes e 
730 ae 12/15/82 NZ Added docunentation 
aa 
ae JOO IIIS IGISO II IO TI TT TIT 
733 JORIS OI TOGO IIS IT IIR 
734 F5438 =hPRICL 
735 k 
736 * DO @ MLFFLG now 
73? . 
738 F5438 D2 C=0 R 
739 F543A 14€ C=DATO B Read MLFFLG, type 
740 F543D0 8001 P=C 1 P=type 
741 F5441 890 ?P= =OUTPTt "OUTPUT" type? 
742 F5444 70 GOYES hPRTCO Yes...do it! 
743 F5446 880 ?P#H =PLOTt "PLOT" type? 
744 F5449 84 GOYES hPRTXN No...exit, XM=1 
745 : 
746 * Need to re-setup the loop nou! 
747 x 
748 FS44B 8E0O hPRTICO GOSUBL =TSAVD1 Save D1 terporarily (restored by 
00 
749 k PRTIS+) 
750 F5451 1FOO D1=(5) (=STMTR1)+2 = ...poant to 7? nibble handler... 
000 
751 ey 


752 F5458 0? C=RSTK Save 2 RSTK levels,ST in FUNCR1 
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753 F545A 7150 GOSUB Cslc5 
754 F545E 07 C=RSTK 
755 F5460 8£00 GOSUBL =CSLC3 
Oo 
756 F5466 09 C=ST 
757 F5468 8E00 GOSUBL =TSRV2C (Save in FUNCR1) 
oO 
758 K+ 
759 FS546E 8£00 GOSUBL =PRTIS+ ...set it all up!... 
00 
760 wy 
761 F5474 8EOO GOSUBL =TRES2C Restore RSTK levels before check 
Oo 
762 F547A OR ST=C Restore status bits 
763 F547C 8£00 GOSUBL =CSRC3 
00 
764 F5482 06 RSTK=C Restore second level 
765 F5484 8E00 GOSUBL =CSRC5 
re) 
766 FS48A 06 RSTK=C Restore first level 
767 xy 
768 F548C 831 7KM=0 Handled? 
769 FS48F 60 GOYES hPRTC1 Yes...continue 
770 F5491 6820 hPRTXM GOTO hCPYXN No...exit,XM=1,carry clear 
771 x 
772 x. 
773 F5495 hPRTC1 
774 x 
775 * Loop is set up now, A[A] is address of PRASCI 
776 k 
777 F5495 25 P= 5 
778 F5497 3400 LC(5) (=STMTR1)+#9 Position and length for OUTPUT 
000 
779 FS49E 20 P= 0 
780 F54R0 1800 DO=(5) (=STMTRO)+1 Handler address 
000 
781 FS4A7 D6 C=A A Copy handler address fron A[A] 
782 F54R9 15C9 DATO=C 10 (Write it out!) 
783 FS4AD 03 RTNCC Done! 
784 SOIC OO TOI TT 
785 JOOS TOO TTI II 
786 wk 
787 ** Nane: hCOPYx - Copy POLL handler (HPIL) 
788 am 
789 xk Category: STEXEC 
790 wk 
791 ** Purpose: 
792 ax Handler for COPY execute POLL 
793 ak 
794 kk Entry: 
795 wk A[W] is first 8 chars of filenane 
796 a RO[3:0] 1s last 2 chars 
797 a D[A] 1s source device infornation 
798 KK P=0 
799 ax ST(=sEXTDV) set if either of both fale specs are HPIL 
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800 a ST(=sUNDEF) set if both file names are zero (undef’d) 
801 aR ST(=sCARD) set if destination device is CARD or PCRD 

C Kx R2 has destination device info!!! tl 

803 ax SAVSTK: (offsets fron SAVSTK pointer) 
804 x -62 => -1: (POLL save area) 
805 ax -87 => -63: (Source info) 
806 ak -112 => -88: (Destination info) 
807 kk 
808 at Info format: low ner --- high nen 
809 Kx First 8 chars...last 2 chars...device 
810 xx 
811 Xx Exit: 
812 ax P=0 
813 am Carry set: Error...error # in C[3:0] 
814 xx Carry clear: 
815 xm XN=0: handled 
816 ae XM=1: not handled 
817 xx SAVSTK unchanged fron entry 
818 x 
819 *k Calls: ASLC4; 6312, ASRC3;4;5;10, BLANKC, CHAIN-, CHKBIT, 
820 a CLNODE ,CRIF ,CSLO2;5; 10, CSRC5; 10, DO=FRO, D1=S20, 
821 xx DdtRd, ENDTAP, FINDF,FINDFL, FNDMB+, FRAME-, GETBYT, 
822 ax GETD, GETDev, GETDST, GETNBX, GETTYP, GETX,hCPYSS, 
823 ate hHCPYE. ,ACPYEL, hCPYXM, HRNMsd, LEXBF+, MOVEFL,NEWFI+, 
824 ata PRGFNF ,PUTE, RDINFD, RDINFO, READSU, SEEKA, TRES2C, 
825 a TSAV2C , TSTAT, UTLEND 
826 ae 
827 B® US0S.¢ oyy0% 
828 *k Inclusive: A-D,RO-R4,D0,01,P,S1[8,4:0], FUNCRO;1, FUNCDO, SCRICH 
829 a 
830 ** Stk lvls: 6 (NEWFIL;PUGFIB) 
831 si 
832 ** History: 
833 a 
834 ax Date Progranner Modification 
835 MM Seecescs tesiioiseser  %“Sadboeceevee ones eee coos se eset 
836 Kk 12/21/83 NZ Added check for zero-length file 
837 a in hCPYSO...uas sending an SDA 
838 ax even 1f no more data was expected 
839 xx from the device 
840 ak 10/30/83 NZ Added fix for bug...if in device 
841 a node and receive a zero-length file 
842 *e which already exists in RAM, the 
843 a machine would lock up. 0O was 
844 * being destroyed in the check for 
845 ae the file existing (FINDF). 
846 tk 99/07/83 NZ Added check for destinatian=HPIL 
847 aS for COPY fron mainframe to external 
848 A 05/12/83 NZ Renoved convert to upper case for 
849 oe destination 
850 ee 01/12/83 NZ Updated docunentation 

ax 
= FORO ROR OI JOT JOT UII OOOO IO OIG IOI II OK 
853 OR TORII JORIS JORIS FOI I IOI IOI Or 


854 FO4AF 812 


Cslc5 


CSLO 
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855 F54B2 8C00 Csic4 GOLONG =CSLC4 
00 


856 
857 
858 
853 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
833 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
300 
1 
92 
903 
904 
905 
6 
97 
#8 


F54B8 
FS4B8 870 
FS4BB 80 
F54BD 


FS4BD 21 
FS4BF OD 
F54C1 00 


F54C3 872 
F54C6 7F 
FS54C8 DB 
FS54CA B06 
FS4CD 442 
FS4D0 DB 
F54D2 R06 
F54D5 5C1 


F54D8 90E 
F540B 2E 


F54DD 117A 
F54E0 DS 

F54E2 BO6 
F54E5 480 
F54E8 AOS 
F54EB 451 

FS4EE 62B2 


FS4F2 


F54F2 11A 
F54F5 AO6 
F54F8 90E 
F54FB ec 

F54FD 6A21 


F5501 


?ST=1 0 =sEXTDV Is any of this external device? 
GOYES hCPY10 Yes...continue 

hCPY6. 

x 

* Copy tape to tape (whole volune) 

x 


* TWO cases...both on sane loop vs. on different loops! 
k 


hCPYXM P= 1 
P=P-1 Clear carry... 
RTNSXM Return, carry clear 
x 
ke 
HCPY10 ?ST=1 =sCARD Is either one CARD? 
GOYES hCPYXN Yes...not for melt! 
C=0 A 
C=C+1 P Check if source is nainfrane 
GOC hCPY3. Source is (not specified) 
C=D A Not (not specified)... 
C=C+C P Check if source is HPIL 
GONC = hCPY3. Source is NOT HPIL...copy main 


X 
* Source is external...check if HP-IL 
x 


CHO) OP 
GOYES hCPYXM Not for ne! 
k 


* Source IS HP-IL...check further 
k 


C=R2 Read back destination info 
B=C A Save device in B[A] for loop>loop 
C=C+1 P Check if dest is (not specified) 
GOc hCPYS5. Destination is (not specified) 
B=B+B P Check if destination is HPIL 
GOC hCPY12 Destination 1s external 

hCPYS. GOTO hCPYS5O Destination is not HPIL 

&. 

x 

hCPY3. 

k 

* Check if destination is HPIL 

x 
C=R2 
C=C+C P This MUST carry...sEXTDV was set 
7CHO OP Is this HPIL? 
GOYES hCPYXM No...don’t handle! 
GOTG = hCPY30 Copy fron main to loop 


ke 
x. 


h€PY12 
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909 x 
910 * Destination is external...check 1f HP-IL 
911 * 
912 F5501 90D 7BHO | OP 
913 F5504 9B GOYES hCPYXN Not HP-IL! 
914 i 
915 * Source, destination are both HPIL...check if nane given 
916 x 
917 F5506 871 ?ST=1 =sUNDEF Naries undefined? 
918 F5509 4B GOYES hCPY6. Yes...copy tape to tape 
919 x 
920 * Naned HPIL to HPIL transfer 
921 x 
922 F550B F7 DSR A Shift address into D[X] 
923 
924 * Copy a file from HPIL to HPIL (nay be sane device) 
$25 x 
926 * first find the source file 
927 x 
928 F550D 8E00 GOSUBL =FINDFL Find the source file 
00 
929 F5513 560 GONC hCPY22 OK. ..continue 
930 F5516 6392 GOTO hCPY5? EFrror...set it, return! 
931 x. 
932 x. 
933 x 
934 * Now save starting sector, etc in R3 
935 x 
936 F551A 8EOO WCPY22 GOSUBL =CSRC5 Temp put # sectors in C{15:11] 
00 
937 F5520 D6 (=A OAR Copy starting sector to C[R] 
938 F5522 7486 GOSUB Cslc10 Put # of sectors in C[9:5]} 
939 F5526 OB C=) A Copy device address to C[A] 
940 F5528 108 R3=C Save all in R3! 
941 x 
942 * Now R3[A] is device address, [9:5] is # sectors, [14:10] is 
943 * first sector address 
944 : 
945 * Now check the file type for private, copy code, unknown, etc 
946 x 
947 F552B 7B77 GOSUB GETTYP | Read in file type & check it 
948 FS52F 460 GOC hCPY23 Ok...found it! 
949 F5532 6CB2 hCPYtP GOTO hCPYtp Illegal (unrecognized) type 
960 Me 
951 a. 
952 F5536 hCPY23 
953 . 
954 * B[S] 1s offset into type table, B[A],C[A] point to entry, 
955 * ALA] is file type 
956 x 
957 F5536 135 D1=C Set D1 @ table start 
958% F5539 R4D B=B-1 § Convert to base zero entry 
859 F553C AC2 C=0 S 
3860 FSS3F B46 C=C+1 § C{[S] 1s now rax non-private type 
961 F554 B49 C=€-B S$ If carry, then private 
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962 F5545 560 GONC hCPY24 OK...not private 
963 F5548 6997 GOTO  hPURSC Illegal type (private) 
964 ke 
965 a. 
966 x 
967 * Type is acceptable to copy!! 
968 x 
969 * (Chose the FIRST type...not secure or private) 
970 x 
971 F554C 17F hCPY24 D1=D01+ 16 Point to UN type 
972 FSS4F 15B3 R=DATI 4 Read the type 
973 F5553 7037 GOSUB D1=S20 Position to TYPE in SCRICH 
974 F5557 1593 DATI=R 4 Write it out for now 
975 x 
976 * Now set up with destination nane, etc for NEWFIL 
977 k 
978 F555B 8E88 GOSUBL hRNMsd Read dest, convert to UC, etc 
80 
979 x 
980 * Now A[W], RO[3:0] is filenane, D[A] is unchanged, R1 is dest 
981 * address 
982 - 
983 * Check if destination device is (not specified) or (HPIL) 
984 x 
985 F5561 119 C=R1 
986 F5564 816 CSRC Rotate into C(S}, [x] 
987 F5567 B46 C=C+1 S$ 
988 F556R 440 GOC hCPY25 Not specified...go on! 
989 * 
990 * Address 1s specified...put it in D! 
991 * (To get here, destination address had to be specified) 
992 % 
993 F556D 07 D=C A 
994 FS56F 120 hCPY25 AROEX Put first 8 chars in RO... 
995 F5572 8EOO GOSUBL =ASRC4 ...tove last tuo to A[15:12]... 
00 
996 F5578 104 R4=A ...and put in R4[15:12]! 
997 & 
998 * New nane 1s nou set up...set up type and size 
999 * 
1000 F557B 7417 GOSUB 01=S20 Point to file type 
1001 F557F AF2 C=0 W Preclear high nibbles! 
1002 F5582 15F3 C=DAT1 4 Read the type (written above!) 
1003 F5586 113 A=R3 Get back # sectors to A[9:5] 
1004 x 
1005 * SOURCE info: 
1006 . 
1007 * A[A] is device addr, A[9:5] is # sectors, A[14:10] is sector 
1008 x address of data 
1009 - 
1010 F5589 7FO?7 GOSUB DO=FRO Set DO=FUNCRO 
1011 F558D 1507 DATO=A W Save R3 contents in FUNCRO 
1012 F5591 8E GOSUBL =ASRC5 # sectors to A[A] 
00 
1013 F5597 741F GOSUB Cslc5 File type to C[8:5] 
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1014 F559B Dé 
1015 F559D Fe 
1016 FSS9F BF2 
1017 F55R2 109 
1018 F55A5 1000 
1019 FS5A9 15F? 
1020 FS5AD 10A 
1021 FS55B0 DB 
1022 FS5B2 8E0O 
00 
1023 
1024 
1025 
1026 F55B8 840 
1027 FS5BB 8£00 
00 
1028 F55C1 426 
1029 
1030 
1031 
1032 F55C4 8E00 
00 
1033 FSSCA 109 
1034 F55CD 7BC6 
1035 F55D1 1567 
1036 F55D5 10A 
1037 F5508 7B86 
1038 FSS5BC D5 
1039 F5S5DE 113 
1040 F55E1 8E00 
00 
1041 FOSE? F4 
1042 FS55E9 117A 
1043 FSSEC D6 
1044 FOSEE 108 
1045 
1046 
1047 
1048 F55F1 8E00 
00 
1049 FS5F? 4C2 
1050 
1051 
1052 
1053 FSSFA 118A 
1054 FSSFD D7 
1055 FSSFF 800 
00 
1056 F5605 521 
1057 F5608 8E00 
00 
1058 FS60E 451 
1059 F611 7316 
1060 F5615 4E0 
1061 F5618 
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C=A A 

CSL A 

CSL W 

R1=C 

D1i=(2) (=SCRTCH)+56 
C=DAT1 8 

R2=C 

C=D A 

GOSUBL =TSAV2C 


x 


Page 21 


Copy # sectors 

# sectors*16 

# sectors*256 (# bytes) in C[5:0] 
Ri 1s now set up for NEWFIL! 
Point to inplenentation bytes 


R2 is set up for NEWFIL 
Copy address to C{A] 
Save source address in STHTR1 


* Now set up to call NEWFIL to create the file 
k 


ST=0 = =sOVERW 
GOSUBL =NEWFI+ 


GOC hCPYer 
x 


Do NOT overurite the file! 
START, Create the file 


Error 


* Now R3 is BW] contents from NEWFIL, FUNCR1 is unchanged 
k 


GOSUBL =TRES2C 


R1=C 

GOSUB DO=FRO 
C=DATO W 

R2=C 

GOSUB Csrcid 
B=C A 

A=R3 

GOSUBL =ASRC3 


A 
2 


“i DawD 


AS 
C= 
C= A 
R3=C 


* Now set up for MOVEFL 
x 


Restore source address to C[A] 


Store address in dest field 
Set DO to FUNCRO 

Recall source file info to C{W] 
Store address in source field 
Get source sector addr to C[A] 
Sector address of source 


Get file start into A[4:1] 
(Clear high nibble of A[A]) 
Recall # of sectors to C[9:5] 


Get sector # of destination 
R3 1s now set up for MOVEFL 


Move the file between devices 


Error 


Get source addr fron R2{A} 
Save in D[A] 


GOSUBL =MOVEFL 
GOC hCPYer 
x 
* Now clean up the tape(s) (rewind, etc) 
x 
C=R2 
nCPY28 D=C A 
GOSUBL =CHKBIT 


GONC = hCPY29 
GOSUBL =FNONB+ 


GOC hCPYer 
GOSUB Endtap 
GOC hCPYer 


hCPY29 


Check if Filbert tape 


Not a Filbert...try next device 
Find that mailbox 


Error if carry 
Filbert...clean up (rewind,etc) 
Error if carry 
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1062 F5618 119 C=R1 Get dest addr fron R1[A] 
1063 F561B 937 7CHD =x Is this a new device?(addr, loop#) 
1064 F561E FD GOYES hCPY28 Yes...clean it up also 
1065 F5620 6E51 GOTO Rtnxho Done...exit 
1066 r 
1067 z- 
1068 F5624 6296 hCPYer GOTO €rror Error...set C[3:0] to code 
1069 x. 
1070 a. 
1071 F5628 hCPY30 
1072 x 
1073 * Code to set up nainfrane to loop copy 
1074 & 
1075 * First find the source file in the nainfrane 
1076 & 
1077 * Filenane is already in A[W]...shift D[A] around for FINDF 
1078 x 
1079 * (If filenane is undefined i.e. zero, FINDF will error out) 
1080 x 
1081 F5628 817 DSRC Put 0[0] into D[S]}... 
1082 F562B 8F0O GOSBVL =FINDF Find the file 
000 
1083 F5632 3X00 LC(4) =eFnFND File not found 
00 
1084 F5638 400 RTNC Return with error in C([3:0] 
1085 k 
1086 * D1 points to the start of file now 
1087 & 
1088 * Get the info about the file and put it in R1-R2 
1089 * (size, type, data start address, implenentation bytes) 
1090 * 
1091 F5638 17F D1=D1+ =oF TYPh Skip nane 
1092 F563E 173 D1=D1+ =oF LAGh Skip type 
1093 e 
1094 * Now pointing to the flag field...read protection, copy code 
1095 & 
1096 F5641 148 A=DAT1 B Flags (bit O=SE,bit 1=PR) 
1097 F5644 178 D1=D1+ (oF LENH)-(oFLAGh) Leave D1 @ file length 
1098 F5647 302 LCHEX 2 Privacy bit 
1099 F564A OE02 C=C&AR P (Could be A for code space) 
1100 FS64E 90~A C=O =? 
1101 F5651 60 GOYES hCPY31 Not private...continue 
1102 x 
1103 * Attenpt to copy a private file...error! 
1104 * 
1105 F5653 6E86 GOTO hPURSC Protection error 
1106 - 
1107 k- 
1108 F5657 hCPY31 
1109 x 
1110 * File is legal to copy...check copy code 
1111 & 
1112 FS657 F4 ASR A A{O] is nou copy code 
1113 
4114 * Following instruction clears C[A] - used below this! 





Saturn Asseribler POLL HANDLERS <840106.0805> Tue Jan 17, 1984 12:12 pr 


Ver, 3.39/Rev. 2306 DATA FILE HANDLERS Page 23 
1115 & 
1116 F5659 D2 C=0 A 
1117 F565B A86 C=R Pp Read copy code into C{0] 
1118 FS65E AFO A=0 W Clear AW] 
1119 F5661 143 A=DAT1 A Pre-read file length into A[W]! 
1120 F5664 25 P= =1FLENh Skip length of length field 
1121 F5666 80FO CPEX 90 
1122 FS566A EA A=A-C A 
1123 F566C 80FO CPEX 0 Restore copy code 
1124 F5670 20 P= 0 Reset P=0 
1125 ‘ 
1126 * Decode what the copy code is! 
1127 x 
1128 F5672 390A "C=O =~? Is this copy code 0? 
1129 FS675 42 GOYES hCPY33 Yes...do it 
1130 F567? AODG C=C+C P Unknown type? (CC=8) 
1131 F567A 4At GOC hCPY32 Yes...can’t handle it 
1132 F567D Ad6 C=C+C P ASCII text file? (CC=4) 
1133 F5680 560 GONC hCPY3a No...keep checking 
1134 F5683 6580 GOTG hCPY34 Yes...do it 
1135 a. 
1136 x 
1137 F568? ACB =ACPY3a C=C+C P HP41C data file? (CC=2) 
1138 F568A 560 GONC hCPY3b No...TITAN data file 
1139 F568D 6580 GOTO 8 =hCPY36 ves...do- it 
1140 z 
1141 a 
1142 k 
1143 * TITAN fixed length data file (CC=1) 
1144 x 
1145 F5691 GFAO HCPY3b GOTO hCPY38 
1146 x 
1147 a 
1148 F5695 hCPY32 
1149 * 
1150 * Unknown file type...exit or poll? 
1151 * 
1152 F5695 672E GOTO hCPYXN I give up! 
1153 Re 
1154 k- 
1155 F5699 hCPY33 
1156 x 
115? * Mainfrane executable file (COPY CODE = 0) 
1158 * D1 points to file length field 
1169 * ALW] 1s fale length in nibbles (data + subheader) 
1160 3 
1161 F5699 102 R2=R Set inplenentation bytes<==length 
1162 * 
1163 * D1 1s pointing at FLENh, A[W] 1s length in bytes, C[A] is 5. 
1164 x 
1165 F569C 101 hCPY3- R1=A Put file len in nibs in R1[5:0]} 
1166 is 
1167 * Now get actual file start address 
1168 x 


1169 FS69F 305 LC{1}  =LFLENh Offset to data for nainfrare 
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1170 F56R2 133 hCPY3+ ADIEX 
1171 FS6A5 131 D1=A Copy D1==>A 
1172 F56A8 CA A=A+C A Add offset to data start 
1173 F56AR 8EOO GOSUBL =ASLC4 Rotate into A[8:4} 
oO 
1174 x 
1175 * Now get the file type (fron the source) 
1176 x 
1177 F56B0 1CF D1=D1- (oF LENH)-(oFTYPh) Move to file type 
1178 F56B3 1583 A=DAT1 4 Read it 
1179 x 
1180 * check if BASIC file...if so, set flag "BASIC" 
1181 x 
1182 Basic EQU 0 
1183 FS6B7 840 ST=0 Basic 
1184 FS6BA 3341 LC(4) =fBASIC 
2E 
1185 F56CO 23 P= 3 
1186 F56C2 916 *ARC OP 
1187 F56C5 50 GOYES hCPY3F 
1188 F56C7 850 ST=1 Basic Set Basic flag 
1189 FS56CR hCPY 3f 
119 * 
1191 * Rotate file type into A[9:6], file start into A[14:10] 
1192 % 
1193 F56CA 8E0O GOSUBL =ASLC6 
00 
1194 F56D0 119 C=R1 Read back the length... 
1195 F56D3 £6 C=C+1 A ...add 1 to round UP... 
1196 F56D5 81E CSRB ...convert to bytes! 
1197 FS56D8 DA A=C A (NOT WP: nibble 5 is always zero) 
1198 FS6DA 101 R1=A Now size, type, and start are set 
1199 FS6DD 860 ?$T=0 Basic Is this NOT a BASIC file? 
1200 F56EO 52 GOYES hCPY3q Not BASIC...continue 
1201 x 
1202 * This is a BASIC file...chain it first! 
1203 x 
1204 F56E2 8600 GOSUBL =ASRC10 File start ==> A[A] 
oO 
1205 F5S6E8 20 P= 0 
1206 FS6EA D2 C=0 A 
1207 FS6EC 3113 LC(2) (=oF LENn)+(oBSsod) 
1208 F56FO EA A=A-C A 
1209 x 
1210 * Now ALA] is the start of the file header 
1211 x 
1212 FS6F2 11A C=R2 
1213 FS6F5 10B R3=C Save R2 in R3 for now... 
1214 FS6F8 8FOO GOSBVL =CHAIN- Chain the file 
000 
1215 FS6FF 11B C=R3 
1216 F5702 10A R2=C Restore R2 fron R3! 
121? F5705 6A50 hCPY3g GOTO hCPY39 Get the destination narie, do it! 
1218 x- 


1219 


x. 
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1220 F5709 hCPY34 
1221 x 
1222 Handler for ASCII (TYPE=1) text files (COPY CODE = 4) 
1223 
1224 : D1 points to FLENh, A[W] is file length in nibbles 
1225 
1226 F5709 AF2 {-0 W 
1227 F570C 160A R2=C Clear inplenentation bytes 
1228 FS70F 6C8F GOTO) 3=hCPY3- Continue at connon code 
1229 xe 
1230 x 
1231 FS713 hCPY 36 
1232 x 
1233 * Handler for HP41C data file (COPY CODE = 2) 
1234 : D1 points to file length field, A[W] 1s file length in nibbles 
1235 
1236 F5713 101 R1=A Save file length in R1[5:0](nibs) 
1237 FS716 AF2 C=0 W Check if it fits... 
1238 F5719 D6 C=A A C(W] is file length 
1239 F571B 972 7A=C) OW Contained in [A] field? 
1240 FS71E 60 GOYES hCPY37 OK...continue 
1241 F5720 68B0 COTO =hCPYS! Too big...size error 
1242 x. 
1243 ed 
1244 F5724 8E0O hCPY37 GOSUBL =CSRC5 Rotate high byte to C[15:14] 
00 
1245 F572A ABE (=A X Copy low byte (ignore low nibble) 
1246 F572D Fé CSR A 
1247 FS72F 8E00 GOSUBL =CSLC2 C{B] 1s high byte, C[3:2] 1s low 
00 
1248 F5735 10A R2=C Set up inplenentation bytes! 
1249 F5738 D2 C=0 A 
1250 F573A 35 LC(1) =041sod Offset for 41C data file 
1251 F573D0 646F GOTO hCPY3+ 
1252 = 
1253 ae 
1254 F5741 hCPY 38 
1255 * 
1256 * Handler for fixed length data files (COPY CODE = 1) 
1257 * D1 points to file length field, A[W] 1s file length in nibbles 
1258 - 
1259 F5741 308 LC(1) 8 Subtract inpl bytes fron length 
1260 F5744 ER A=A-C A 
1261 F5746 101 R1=A Save actual file length in nibs 
1262 F5749 174 D1=01+ =1FLENh Skip to inplenentation fields 
1263 FS74C 15B7 A=DAT1 8 Read then... 
1264 FS?50 102 RO=R Set up iriplenentation field in R2 
1265 F5753 111 A=R1 Get file length back for hCPY3+ 
1266 F5756 1C4 01=D1- =1FLENh Move back to FLENh 
126? F5?759 3D LC(1) (=1FLENH)+8 «Point past inplenentation field 
1268 FS75C 654F GOTO hCPY3+ Finish up 
1269 Me 
1270 * 
1271 F5760 hCPY 39 
1272 FS5760 72F4 GOSUB Rdinfd Read the info fron SAYSTK 
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1273 

1274 

1275 

1276 F5764 817 

1277 F5767 120 

1278 FS76A 8E00 
00 

1279 F5770 104 

1280 

1281 

1282 

1283 

1284 

1285 F5773 850 

1286 F5776 8E00 
00 

1287 FS77C 436 

1288 FS77F 821 

1289 F5782 03 

1290 

1291 

1292 F5784 8E00 
00 

1293 F578A 501 

1294 F578D ACB 

1295 F5790 A46 

1296 F5793 570 

1297 F5796 94A 

1298 F5799 00 

1299 F579B 00 

1300 

1901 

1302 F579D 6F1D 

123 

14 

1305 F57A1 

1X6 

107 

18 

19 

1310 

1311 

1312 F57R1 817 

1313 F57A4 8E00 


00 
1314 FS7AR 06 
1315 
1316 
1317 
1318 


1319 F5?AC 7FFC 
1320 F57B0 D6 

1321 F57B2 79FC 
1322 FS7B6 10C 
1323 F57B9 118A 
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x 
* Now A is first 8 chars, RO is last 2 chars, D is device info 
x 


DSRC Shift device info...addr->D[A] 
AROEX Put first 8 chars in RO 
GOSUBL =ASLC12 Rotate last 2 chars to A[15:12] 
R4=A Nou last 2 chars in R4(15:12] 

x 

* Do the actual transfer nou 

x 

* (Get the mailbox back - NEWFI+ does START, NEWFIL) 

k 
ST=1 - =sOVERW Allow overwriting existing file 
GOSUBL =NEWFI+ Create a new file on the tape 
COC hCPY5a Error...set 1t up! 

Rtnk xXM=0 No error...return CC, xM=0 
RTNCC 

Ks 

x. 

=CKBITL GOSUBL =CHKBIT Check if bit for Filbert is set 
GONC CKHPIx No carry...set XM (not Filbert) 

=CKHPIL C=D S 

=CKHPI+ C=C+C § Check if external 
GONC CKHPIx Not external...don’t handle 
*c=0) =—§ HPIL? 
RTNYES Yes...return, set carry 

CKHPIx RTNSXM Carry clear, XM=1 

ke 

ke 


hCPYxn GOTO hCPYXN 
x. 


zk. 
hCPY50 


* Copy fron loop to nain 
k 


* ALU] is first 8 chars, RO[3:0] is last 2 chars 
* D[A] is device of source 
* 


DSRC Shift device back to nornal 

GOSUBL =FINDFL Save first 8, START, FINDFx 
hHCPYS? = RSTK=C Save (possible) error nessage 
x 


* Found the file (A[3:0] is start, C[3:0] is length, D1->type) 
* (If this is LOOP, then nay have a bad name, but rest is 0K) 
k 


GOSUB Cslc5 Save length in [9:5] 

C=A ) Start in [A] 

GOSUB Csic5 Start to [9:5], length to [14:10] 
R4=C 


C=R2 C[A] is destination type 
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1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
134? 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
135? 


1368 
1369 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
136? 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 


F57BC 
FS7BE 
F57C4 


F57C3 
F57C6 
F57C9 
F57CB 
FS7CD 
F57D0 
F57D3 
F57D05 


F57D9 
F570B 
F57DE 
F57E0 


F57E4 
F57E4 
F57E8 


FS7EB 
FO7EF 
FS7F4 


F57F? 


FS7F9 
F57FB 


FO?FE 
F5801 


F5805 
F5808 
F580B 
FS80E 
F5811 
F5814 


F5818 


D? 
817 
07 


502 
880 
71 
DO 
102 
300 
20 
6143 


20 
300 
20 
634E 


7204 
401 


7673 
20 
3300 
00 
02 


D8 
1014 


135 
1574 


A4D 
114 
ACO 
B44 
BCC 
O40 


104 
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D=C A 
DSRC 


C=RSTK 
k 


Rotate device into correct place! 
Restore (possible) error nessage 


* Now R4[14:10] is length, R4[9:5] is start, 


* D1 points to file type 
k 
GONC hCPYS1 


?PH 0 
GOYES hCPY5a 
A=0 A 

R2=A 

LC(1)  =eNFILE 
P= =eTAPE 


GOTO 8 hCPYeL 


xe 
x. 


hCPYS! P= 0 
LC(1) =elSIZE 
hCPY5t P= =eTAPE 


hnCPY¥5a GOTO hCPYer 
x 


xe 


hCPY51 
GOSUB GETTYP 


GOC hCPY52 
k 


Found it! 

NOT "Device node error, tape"? 
No...error exit! 

Set ALA]=0 (# left to read) 

Set R2[A]=0 

"File not found" 

Set P value for "File not found" 
Go clean up (or exit) 


Size error! 


Read file type & get type entry 
OK...type in A[A) 


* Unrecognized type...error 
k 


* Clean up the loop (check for LOOP or non-MS source) 
X 


hCPYt- GOSUB hCPYel 
hCPYtp P= 0 
LC(4) =eF TYPE 


RTNSC 


xe 
x. 


hCPY52 B=A A 
R1=A 

x 

* Now B[S] is position of 


Error...check for copy fron loop 
Guarantee P=0 here 
Tilegal (Unrecognized) type 


Copy file type to B{A] 
Save file type in R1 for CRIF 


file type within entry 


* C[A] points to start of entry 
* 


awowDDwDD@®D 
moon ud wow 
eee 2? 
D+ >) 
mt — 
— 
wAnunn “” 


= 

b> 
" 

»D 


Set D1 to start of entry 
Read the create code for the file 


Convert entry # to base zero 


ACSJ="1110" (binary) 

ALS] 1s new security code (not 
secure!) 

Save security code in R4[S] 
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1378 

1379 

1380 

1381 

1382 F581B 1F0O 
000 

1383 F5822 94A 

1384 F5825 17 

1385 F582? R46 

1386 F582A 560 

1387 F582D 6ARO 

1388 

1389 

1390 F5831 R46 

1391 F5834 4C0 

1392 F5837 A46 

1393 F583A 454 

1394 

1395 F583D 6820 

1396 

1397 

1398 

1399 

1400 

1401 F5841 23 

1402 F5843 1000 

1403 F584? AF2 

1404 F584A 7000 

1405 F584E BF2 

1406 F5851 BF2 

1407 F5854 10A 

1408 

1409 

1410 

1411 F585? De 

1412 F5859 97A 

1413 FS85C C? 

1414 FS85E 7303 

1415 F5862 667F 

1416 

1417 

1418 F5866 

1419 

1420 

1421 

1422 F5866 AFO 

1423 F5869 173 

1424 F586C 15B3 

1425 F5870 103 

1426 F5873 1C3 

1427 F5876 15B3 

1428 F587A 102 

1429 F587D SAS 

1430 

1431 
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* ee 


xe 
ke 


hCPYS j 


0 0 0 Ot 


hCPY53 


* Check 
x 


hCPY5% 


ke 
hCPY54 
x 


* TITAN 
x 


hCPY5b 
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C{[S] is create code for this file. 
B[A} is file type for this file. 


D1=(5) (=SCRICH)+56 Point to inplenentation bytes 


7C=0)=—§ 
GOYES hCPYS56 
C=C+C § 
GONC hCPYS) 
GOTO hCPY5- 
C=C+C § 
GOC hCPY53 
C=C+C § 
GOC hCPY55 
GOTO hCPY54 


LIF1 file type 


P= 

DI=(2) ( 
C=0 W 
GOSUB = 
CSL W 
CSL W 
R2=C 


GETBYT 


if "reasonable" size 


C=0 A 
*C=0 OW 
GOYES hCPY5- 
GOSUB hCPYel 
GOTO §=hCPYS! 


data file type 


A=0 W 
Di=D1+ 4 
R=DAT1 4 
R3=A 

D1i=D1- 4 
A=DAT1 4 
R2=A 


GONC hCPY5- 


=SCRTCH)+32 


Check if mainfrane type 
Yes...set it up 

Check if external... 
..-no...keep checking 
..-yes...Wlll be set up in CRIF 


Check if create type is LIF1 
Yes...set it up 

Check if type is 41C data file 
Yes...set 1t up 

Type is TITAN data file... 
-..set it up 


Length field 
Read 4 bytes @ length 


Convert to BYTES! 
Store in R2 


Clear low end! 

Bigger than 1f bytes? 
No...do it! 

Check for nore bytes to read 
Yes...$1ze error 


Clear high nibble first 
Point to record length 
Read record length... 
...and save in R3 

Point back to # of records 
Read # of records 

Put into R2 

Go always...finish it up 
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1432 F5880 AFO 
1433 F5883 103 


1434 
1435 
1436 
1437 
1438 


F5886 
F5889 
FS588B 
F588) 
F5890 


148 
FO 
FO 
171 
14B 


POLL HANDLERS <840106.0805> Tue Jan 17, 1984 12:12 pn 


hCPY55 + A=0 4) 


Ver, 3.39/Rev. 2306 DATA FILE HANDLERS Page 29 
R3=A R3[4] nust be zero for CRIF 
R=DAT1 B Read high byte of size 
ASL A 
ASL A 
Di=D1+ 2 
A=DAT1 B Read low byte of size 
GONC hCPYSb Go always 


1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
144? 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1465 
1456 
145? 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
146? 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 


F5893 


F5896 


F5896 
F5899 
F589C 
F589E 
FS8A1 
F584 
F58A7 
FS58AB 
FS8AD 
F58B0 
FS58B2 
F586 
F58B8 


F S8BB 
FS8BE 
F58C1 


F58C3 
FS8C6 
F58CA 
FS58CD 
F582 
FS8D3 
F58D6 


F58D8 
F 5808 


56E 


13? 
172 
DA 
AF2 
14F 
131 
1585 
25 
BiA 
20 
3150 
25 
A1R 


102 
30 
i) 


11C 
7093 
BF2 
BF2 
R76 
996 
88 


7353 


This is a mainfrane create code! 


Di<=start of inplenentation bytes 


* First read in offset to data fron @ C[A]+3 (set up by FTYPFH) 
x 


x 


CDIEX 

D1=Di+ 3 

A=C R Start of inplenentation bytes 
C=0 W 

C=DAT1 8B Offset to data in C[W] 

D1=A 

A=DAT1 6 Read in the file length 

P= 5 

A=A-C WP Subtract off offset to data 
P= 0 

LC(2) =1FLENh Length of file length field 
P= 5 

A=A+C WP (Add this back to length) 


* Nou A[5:0] contains the length of data portion of the file 
* 


ee we ee ee Oe 


Check 


R2=A Save in Re for future use... 
7AHO OP 
GOYES hCPY5% Error...$1ze 


if this size 1s reasonable... 


C=R4 

GOSUB Csrc10 Get length into C{A] 

CSL W 

CSL W Convert to bytes... 

C=C+C wW ...Non to nibbles... 

"AsC OP ... check af bigger (corrupt!!!) 


GOYES hCPY5z Error...file size 


Passed reasonability test 


R2 contains # of nibbles for copy code 0, # of logical 
records for other codes; R3 contains the record $size in 


bytes 


hCPY5- 


(If create code is 8, none of these are defined yet) 


GOSUB GETDS Read source info back 
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1487 & 
1488 * D[A] is destination info, A[W],RO[3:0] is dest. filenane, 
‘ 1489 * B[A] is the file type nunber, B[S] 1s the security nibble, 
1490 * R2 contains # of nibbles/bytes/records as per file type, 
1491 * R3 is record size in bytes 
1492 * D1 is destroyed (Points at device info now) 
1493 k 
1494 FS58DC 8E00 GOSUBL =BLANKC 
00 

1495 FS8E2 37B6 LCASC \syek\ Check if keys 
5697 
37 

1496 FS8EC 976 TREC OW 

1497 FS8EF 21 GOYES hCPY5x Not keys...0K 

1498 F58F1 34CO LC(5) =f KEY Is the type "KEYS"? 

2E0 

1499 FS8F8 8A 7B=C OA 

1500 FS8FB 60 GOYES hCPY5x Yes...OK 
: 1501 & 

4 1502 : Error...file nare is keys, type is NOT keys 

1503 

1504 F58FD 6DEE GOTO hCPYt- Error...Illegal File Type 

1505 he 

1506 a 

1507 F5901 hCPY5x 

1508 & 

1509 * Save R2, R3(A) (R3[15:5]=0), R4[15:5] in FUNCRx RAM 

1510 ; Save R1(A) (type) in FUNCDO 

1511 

1512 F5901 7793 GOSUB DO=FRO Set DO=(5) =FUNCRO 

1513 F5905 11A C=R2 

1514 F5908 1547 DATO=C W Save R2 in FUNCRO 

1515 F590C 16F DO=D0+ 16 

1516 F59OF 123 AR3EX 

451? F5912 11C C=R4 

1518 F5915 D6 C=A A Save R4[15:5], R3[A]} in FUNCR1 

1519 F§917 113 A=R3 Restore A[W] (Nane) 

1520 FS591A 1547 DATO=C W (FUNCR1) 

1521 FS91E 16F DO=20+ 16 (FUNCDO) 

1522 F5921 119 C=R1 

1523 F5924 144 DATO=C A Save R1{A} in FUNCDO 

1524 & 

1525 * Now ready to call FINDF:A[W] is filename, D[S],[B] is device 

1626 & 

1527 F5927 8F0O GOSBVL =FINDF Find the file in main RAN 

0 

1528 * 

1529 * Now restore R2,R3(A),R4[15:5),R1[A] WITHOUT changing carry 

15H & 

1531 FS592E 146 C=DATO A (FUNCDO) 

1532 F5931 103 R1=C Restore R1[A] (type) 

1533 F5934 1900 DO=(2) =FUNCR1 (DO=D0- 16 clears carry) 

1534 F5938 1567 C=DATO W Read R4[15:5],R3[A] (FUNCR1) 

1535 F593C 10C R4=C Restore R4[{15:5] 


1536 FS93F AFO A=0 W 
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153? 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
15593 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 


1571 
1572 
1573 
1574 
1575 
1576 
167? 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
159 


F5942 
F5944 
F5947 
F594B 
FS94F 


F5952 


F5955 
F5959 


F595D 


F595D 


F5961 
F5§963 
F596? 
F596A 
F596D 
F596F 
F5973 


F597—A 
F597E 
F5981 
F5983 
F§985 
F5989 
F598D 
FO98F 


F5992 


F5996 


F599A 


POLL HANDLERS <840106.0805> Tue Jan 17, 1984 12:12 pn 


2306 DATA FILE HANDLERS Page 31 
BA A=C AR A[W] is now R3 value 
103 R3=A 
1900 DO=(2) jo (DO=D0- 16 clears carry) 
1567 C=DATO 
10A R2=C Restore R2{W] 


4% 


702 
6E34 


7302 


07 
7533 
144 
164 
09 
15€2 
8FOO 
000 
7E13 
142 
DE 
06 
1900 
‘Ee 
OR 
571 


1583 


7BC1 


1BOO 


* Now check if the file already exists in main RAN 
* 


GOC hCPY5y Not found...O0K 

k 

* File exists now...error 

k 
GOSUB hCPYel Read any remaining data 
GOTO  hRNNFx File exists error 

k_ 

k 

hCPYSy 

k 


* Read back the destination info fron SAVSTK 
* 


GOSUB GETDST 


k 
* Create the destination file nou 
k 
* First save 1 RSTK level 1m FUNCRO (DO now at SCRICH), 
: status bits in FUNCRO+5 
C=RSTK 
GOSUB DO=FRO 
DATO=C A Save stack level in FUNCRO 
DO=D0+ 5 
C=ST Save status bits... 
DATO=C 3 ...hirite out status bits 
GOSBYL =CRIF Create the file in RAN 
GOSUB DO=FRO 
R=DATO A Restore stack level fron FUNCD1 
ACEX A Save error code in A[A] 
RSTK=C 
DO=(2) (=FUNCRO)+5  (DO=D045 will destroy carry) 
C=DATO 3 Read in old status bits.. 
ST=C ...restore status bits 
GONC hCPY5d No error if no carry 


: Save the error code in (FUNCRO)+5 for now 
DATO=A 4 Write out 4 nibs of error code 
: Now clean up the loop (if needed) 
: GOSUB hCPYel 
: Recall the error # from (FUNCRO)+5 


DO=(5) (=FUNCRO)+5 
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1594 
+592 
1693 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1007 
1008 
1609 


1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
162? 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 


F59A1 
F59A5 


F59A7 
F59AA 
FS9AC 
F59B0 
FS9B2 


FS9B5 
F59B8 
F598C 


F59C3 
F59C7 


FS9CR 


FS9C0 
F901 
F59D3 
F5906 
F59D8 
FS9DR 
FS3DD 
FS9DF 
F59E1 
F59E4 
FS9E6 
FS9E9 
F59EB 
FSSEE 
FSSF1 


FS9F3 
FSSF6 
FSSF9 
FS9FB 
FOSFF 
F5R02 
F5RO5 


000 
1563 
02 


111 


3141 
CA 
133 


WiC 
1554 
1F0O 


1574 
131 


112 


8ODF 
D2 
881 


H8 
EA 


EA 
822 
25 
A8O 
8iC 


821 
832 
60 
7EBR 
102 
843 
7052 
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RTNSC 


me 
x 
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Error! (Set up in C[3:0]) 


* Nou D[S] 1s device code, D[X] 1s device address, R1 is start 
* of file header in menory, D1 points to start of data in file 
x 


hCPY5d = A=R1 
C=0 
LC (2) 
R=A+C 
ADIEX 
x 


A 
=oF LAGh 
A 


Offset to flags... 


Save start of data in ALA] 


* Now D1 points to the flag nibble 
* 


C=R4 


DATI=C S$ 
01=(5) (=STMTR1)+#14 Go to create code 


C=DAT1 S 


D1=A 


Write out the protection nibble 


Read into C[S} 
Restore start of data 


* Now get data length back fron R2[A] (nibbles) 
x 


A=R2 


* ALA] is now data length in nibbles, C{S] is create code 
x 


P=C 
C=0 
?PH 
GOYES 
p= 
C(1) 
A=A-C 

hCPY5, P= 
LC(1) 
A=A-C 
SB=0 
p= 
A=0 
ASRB 
p= 

x 

* ALA] is now 

x 


xM=0 
*$B=0 
GOYES 
GOSUB 
hCPY58 = R2=A 
ST=0 
GOSUB 


15 

a 

1 

hCPY5, 

0 
(=oDAsod)-5 


1FLENh 


Qo ww mreow 


data length in 


hCPYS8 
hCPYXN 


=sDEST 
Rdinfo 


Clear high nibbles 
TITAN data file? 
No...continue 


Rrount of offset 


Length of length field 

Clear flag for extra nibble 
Clear nibble... 

..-for bit shift 

bytes, SB is 1 if extra nibble 
Convert XM to SB value 

Set XM bit 

Save back in R2 for now 


Get source info back (addr) 
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1644 
1645 
1646 
1647 
1648 
1649 


1650 
1651 
1652 
1653 
1654 
1655 


1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 


1672 
1673 
1674 
1675 
1676 
167? 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
168? 
1688 
1689 
1690 
1691 
1692 
1693 
1634 
1695 


FSAOS 
FSAOC 
FS5A10 
F5A13 
FSA15 
F5A18 


FSAIE 
F5A22 


F5A25 
F5A2B 


FSAZE 
FSA31 
F5A33 
F5A37 
F5A39 
FSA3B 


F5A42 
F5A46 
F5R49 
FSA4B 
FSA4E 
F5A51 
F5R54 
FSAS? 


FSASA 


F5ASD 
F5R60 
F5A63 
F5R66 


F5A69 


FSA6C 
FSRGE 


817 
751A 
870 
Bi 
114 
8E00 
oO 
7002 
473 


8£00 
oO 
4€2 


A46 
480 
R46 
450 


WB 


CA 
131 
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x 


DSRC 

GOSUB Getnbx 

?ST=1  =sLoop? 
GOYES hCPY5F 

R=R4 

GOSUBL =ASRC5 


GOSUB Seeka 
GOC hCPYER 


* How at the correct record.. 
k 


* First 


* Type: 


ee ee ee 


hCPY5f 


x. 
xe 


hCPYER 


ke 
xe 


hCPY58& 


& 
* TITAN 
x 


* 
hHCPY59 


GOSUBL =DdtRd 
GOC hCPYER 
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Rotate address into D[X] 

Get mailbox address back 

Ts this LOOP or non-MS device? 
Yes...skip SEEKA, DDT 

Get starting address of file 


Seek that record 
Error 


.read the record, check status 


Read tape 


set D1 to correct location: 


8 - Start of header 
4 - Start of header 
2 - Start of header 
1 - Start of header 
0 ~ Start of header 


) =oIMPLh 
| 
A 
(5) (=STMTR1 3414 


C=DAT1 S$ 
7C=0 = § 
GOYES hCPY59 
C=C+€ § 
GONC = hCPY58& 
Di=Di- 9 
C=DAT1 B 
GONC = hCPY59 


GOC hCPYES 
C=C+l § 

GOC hCPYS9 
C=C+C § 

COC hCPY59 
data file 


LC(1) (=oDAsod)-5 


A=A+C A 
BI=R 


+ 
+ 
+ 
+ 
+ 


oINPLh + osod (fron POLL) 

oIMPLh (LIF1 file) 

oINPLh (41C data file) 
oINPLh + 8 (TITAN data file) 
oINPLh (BASIC, KEYS, etc) 


Start of file header in nenory 


Skip first part of header 
Create code... 


...anto C{S$] 
Nainfrarie? 

Yes... 

Inplenentation (OEN)? 
No... 

Point to offset field 
Read it 

Go always 


Go always...purge the file, error 


ASCII file? 
Yes... 

41C data file’ 
Yes... 


Offset to start of data - link 


ALA] points to start of data area 
Point D1 to start of data area 
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1696 
1697 
1638 
1699 


1700 
1701 
1202 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 


1714 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 


1720 
1721 


1722 
1723 
1724 
1725 
1726 
172? 
1728 
1729 
1730 
1731 
1732 


1733 
1734 
1735 
1736 


1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 


F5A71 
F5R77 


F5A7—A 
F5A7D 
F5A80 
F5A82 


F5A86 
F5A88 


FSA8E 
F5A91 
F5A94 
FSA96 


F5A9A 
F5ASC 
FSASE 
FSARO 


FS5AR6 
FSARS 


F 5AAF 
FSAB2 
F5AB6 
FSABS 


F5ABB 
FSABD 
FSABF 
F5AC3 


F5AC9 
FSACC 
F5ACF 
F5AD1 


FSAD7 
F5ADB 


FSADF 
FSRE2 


8E£00 
4A6 


112 
8A8 
11 

7F 81 


D6 
8E00 


435 
831 
22 
7871 


D2 
£6 
DA 
8E00 


4B3 
8E0O 


423 
1500 
860 
22 


20 
DO 
7450 
8E00 
00 
400 
96B 
80 
8E00 
00 
6801 


7941 
57F 
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* Set terrinate modes to none before copy 
x 


GOSUBL 
hCPYES GOC 
x 
* Now ready to 
k 


A=R2 
7A=0 
GOYES 
GOSUB 


C=R 
GOSUBL 


COC 

?XN=0 
GOYES 
GOSUB 


hCPY5z 


C=0 
C=C+1 
A=C 
GOSUBL 


GOC 
GOSUBL 


GOC 
DAT1=C 
?S$T=0 
GOYES 


hCPY5+ 


x 


=CLHODE 
HCPYEL 


copy the data 


A 
hCPY5z 
hCPY5s 


A 
=READSU 


hCPYEL 


hCPYS+ 
hCPY5s 


A 
A 
A 
=PUTE 


hCPYEL 
=GETD 


HCPYEL 
1 
=sLoop? 
hCPY52 


Clear terminate nodes 
Error clearing nodes 
area of the file 


Read back file length fron R2 

Is the length zero? 

Yes...don’t call RERDSU (sends SDA) 
Set up send data/set frame count 


...linit 1s A[A] bytes 
Read that nany bytes to @ 01 


Error during read 

Need 1 wore nibble? 
No...continue 

Set up send data/set frame count 


Read 1 byte to get last nibble 
Needed for hCPYel (if error) 


Error 
Read the data byte (nibble) 


Error 

Write the one nibble out to RAM 
Is this a nass storage transfer? 
Yes...go on 


* For hCPYel to return, P nust be zero! 
k 


p= 

A=0 
GOSUB 
GOSUBL 


COC 
*D=0 
GOYES 
GOSUBL 


hCPYSn GOTO 
ke 


x 


hCPY51 GOSUB 
GONC 


hCPYEL 
x 


0 


A 
hCPYet 
=GETDev 


hCP YS 
B 

hCPYSn 
=UTLEND 


hCPY51 


Endtap 
hCPY5r 


A[A]=0 (have read all bytes) 
No...read the rest of the data 
An I controller? 


No...skip cleanup 

Is this "LOOP"? 
Yes...skip cleanup 
Yes...clean up the loop 


Go check error, etc 


Clean up tape business, Loop 
no error...continue 


* Entry to purge mainfrane file, then hCPYeL 
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1745 x 
1746 * First save ALA], P, C[O] in R3 
1747 x 
1748 FSAE2 816 CSRC C{S] 1s C[0} 
1749 FSAES 80FE CPEX 14 C{14] is P 
1750 FSAES D6 C=R A 
1751 FSAEB 108 R3=C 
1752 FSAEE 7241 é GOSUB GETDST Read destination info 
1753 
1754 * Now DES] is correct for this file, A[W] is filenane 
1755 x 
1756 FSAF2 119 C=R1 Get file header start 
1757 FSAFS 135 01=C 
1758 FSAF8 17F 01=01+ 16 Position to file type 
1759 FSAFB D2 C=0 A 
1760 FSAFD 1503 DATI=C 4 Nake sure type is not LEX 
1761 F5B01 1CF D1=D1- 16 Set D1 back at start of file 
1762 F5B04 8FOO GOSBVL =PRGFNF Purge the file (partial) file 
000 
1763 FSBOB 11B C=R3 
1764 FSBOE DAR A=C A 
1765 F5B10 80DE P=C 14 
1766 FSB14 812 CSLC 
1767 F5B17 hCPYeL 
1768 > 
1769 * Entry for P, C[O] = error message, R2[A] 1s # to have been 
1770 * read, A[R] is number NOT read yet of R2 count, R4(14:10] 1s 
1771 * nunber of sectors to be read (total) 
1772 x 
1773 F5B17 80C1 C=P 1 
1774 F5B1B 8E00 GOSUBL =TSAY2C Save error stuff in FUNCR1 
00 
1775 x 
1776 * Set up R4[14:10] to reflect the nunber of sectors LEFT, 
1777 * ALA] the number of bytes within the current sector, XM=1 if 
1778 * R2(A] 1s one byte short of real count 
1779 x 
1780 F5B21 D8 B=A R Save A[A] in B[A] 
1781 FSB23 112 A=R2 Get count to A[RA] 
1782 F5B26 EO R=A-B A Now ALA] is # actually read 
1783 F5B28 831 ?XM=0 
1784 F5B2B 40 GOYES hCPYed No extra byte 
1785 FOBeD £4 R=A+1 A Extra byte! 
1786 FSB2F D8 hCPYeO B=A A Save count read in B[A] 
178? F5B31 F4 ASR R 
1788 F5B33 F4 ASR A Now ALA] as # sectors 
1789 F5B35 11C C=R4 
1790 FSB38 7821 GOSUB Csrc10 
1791 FSB3C Ee C=C-A A 
1792 FSB3E 431 GOC hCPYex 
1793 F5B41 DO R=0 A 
1794 F5B43 B60 A=A-B B Now ALA] is # bytes to read 
1795 F5B46 8AC 7ARO ORR Is it non-zero? 
1796 FSB49 50 GOYES hCPYe+ Yes...QK as 1s 
1797 FSB4B B24 A=A+1 XS No...full sector 
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1798 FSB4E 7320 
1799 FSB52 8&0 
0 
1800 F5B58 8001 
1801 FSB5C 890 
1802 FSB5F 00 
1803 F5B61 62CA 
1804 
1805 
1806 F5865 7(B8 
1807 F5B69 DO 
1808 FSB6B8 B24 
1809 FSB6E 11C 
1810 F5B71 72FO 
1811 
1812 
1813 
1814 F5B875 860 
1815 F5B78 44 
1816 F5B7A CE 
1817 F5B7C 7A 
1818 FSB80 10C 
1819 F5B83 483 
1820 F5B86 7B98 
1821 F5B8A 7780 
1822 
1823 FS5B8E D6 
1824 F5B90 8E00 
00 
1825 F5B96 452 
1826 F5B99 8A8 
1827 F589C OC 
1828 FSB9E 8E00 
00 
1829 FSBA4 582 
1830 FSBA7 880 
1831 FSBAR 21 
1832 F5BAC 8E00 
00 
1833 FSBB2 890 
1834 F58B5 5D 
1835 F5BB? 8% 
1836 FS5BBA OD 
1837 FS5BBC 20 
1838 F5BBE 8&00 
00 
1839 F5BC4 500 
1840 FSBC? 8000 
00 
1841 
1842 
1843 FSBCD CC 
1844 FOBCF 4CE 
1845 F5BD2 OD 
1846 FSBD4 S8F 


hCPYe+ 
hCPYex 


hCPYeR 
a 
ke 


hCPYel 
hCPYe- 


k 
* Check 
k 


hCPYe. 


hCPYe4 
k 


hCPYe2 


hCPYe4 


xe 
x 


hCPYe3 


GOSUB 
GOSUBL 


P=C 
?P= 
RTNYES 
GOTO 


GOSUB 
A=0 
A=A+1 
C=R4 
GOSUB 


if not 


?S$T=0 
GOYES 
C=C-1 
GOSUB 
R4=C 
GOC 
GOSUB 
GOSUB 


C=A 
GOSUBL 


GOC 
7A=0 
GOYES 
GOSUBL 


GONC 
?P#H 
GOYES 
GOSUBL 


?P= 
GOYES 
2P= 
GOYES 
p= 
GOSUBL 


RTNNC 
GOLONG 


A=A-1 
GOC 
P=P-1 
GONC 


hCPYe. 
=TRES2C 


1 
0 


hCPYer 
Getnbx 
A 

XS 


Csrci0 
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Read then 
Restore the error stuff 


If P=0, return (not error) 


Set DO back to the mailbox 
Set A[A}=#100 (256) 


Get # of sectors into C[A] 


loop or non-MS device...if so, return 


=sLoop? 
hCPYe4 
A 
Cslc10 


hCPYe4 
Getnbx 
hCPY5s 


A 
=PUTE 


hCPYe4 
A 
hCPYe- 
=GETX 


hCPYe3 
0 
hCPYe4 
=FRANE~ 


=pTERM 
hCPY¥e1 
=pEQT 
hCPYet 
0 
=GETDev 


=TER/LF 


A 
hCPYe4 


hCPYe3 


Set P=0, return 
Decrenent by 1 
Put it back 


If carry, done with reads 
Get the mailbox back 
Set up send data/set frane count 


Get count into C[A] (frare count) 
Send it to start conversation 


Error if carry 


Read the data 


Got a data byte...process it 
Is this a E0T? 

Definitely not...error! 
Check for EOT 


Is it terminator natch? (possible) 
Yes...restart it 

Is it specifically EOT? 
Yes...restart it 

Corinon exit code 

Check if device or controller 


If controller:return, carry clear 
Terminate on LF/end frane 


Error (too many) 
Decrenent # of bytes 
More yet 
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1847 FSBD? 
1848 
1849 
1850 FSBDA 


1851 
1852 
1853 
1854 
1855 
1856 FSBEO 
1857 FSBE3 
1858 FSBE6 
1859 FSBE8 
1860 F5BEA 
1861 FSBEE 
1862 FSBFO 
1863 FSBF3 
1864 FSBF5 
1865 FOBF9 


1866 FSBFF 
1867 F5CO2 
1868 F5CO4 


1869 FSCOB 
1870 FSCOE 
1871 F5C114 
1872 

1873 

1874 FSC15 
1875 FSC1? 
1876 FSC1A 


1877 FSC20 
1878 FS5C23 
1879 F5C26 
1880 
18381 
1882 F5C28 


1883 
1884 
1885 FSC2E 


1886 
1887 
1888 F5C34 
1889 F5C38 


1890 FSC3F 
1891 FS5C42 
1892 F5C44 
1893 F548 
1894 F5C4B 


41C 


8CO00 
00 


111 
102 
20 
4 
3101 
CA 
131 
DO 
15B3 
3380 
2E 
8A6 
FO 
8FOO 
000 
11A 
109 
6D6B 


25 
300 
8EOO 
00 
500 
300 
03 


8000 
00 


8000 
00 


7E10 
1 B00 
000 
97C 
60 

1627 
817 
B4? 
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a 
ae 
=Cslc10 


0 2 Fe 


hCPY51 


hCPY5e 
x 

ke 
=hCPY5s 


xe 
Xs 


=Endtap 


ke 
=Seeka 


x 
ke 


GETDST 


GETDS1 


coc hCPYe2 


GOLONG =CSLC10 


R=R1 
R2=A 
P= 
C=0 
LC(2) 
A=R+C 
D1=A 
A=0 A 
R=DAT1 4 
LC(4) =F LEX 


oF TYPh 


DUDS 


PARC OA 
GOYES hCPYSe 
GOSBVL =LEXBF+ 


C=R2 

R1=C 

GOTO = Rtnx® 
P= 5 


LC(1) =nSDACS 
GOSUBL =GETDev 


RTNNC 
LC(1)  =nSFC@5 
RTNCC 


GOLONG =ENDTAP 


GOLONG =SEEKA 


GOSUB Rdinfd 
DO=(5) =SCRICH 


7AHO OW 
GOYES GETDS1 
R=DATO W 

BSR 

D=f41 § 
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Done with this one...go on 


Check if this is a lex file...if so, add it to LEX tables 


Get back start of file 
Save in R2, in case call LEXBF+ 


Clear the high nibbles first 
Offset of TYPE in header 


Clear high nibble 
LEX file type 


Is this LEX? 
No...exit 
Yes...update the LEX buffers 


Restore start of file from R2 
Clear XM for sure to finish 


Assure controller node... 
Sets carry 1f device 


(controller. ..done) 
Device rode...set frane count 
Force carry clear 


Get destination information first 


Filenane defined? 

Yes...check device type 
No...read source nane 

Rotate device into D[S] 

Check 1f device 1s specified... 
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1895 FS5SC4E 400 RTNC ...no...returmn with nainfrane 
1896 F5C51 A4F D=D-1 $ Specified...restore it 
1897 F5C54 03 RTNCC 
1898 k- 

1899 t- 
1900 F5C56 853 Rdinfd ST=1 =sDEST 
1901 F5C59 8C0O Rdinfo GOLONG =RDINFO 
00 
1902 a. 
1903 t 
1904 FSCSF D2 = Gtezer C=O A Clear high nibs of C before call 
1905 F5C61 8C0O Gt2byt GOLONG =GT2BYT 
00 
1906 a 
1907 k- 
1908 F5C67 8COO Csrc1O0 GOLONG =CSRC10 
00 
1909 he 
1910 Re 
1911 FSC6D 8C0O =Findf+ GOLONG =FINDF+ 
oo 
1912 a 
1913 t- 
1914 F5C73 20 9 =DOdlPur P= =PWrite 
1915 F5C75 7410 GOSUB Odl 
1916 F5C79 400 RTNC 
1917 F5C7C 8E0O GOSUBL =TSTAT 
00 
1918 F5C82 400 RTNC 
1919 F5C85 8000 Atyl GOLONG =MTYL 
00 
1920 t 
1921 a 
1922 FSC8B 20 ODdiWrt P= =Write 
1923 F5C8D 8C00 Ddl GOLONG =DDL 
00 
1924 re 
1925 ke 
1926 F5C93 1FOO =D1=S20 D1=(5) (=SCRTICH)+20 
000 
1927 FS5C9AR 01 RIN 
1928 r. 
1929 xe 
1930 F5C9C 1B00 =DO=FRO DO=(5) =FUNCRO 
000 
1931 F5CA3 01 RIN 
1932 JOO III IOI IOI IC ICU IO ISI IO TOC I IT 
1933 JOO IDOI GIGI IOC TOC OIE TOK 
1934 ax 
1935 . Nane: hPURGE - PURGE statenent POLL handler (HPIL) 
1936 
1937 *k Category: POLL 
1938 xk 
1939 ** Purpose: 
1940 ak Handle the PURGE staterent POLL if HPIL device 
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1941 ae 
1942 *% Entry: 
1943 aX Nane in A[W], RO[3:0] 
1944 ak Device in D[S]}, D[X] 
1945 ak P=0 , HEXNODE 
1946 ax Destination info on SAVSTK (under POLLSV) 
1947 ax 
1948 ak Exit: 
1949 aK P=0 
1950 ax Carry set: Error (C[3:0} 1s error nunber) 
1951 RK Carry clear: 
1952 a XM=0: handled...FIB file start zeroed, file purged 
1953 kk ST[8]=0 (Current file not purged) 
1954 ak XMN=1: not handled (not HPIL/not Filbert) 
1955 ax SAVSTK unchanged fron entry 
1956 ax 
1957 ** Calls: CKBITL, FINDF+, DATST+, SAVDIR, CHKSEC, fPROT,D1=S20, 
1958 ak hPUTDR, ENDTAP, 1/OFND 
1959 ax 
1960 RR OUGES «iia Xs 
1961 *k Inclusive: A-D,RO-R3,D0,01,P,ST[8,5:0], SCRTCH 
1962 ak 
1963 ** Stk lvls: 6 (FINDF+) 
1964 ax 
1965 ** History: 
1966 ae 
1967 si Date Prograriner Modification 
1968 RK anne ene eee ene enn n nn tern nn nner ener nn nnn eee en 
1969 RK 01/12/83 NZ Updated docunentation 
1970 ak 
1974 JOU IIS III III OOK 
1972 JOU IGIGI SII IOOCISISIISI III GOI IIIT 
1973 FSCA5 D9 = SAVDIR C=B A Save directory pointer in R3 
1974 FS5CA? 108 R3=C 
1975 FSCAR 71BF GETTYP GOSUB Gt2zer Read the file type 
1976 : 
1977 * Now C[A] as the file type...check security! 
1978 x 
1979 FSCRE DA A=C A 
1980 FSCBO 8D0O =F TYPFH GOVLNG =FTYPF# 
ow 
1981 t_ 
1982 a 
1383 FSCB? hPURER 
1984 FSCB7 &C0O sError GOLONG =ERROR Set up error, return ufcarry set 
00 
1985 ae 
1986 a. 
1987 FSCBD =hPURGE 
1988 FSCBD 73CA GOSUB CKBITL 
1989 F5CC1 500 RTNNC If no carry, not (HPIL&Filbert) 
19% z 
1991 * This IS an HPIL purge! 
1992 x 
1993 * Save filenarie in RO, RI, START, CHKMAS, FINDFx 
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1994 
1995 FSCC4 ?5AF 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 


FSCC8 4EE 


FSCCB 820 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 


F5CD1 108A 


FSCD4 
F5CB8 


70CF 
573 


FSCOB 
FSCOF 


7000 
503 


FSCE2 8E00 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2036 
2036 


FSCE8 4EC 


FSCEB 
FSCEE 
FSCF1 
FSCF5 
FSCFS 
FSCFR 
FSCFD 
FSCFF 


AaD 
ACI 
80DF 
891 


893 
03 

F001 
F5D04 


F500? 
F5DOAR 


11B 
816 
AD2 
8CO0 


2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 


F5D10 


F5D10 
F5D14 
F5D16 


7F7F 
D2 
15D3 


x 


» 


ee fe 


» 


x 
x 


hP 


1 Oe 


oil 


ke 
ke 


hP 


re 
ke 


hP 
x 


x 
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GOSUB  Findf+ 

If file not found, carry will be set...Error, not warning! 
GOC  —HPURER 


Save file information in R2 (to clean up FIB) 
R2[6:4] is device address, R2[3:0] 1s data start address 


GOSUBL DATST+ 
R2=C Save it in R2 
Save the directory inforriation in R1 now 


GOSUB SAVDIR 
GONC hPURZO 


Save dir pointer in R3, get type 
If no carry, didn’t find type 


Found it...check if secure (if so, error...can’t purge it) 


Check if secure 
Not secure...ok to purge 


GOSUB CHKSEC 
GONC hPURZO 


This is a secure file...can’t purge it 
* 


URSC GOSUBL =fPROT Protected file error (P, C[0}) 
GOC hPURER Go always (set up error, RINSC) 
HKSEC B=B-1 $ Convert to base zero 
C=B S 
P=C 15 
?p= 1 
RTNYES Secure 
2P= 3 
RTNYES Secure, private 
RTNCC 
UTDR C=R3 
CSRC 
C=0 M Clear all unneeded nibbles 
GOLONG =PUTDR# Write the entry fron SCRICH 
UR20 
OK to purge it 
GOSUB D1=S20 Set Di= (=SCRTICH)+20 
C=0 a 
DATI=C 4 Set file type = 0 
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2046 . 
2047 * Now record # in C[A], directory entry # in C[S] 
2048 x 
2049 FSDIR 73EF GOSUB hPUTDR Write the entry fron SCRICH 
2050 FSDIE 489 Coc hPURER Error during write 
2051 x 
2052 * Nou clean up the tape, etc 
2053 x 
2054 F5D21 730F GOSUB Endtap Clean up tape (rewind, etc) 
2055 F5D25 419 COC hPURER Error during clean-up 
2056 F5D28 848 ST=0 8 Current file uas not purged 
2057 F5D2B 3230 LC(3) =bFIB 
8 
2058 FSD 8E00 GOSUBL =1/OFND 
oO 
2059 F5D36 11A C=R2 
2060 - 
2061 : Entry to purge an FIB entry (01 @ FIB buffer, C is pointer) 
2062 
2063 F5D39 26 =PURFIB P= 6 
2064 F503B 14B FNDENT A=DAT1 B 
2065 FSD3E 968 7A=0 «iB 
2066 F5D41 72 GOYES NOTFND 
2067 F5043 17C 01=D1+ =oFBEGb 
2068 F5D46 177 D1=D1+ (oDBEGb)-(oFBEGb) 
2069 F5D49 1586 A=DAT1 7 
2070 FS5D4D 912 7A=C =P 
2071 F5D50 EO GOYES FIXIT 
2072 FSDS2 17E D1=D1+ (oRECLb)-(oDBEGb) 
2073 FSDSS 17F D1=01+ (oRLENb)-(oRECLb) 
2074 F5D58 17A Di=D1+ (1FIB)-(oRLENb) 
2075 FSDSB SFD GONC  FNDENT 
2076 . 
2077 FSDSE 107 FIXIT 01=D1- (oDBEGb)-(oF BEGb) 
2078 FSD61 AF2 C=0 W 
2079 F5D64 1505 DATI=C 6 
2080 x 
2081 F5D68 20 NOTFND P= 0 
2082 FSD6R 641A GOTO = =RtnxM 
2083 JOTI IIIS IIIS IIIS IIS COI IE I IK 
2084 JOIST III SIGUE TOT CCC IIIT IE TI TIIOK 
2085 = 
2086 4% Nane: hRENAN - HPIL handler for the RENAME POLL 
208? a 
2088 ** Category: POLL 
2089 — ex 
2090 ** Purpose: 
2091 xe HPIL handler for RENAME execute POLL 
2092 aS 
2093 =m 
2094 ** Entry: 
2095 wR A[W] 1s first 8 chars of filenane 
2096 AX RO[3:0] 1s last 2 chars 
2097 ak D[3:0],D[S$] 1s source device infornation 


2098 


*s 


P=) 
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2099 ak Source, destination info on SAVSTK (under POLLSV) 
2100 ak 
2101 ak Exit: 
2102 ak P=0 
2103 aK Carry set: Error...error # in C[{3:0] 
2104 ax Carry clear: 
2105 ak xM=0: handled 
2106 aK XMN=1: not handled 
2107 xx 
2108 kk Calls: CKBITL, hRNMsb, FINDF+, FINDFx, SAVDIR, D1=SCR, hPUTOR, 
2109 ak ENDTAP 
2110 ak 
2111 *k WRNMsb calls RDINFO 
2112 &k 
2113 kk Uses....... 
2114 a Inclusive: A-D,RO,R1,R3,00,01,P,S1[8,5:0],SCRTCH 
2115 
2116 kK Stk Ivls: 6 (FINDF+) 
2117 xk 
2118 ** History: 
2119 aK 
2120 ak Date Progranner Modification 
2121 KR ewww wenn enn n ee wn no-one oo 2-2 oo oe e+ 
2122 ek 06/02/83 NZ Rewrote parts to pack code and 
2123 a share routines with PURGE, SECURE 
2124 ek 01/13/83 NZ Fixed bug in hRNMsb (setup for 
2125 aK FINDFx was incorrect) 
2126 ak Changed very first part of hRENAN 
2127 sa 01/12/83 NZ Updated docunentation 
eG JO OI ICICI TOC IR IR 
2130 JOIST TI 
2131 FSD6E 721A =hRENAN GOSUB CKBITL 
2132 F5D72 500 : RTNNC Not HPIL filbert...return(C, xM=1 
2133 
2134 : Source or destination is HPIL (D[A] 1s address) 
2135 
2136 * A[W] is first 8 chars of source name, RO[3:0] is last 2 char 
2137 * D[X] is HPIt address, D[S] is "8" 
2138 x 
2139 F5D75 7070 GOSUB hRNMsd 
2140 F5D79 70FE : GOSUB Findf+ Find the destination file 
2141 
2142 * If found, error (File exists already) 
2143 & 
2144 FSD7D SAI ; GONC  RNNFx Error...file exists already 
2145 
2146 * Check if error is "file not found" or sonething else 
2147 x 
2148 F5D80 880 ?PH =e TAPE Is it tape error? 
2149 FS5D83 At GOYES hRNMER No..."real" error 
2150 F5D85 80F0 CPEX 0 
2151 FSD89 880 PH =eNFILE Is it "No file" (Not found)? 
2152 FSD8C 20 GOYES hRNAZS 


2153 FSD8E 80FO HRNN25 CPEX 0 (Carry clear=not found) 
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2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 


2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 


2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
e19? 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
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F092 521 GONC = ARNN3O Not found...continue 
F5D95 470 GOC hHRNMER Go aluays - tape error 
x 
x 
F5098 300 hRNMNfx LC(1) =eEFILE File already exists 
F5D9B 20 P= =eTRPE 
F509D 691F HRNMER GOTO Error Set up error code, RTNSC 
xe 
x 
F5DA1 6BF9 WRNNXN GOTO hCPYxn Carry clear, XM=1 
x 
ke 
k 
* Destination file not found...continue 
k 
FSDA5 843 hRNN3O ST=0 =sDEST 
FSDR8 7040 GOSUB hRNMsb 
F5DAC 120 RROEX Put first 8 chars in RO... 
FSDAF 101 R1=A ...and last 2 chars in R1 
FSDB2 8E00 GOSUBL =FINDFx Find the source file 
00 
FSDB8 44E GOC HRNNER Error 
x 
* Now the B[3:0] is the directory pointer for the file 
k 
FSOBB 76EE GOSUB SAVDIR Save directory info, get file type 
: (Ignore carry fron FTYPFH) 
k 
* Now get the destination nare back 
k 
FSDBF 7620 GOSUB hRNMsd Get back the destination info 
x 
* Now A[W] is the first 8 chars, RO is the last 2 chars 
k 
F5DC3 8E00 GOSUBL =D1=SCR Point Di @ SCRICH 
00 
F50C9 1517 DATI=A W Write out first 8 chars of nane 
FSDCD 17F D1=D1+ 16 Position to last 2 chars location 
F5D00 110 A=RO 
FSDD3 1593 DAT1=A 4 Write out last 2 chars of nane 
F5DD7 762F GOSUB hPUTDR Write directory entry fron SCRTICH 
F5D0B 41C GOC hHRNNER Error 
FSDDE 764E GOSUB Endtap End the tape conversation 
FSDE2 4AB GAC hRNNER Error 
FSDE5 6999 GOTO = RtnXMo Return, indicate "handled" 
we 
x. 
FSDE9 853 hRNMsd ST=1 8 =sDEST Set destination first 
FSDEC DB =oRNMsh )«=C=D A 
FSDEE 109 R1=C Save address in R1[A] 
FSDF1 746€ GOSUB Rdinfo 
FODFS AFB C=0 W Save dest device & address in R1 
F5DF8 129 CRIEX Restore old address, save neu 
FSDFB D7? b=C A Restore address to D[A] 
FSDFO 023 RTNCC Carry clear 


Saturn Assenbler 


POLL HANDLERS <840106.0805> Tue Jan 17, 1984 12:12 pn 


Ver. 3.39/Rev. 26 DATA FILE HANDLERS Page 44 
2207 SOI IO IO OOO TTT OTA 
2208 SOI IOI IOUT TOO TTT TTL 
2209 ak 
2210 Narie: hFPROT - File protection handler (HPIL files) 
2211 
2212 xk Category: POLL 
2213 am 
2214 ** Purpose: 

2215 an Execute the SECURE/PRIVATE connand for an HPIL device 
2216 a 

2217 xk Entry: 

2218 ae D[S] is the device type: if HPIL, then A[W) is first 
2219 aa 8 chars of filenane, RO[3:0] is last 2 chars, D[X] is 
2220 ax HPIL address of the device 

2221 aa Destination info on SAVSTK (under POLLSV) 

2222 a (See detail also!) 

2223 xk 

2224 &k Exit: 

2225 a Carry set: Error (C{3:0] is error nunber) 

2226 xR Carry clear: 

e227 bates XMN=1: Not handled (not HPIL/not Filbert) 

2228 ae XM=0: Handled (action taken) 

2229 aK 

2230 &k Calls: CKBITL,FINDF+, SAVDIR, CHKSEC,D1=S20,PT2BYT, 
2231 a hPUTDR, ENDTAP 

2232 ak 

2233 KK Uses.....0- 

2234 - Inclusive: A-D,RO,R1,R3,00,01,P,ST[8,5:0], SCRICH 

2235 

2236 &k Stk lvls: 6 (FINDF+) 

2237 ak 

2238 ** Detail: 

2239 x ST(sPRIVT) set if PRIVATE, clear if SECURE 

2240 ae ST(sUNSEC) set if UNSECURE, clear if SECURE 

2241 aa 

2242 *k History: 

2243 a 

2244 AR Date Progranner Modification 

2245 RKO nnn nen ween neem nn ne nnn nnn een en ee nen ee eee nee ee 
2246 kk 96/02/33 NZ Reworked to share much code with 
2247 an PURGE and RENANE 

2248 kk 02/08/83 NZ Changed to prevent PRIVATE on a 
2249 a secure file (design change) 
2250 kk 01/12/83 NZ Converted to single poll entry 
2251 . 12/20/82 NZ Added routine and docunentation 
oes KRIS IITOOR I ORIO RII OORT TERRK 
2254 JUICE OC OTT TTI TRI TTI 
2255 FSDFF 6080 hSECeR GOTO hSECer Error junp 

2256 ae 

2257 oe 

2258 F5EO3 7D79 =hFPROT GOSUB CKBITL Check 1f this is HPIL & Filbert 
2259 F5EO? 500 : RTNNC No...set XM (not handled) 


2260 
2261 


* This is an HPIL device 
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2262 

2263 FSEOR 7F5E 
2264 FSEOE 40F 
2265 

2266 

2267 

2268 F5E11 709E 
2269 FSE15 460 
2270 F5E18 6609 
2271 

2272 

2273 

2274 

2275 

2276 

2277 FSEIC 7BCE 
2278 F5E20 OB 
2279 FSE22 80FO 
2280 F5E26 OB 
2281 

2282 

2283 FS5E28 860 
2284 F5E2B EO 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 FSE39 860 
2299 F5E3C 80 
2300 

2301 

2302 

2303 FSESE 840 
2304 FSE41 550 
2305 

2306 

2307 F5E44 
2308 

2309 

2310 

2311 F5E44 850 
2312 FSE4? 
2313 

2314 

2315 

2316 F5E4? OB 


F5E2D 851 
F5E30 860 
F5E33 41 
F5E35 6CAE 


F5E39 
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x 


GOSUB Findf+ 
GOC hSECeR 


Save A in RO, ROOR1, START, FINDFx 
Error 
x 


* Have found the file (D1 is at file type) 
x 
GOSUB SAVDIR 
GOC hSEC15 
hSECFt GOTO  hCPYtp 
x. 


Save dir info in R3, check type 
Found type entry...continue 
Not found...error 


ke 
x 

* Found it...C{AJ, B[A] point to the entry, B[S] is position 
* of the type within the entry 

k 


hSEC15 GOSUB CHKSEC Check if secure(leaves P=entry #) 
CSTEX 
CPEX 0 
CSTEX Now ST[3:0] 1s the current pos 
sSEC EQU 0 Bit for SECURE 
sPR EQU 1 Bit for PRIVATE 
?8T=0 = =sPRIVT Is this PRIVATE statenent? 
GOYES hSEC20 No...nHust be secure 


x 
* PRIVATE statenent 
x 


ST=1 — sPR Make it private! 
?ST=0 =sSEC Is it OK (NOT secure)? 
GOYES hSEC30 Yes...urite it back out 
GOTO  hPURSC No...file secure 


ae 
aL 


hSEC20 

x 

* [UN]SECURE statenent (need to determine which it is) 
k 


?$T=0 = =sUNSEC 
GOYES hSEC25 


UNSECURE? 
No...must be SECURE statenent 


* This is the UNSECURE statenent 
x 


ST=0 
GONC 


sSEC 
hSEC30 


Clear the security bit 


Go aluays 
ke 


ae 
hSEC2S 
x 


* This is the SECURE staterient 
x 


ST=1 SEC 


hSEC3O 

k 

* Now ST[3:0] is the desired entry # 
x 


CSTEX 
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2317 FSE49 80FO CPEX 0 Restore ST[3:0] fron P 
2318 F5E4D OB CSTEX 
2319 FSE4F 8OCF C=P 15 Set C[S] to desired security 
2320 , 
2321 : Now C{S] 1s the desired type #, C[A] is the entry address 
2322 
2323 FSES3 135 D1=C 
2324 FS5SES6 17€ D1=D1+ 15 Point to # types 
2325 F5E59 1534 A=DATI S Read it in... 
2326 FSESD 9CA 7Ac=C SS ...1s the type I want available? 
2327 FSE6O 8B GOYES hSECFt No...file type error 
2328 FSE62 1C4 D1=D1- § Position to (type-2) 
2329 FSE65 173 hSEC4O D1=D1+ 4 Go to next type 
2330 FSEG8 A4E C=C-1 §$ Done yet? 
2331 FSE6B 59F GONC hSEC40 No...loop back 
2332 x 
2333 * Nou D1 is at the desired file type 
2334 . 
2335 FSEGE 15F5 C=DAT1 6 Read type into C[5:2} 
2336 FSE72 7DIE GOSUB 01=S20 Point to the type 
2337 F5E76 8E00 GOSUBL =PT2BYT Write the new file type 
00 
2338 i 
2333 * Now get the pointer back fron R3 and write the entry 
2340 x 
2341 FSE7C 718E GOSUB hPUTDR Write the entry fron SCRTCH 
2342 FSE8O 4C0 GOC hSECer Error 
2343 F5E83 71AD GOSUB Endtap Clean up the loop 
2344 FSE87 821 KN=0 Make sure KM=0 (handled) 
2345 F5E8A 500 RTNNC Return if no carry...done 
2346 
2347 * If fall through RTNNC, then error has occurred during ENDTAP 
2348 x 
2349 FSE8D 692E hSECer GOTO Error Return, carry set 


2350 FSE91 END 
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A-MULT Ext * 1353 
ACES=0 Abs 1004290 #F5302 - 454 444 567 
ASLC12 Ext - 1278 
ASLC3 Ext - 334 
ASLC4 Ext - 1173 
ASLC6 Ext - 4193 
ASRC10 Ext - 1204 
ASRC3 Ext - 1040 
ASRC4 Ext - 995 
ASRC5S = Ext - 1012 1649 
BLANKC Ext - 1494 
Basic lbs 0 #00000 - 1182 1183 1188 1199 
CHAIN- Ext - 1214 
CHKASN Ext - 660 
CHKBIT Ext - 1055 1292 
CHKNAS Ext - 259 


=CHKSEC Abs 1006827 HFSCEB - 2023 2014 2277 
=CKBITL Abs 1005444 #F5784 - 1292 115 1988 2131 2258 
=CKHPI+ Abs 1005456 #F5790 - 1295 633 

=CKHPIL Abs 1005453 HF578D - 1294 253 

CKHPIx Abs 1005467 #F579B - 1299 1293 1296 
CLMODE Ext =, O9e 

CRIF Ext - 1570 

CRIFOO Abs 1003983 HF51CF - 261 258 

CRIFO1 Abs 1003987 #F51D3 - 264 260 

CRIFOS Abs 1004004 HF51E4 - 272 26? 

CRIFIO Abs 1004053 #F5215 - 300 286 

CRIF20 Abs 1004074 HF52cA - 312 3 

CRIF30 Abs 1004114 HF5252 - 342 8313 

CRIF35 Abs 1004134 #F5266 - 348 346 

CRIF4, Abs 1004049 #F5211 - 297 301 

CRIF40 Abs 1004154 4F527A - 359 297 H9 336 


CSLC10 «Ext - 1850 
CSLCe Ext - 1247 
CSLC3 Ext = 865 
CSiC4—OExt my -a855 

CSUC6 Ext ° <3b2 

CSLC? Ext an TBs 
CSLCO9 Ext - 439 
CSRC10 Ext - 1908 
CSRC3 Ext = 163 

CSRC4— Ext - 343 Fi 
CSRkC5 Ext - 765 936 1244 
CSRC9 Ext - 638 


=Cslc10 Abs 1006554 HF5BDA - 1850 938 1817 

Cslc4 = Abs 1004722 HF54B2 - 855 184 351 

Cslc5 Abs 1004719 HFO4AF - 854 127 763 1013 1319 1321 
Csrc10 Abs 1006695 HF5C67 - 1908 1037 1472 1790 1810 
DO=FIB Ext - 688 

=PO=FRO Abs 1006748 HFSC9C - 1930 1010 1034 1512 1565 1571 
=D1=520 Abs 1006739 #F5C93 - 1926 973 1000 2043 2336 
Di=SCR Ext me “VS? 

DATST+ Rbs 1003939 HF51A3 - 183 2004 

DRTSTR Abs 1003921 #F5191 - 179 134 

DDL Ext = hes 
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Dd) Abs 1006733 #F5C8D - 1923 1915 
=DdlPur Abs 1006707 #F5C73 - 1914 
DdlWrt Abs 1006731 #FS5SC8B - 1922 


DdtRd = Ext - 1655 
ENDTAP Ext - 1882 
ERROR = Ext - 1984 
ERRORX Ext ~ 448 


ERror Abs 1004000 HF51EO - 269 138 256 
=Endtap Abs 1006632 #F5C28 - 1882 136 1059 1740 2054 2194 2343 
=Error Abs 1006775 WF5SCB7 - 1984 1068 2160 2349 

Errorx Abs 1004284 WF52FC - 448 426 432 443 502 552 559 566 


654 
FINDF Ext - 1082 1527 
FINOF+ Ext - 1911 
FINDFL Ext - 928 1313 
FINDFx Ext - 119 2173 


FIXIT Abs 1006942 HFSDSE - 2077 2071 
FNDENT Abs 1006907 HF5D3B - 2064 2075 


FNDNB+ Ext - 1057 
FRANE- Ext - 1832 
FIYPFH Ext - 1980 
FUNCRO Ext - 1539 1575 159%) 19% 
FUNCR1 Ext = “1533 
=Findf+ Abs 1006701 #F5C6D - 1911 1995 2140 2263 
GETBYT Ext 1404 
GETD Ext 1721 


GETDS1 Abs 1006664 #F5(48 - 1893 1891 
GETDST Abs 1006644 HF5C34 - 1888 1486 1557 1752 


GETDev Ext 1732 1838 1876 
GETMBK Ext 682 

GETTYP Abs 1006762 HFSCAR - 1975 947 1348 
GETX Ext - 1828 

GT2BYT Ext - 1905 
=Getnbx Abs 1004581 #F5425 - 682 563 583 1645 1806 1820 
Gt2byt Abs 1006689 HF5(61 - 1905 181 
Gt2zer Abs 1006687 HFSCSF - 1904 1975 
LEXBF+ Ext - 1868 

MNOVEFL Ext ~ 1048 

MT¥L Ext - 1919 

Ntyl Abs 1006725 #F5C85 - 1919 

NEWFI+ Ext - 1027 1286 
NEWFIL Ext - 377 

NOTFND Abs 1006952 #F5068 - 2081 2066 
OUTPTt Ext - 741 

PILVER Ext - 63 

PLOTt Ext - 743 

PRGFMF Ext - 1762 

PRTIS+ Ext - 7§9 

PT2BYT Ext - 2337 
=PURFIB Abs 1006905 #F5D39 - 2063 

PUTDRH Ext - 2036 

PUTE Ext - 1719 1824 
Purite Ext - 1914 

RDINFO Ext - 1904 


RONBIO =Abs 1004371 #F5353 - 561 556 
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READR# 
READSU 
RSTOR+ 
RSTORE 
Rdinfd 
Rdinfo 
Rtnxto 
SAVDIR 
SCRICH 
SEEKA 
SNAPRS 
START 
STBUF + 
STMTRO 
STMTR1 
STUPIO 
STUP20 
STUPBF 
=Seeka 
Start 
TER/LF 
TRES2C 
TSAV2C 
TSAVD1 
TSTAT 
UTLEND 
Utlend 
WRITER 
WRT ADR 
Write 
bFIB 
d0=FIB 
eEF ILE 
eF TYPE 
eF nFND 
eNFILE 
ePIL 
eRANGE 
esySer 
eTAPE 
efSIZE 
FBASIC 
fKEY 
fLEX 
FPROT 
=f TYPFH 
=hCOPYs 
hCPY1O 
hCPY12 
HCP Y22 
hCPY23 
hCPY24 
HCP Y25 
hHCPY28 
WCF YZS 


Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 


1004 252 
1004255 
1006678 
1006681 
1005439 
1006757 


1004436 


1004513 
1004531 
1004471 
1006638 
100458? 


1004561 


2051 
1004593 


57876 
57868 
57864 


1006768 
1004728 
1004 739 
1004 801 
1004826 
1004854 
1004876 
1004911 
1005053 
1005080 
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HF52DC 
HF S2DF 
HF5C56 
#F5(59 
HFS77F 
HFSCAS 


#F 5394 


#F53E1 
HF S3F3 
HF 5367 
HFSC2E 
#F542B 


4F54114 


#0080 3 
#F 5431 


HOE214 
#OE20C 
HOE208 


HF 5CBO 
HF S488 
HF 5403 
HF 5501 
HF551A 
#F 5536 
RF 554( 
HF S56F 
HF OSFD 
#F 5618 


431 
1710 
432 
438 
1900 
1901 
1288 
1973 
1018 
1885 
445 
685 
6H 
780 
273 
657 
663 
642 
1885 
685 
1840 
761 
757 
748 
1917 
1736 
442 
504 
676 
1922 
+3 
688 
2158 
1357 
1083 
1336 
653 
268 
652 
133? 
1342 
13 
13 
13 
2019 
1980 
858 
872 
908 
936 
982 
971 
994 
1054 
1061 


565 


505 
584 
1272 
1643 
458 
2009 
1382 


422 


750 
651 
681 
562 
1650 
117 


1032 
1022 


558 
427 


2057 
454 


2151 


1343 


1184 
1498 
1865 


860 
893 
929 
948 
962 
988 
1064 
1056 


1888 
2202 
1065 
2178 
1402 


498 
778 


255 


1799 
1774 


503 


630 


2148 


1871 
2268 
1889 


548 
1609 


425 


553 


642 


2159 


Tue Jan 17, 19384 


2082 
1926 


1671 


501 


676 


2196 


551 
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hCPY3+ Abs 1005218 WF56A2 - 1170 1251 1268 
hCPY3- Abs 1005212 WF569C - 1165 1228 
hCPY3. Abs 1004786 HFS4F2 - 897 876 879 
hCPY30 Abs 1005096 #F5628 - 1071 905 
hCPY31 Abs 1005143 #F5657 - 1108 1101 
hCPY32 Abs 1005205 #F5695 - 1148 1131 
hCPY33 Abs 1005209 #F5699 - 1155 1129 
hCPY34 Abs 1005321 #F5709 - 1220 1134 
hCPY36 Abs 1005331 WF5713 - 1231 1139 
hCPY37 Abs 1005348 #F5724 - 1244 1240 
hCPY38 Abs 1005377 #F5741 - 1254 1145 
hCPY39 Abs 1005408 #F5760 - 1271 1217 
hCPY3a Abs 1005191 #F5687 - 1137 1133 
hCPY3b Abs 1005201 #F5691 - 1145 1138 
hCPY3F Abs 1005258 HFS6CA - 1189 1187 
hCPY3g Abs 1005317 #F5705 - 1217 1200 
hCPYS! Abs 1005529 #F57D9 - 1341 1241 1415 
hCPYSZ Abs 1005662 HF585E - 1414 1467 1477 
hCPY5& Abs 1006173 HF5A5D - 1685 1676 
hCPYS+ Abs 1006262 HFSAB6 - 1724 1713 
hCPYS, Abs 1006047 HFS9DF - 1626 1622 
hCPYS- Abs 1005784 HF58D8 - 1485 1387 1413 1429 


hCPYS. Abs 1004782 HFS4EE - 894 891 
hCPYSO Abs 1005473 HF5S7A1 - 1305 894 
hCPY51 Abs 1005540 HF57E4 - 1347 1331 
hCPYS2 Abs 1005561 HF57F9 - 1361 1349 
hCPY53 Abs 1005633 #F5841 - 1401 1391 
hCPYS4 Abs 1005670 HF5866 - 1418 1395 
hCPY5S Abs 1005696 #F5880 - 1432 1393 
hCPYS6 Abs 1005718 #F5896 - 1445 1384 
hCPY58 Abs 1006079 HFSSFF - 1641 1639 
hCPYS9 Abs 1006188 HFSAGC - 1694 1674 1679 1686 1688 
hCPY5? Abs 1005482 HF57AR - 1314 930 


hCPY5a Abs 1005536 HF57EO0 - 1344 1287 1333 
hCPYSb Abs 1005690 HF587R - 1428 1439 

hCPY5d Abs 1005991 HF59A7 - 1599 1678 

hCPYSe Abs 1006609 HF5C11 - 1871 1867 

hCPYSF Abs 1006126 HFSAZE - 1666 1647 

hCPYSi Abs 1006299 #FSADB - 1740 1725 

hCPYS} Abs 1005617 #F5831 - 1390 1386 

hCPY51 Abs 1006560 #F5BEO - 1856 1737 

hCPY5 Abs 1006295 #FSAD7 - 1737 1733 1735 1741 
=hCPY5s Abs 1006613 #F5C15 - 1874 1707 1714 1821 
hCPYSt Abs 1005534 HFS7DE - 1343 

hCPY5x Abs 1005825 #F5901 - 1507 1497 1500 
hCPYSy Abs 1005917 #F595D - 1553 1545 

hCPYSz Abs 1006225 HF5A91 - 1712 1706 

hCPY6. Abs 1004733 HFSABD - 861 918 


hCPYES Abs 1006199 HFSA77 - 1700 1682 

hCPYEL Abs 1006306 HFSAE2 - 1742 1700 1711 1720 1722 

hCPYER Abs 1006170 HFSASA - 1682 1651 1656 

hCPYXMN Abs 1004733 #FS54BD - 867 261 770 873 884 94 913 1152 
1W2 1640 

hCPYe+ Abs 1006414 HFSB4E - 1798 1796 

hCPYe- Abs 1006441 #F5B69 - 1807 1827 
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hCPYe. Abs 1006453 HF5B75 - 1814 1798 

hCPYeO Abs 1006383 HFSB2F - 1786 1784 

hCPYe1 Abs 1006474 HF5B8A - 1821 1834 1836 

hCPYe2 Abs 1006489 HF5B99 - 1826 1847 

hCPYe3 Abs 1006541 HFSBCD - 1843 1829 1846 

hCPY¥e4 Abs 1006524 HFSBBC - 1837 1815 1819 1825 1831 1844 

hCPYeL Abs 1006359 #F5B17 - 1767 1338 1731 

hCPYeR Abs 1006433 HF5B61 - 1803 

hCPYel Abs 1006437 HF5B65 - 1806 1355 1414 1549 1586 

hCPYer Abs 1005092 #F5624 - 1068 269 379 1028 1049 1058 1060 1344 
1803 

hCPYex Abs 1006418 HF5B52 - 1799 1792 

hCPYt- Abs 1005547 HF57EB - 1356 1504 

hCPYtP Rbs 1004850 #F5532 - 949 

hCPYtp Abs 1005551 HF5S7EF - 1356 949 2270 

hCPYxn Abs 1005469 #F579D - 132 2163 

shCREAT Abs 1003955 #F51B3 - 252 

=hFINDF Abs 1003859 #F5153 - 115 

hFNFer Abs 1003917 #F518D - 138 118 120 

=hFPROT Abs 1007107 HF5EO3 - 2258 

hFRTCO Abs 1004619 #F544B - 748 742 

hPRIC1 Abs 1004693 #F5495 - 773 769 

=hPRICL Abs 1004600 #F5438 - 734 

hPRIXM Abs 1004689 #F5491 - 770 744 

hPUR2ZO Abs 1006864 #F5D10 - 2039 2010 2015 

hPURER Abs 1006775 #F5SCB7 - 1983 1999 2020 2050 2055 

=hPURGE Abs 1006781 #F5CBD - 1987 

hPURSC Abs 1006818 HFSCE2 - 2019 963 1105 2291 

hPUTDR Abs 1006849 HF5D01 - 2033 2049 2192 2341 

=hRDOCBF Abs 1004228 HFS52C4 - 422 

=hRDNBF Abs 1004335 #F532F - 548 

=hRENAM Abs 1006958 HF5D6E - 2131 

HRNNCS Abs 1006990 HFSD8E - 2153 2152 

hRNNGO Abs 1007013 HFSDAS - 2169 2154 

HRNNER Abs 1007005 HF5D9D - 2160 2149 2155 2174 2193 2195 

HRNAXM Abs 1007009 HF5DA1 - 2163 

hRNAFx Abs 1007000 HF5D98 - 2158 1550 2144 

hRNisb Abs 1007084 HFSDEC - 2200 2170 

hRNMsd Abs 1007081 HFSDE9 - 2199 978 2139 2183 

hSEC15 Abs 1007132 RFSEIC - 2277 2269 

hSEC20 Abs 1007161 HFSE39 - 2294 2284 

hSEC25 Abs 1007172 HFSE44 - 2307 2299 

HSEC30 Abs 1007175 RFSE47 - 2312 2290 254 

HSEC4O Abs 1007205 HF5E65 - 2329 2331 

hSECeR Abs 1007103 HFSDFF - 2255 2264 

nSECer Abs 1007245 HFSE8D - 2349 2255 2342 

HSECFt Abs 1007128 #FSE18 - 2270 2327 


=hVER$ = Abs 1003803 HF511B - 53 

hVER$1 Abs 1003857 #F5151 - 65 59 

=hWROBF Abs 1004307 #F5313 - 498 

i/OFND Ext - 650 2058 

1FIB Abs 63 HOOO3F - 13 2074 

IFLENh Abs 5 #00005 - 13. 1120 1169 1262 1266 1267 1459 1627 
nSDA@S Ext - 1875 


nSFC@5 Ext - 1878 
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o4isod 
oACCSb 
oBSsod 
oCOPYb 
oCP0Sb 
obfsod 
oDBEGb 


oBEVCb 
oF BEGb 
oF BF#b 
oF LAGh 
oF LENh 
oF TYPh 
oIMPLh 
oRECLb 
oRLENb 
pEOT 
pTerRn 
sCARD 
sDEST 
sEXTOV 
sLoop? 
=sNAPRS 
sOVERW 
SPR 
sPRIVT 
sSEC 
sUNDEF 
sUNSEC 


Abs 
Abs 
Abs 
Abs 
fibs 
Abs 
Abs 


Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Ext 
Abs 
Abs 
Abs 
Ext 


5 #00005 
11 #O000B 
17 #00011 
10 #OOOOR 
40 #00028 
13 #00000 
21 #00015 


12 #OOO0C 
13 #OOOOD 
2 #00002 
20 #00014 
32 #00020 
16 #00010 
37 #00025 
36 #00024 
52 #00034 


2 #00002 
3 #00003 
© #00000 


Abs 1004277 #FS2F5 


Ext 
Abs 
Ext 
Abs 
Abs 
Ext 


1 #00001 


Q #00000 
1 #00001 


Table 


{ 1 


13 
13 
13 
13 
13 
13 
13 
2077 
13 
13 
13 
13 
13 
13 
13 
13 
13 
1835 
1833 
13 
13 
13 
1646 
445 
376 
2282 
2283 
2281 
13 
2298 


1250 
455 
120? 
657 
569 
1624 
568 


631 
677 
648 
1092 
1097 
1091 
1668 
2072 
2073 


872 
1642 
859 
1724 


1026 
2288 


2289 
917 


568 


658 
666 
1692 
569 


678 
657 
1097 
1177 
1177 


2073 
2074 


1900 
1814 
1285 


2303 


643 


658 
2067 
1601 


1207 
1860 


2169 


2311 


Tue Jan 17, 1984 12:12 pn 
Page 52 


648 


666 678 2068 2072 
2068 2077 
2199 
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Ver. 3.39/Rev. 2306 Statistics 

Input Paraneters 
Source file nane is NZ&HND: : NS 
Listing file nane is NZ/HND:TI:ML::-1 
Object file name 1s NZZHND:TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assernbler News 
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1 TITLE HPIL CAT <840106.1936> 
2 FSE91 ABS #F5E91 TIZHP6 address (fixed) 
3 k 
4 x N N 22222 & CCC A TTTTT 
5 x N ON Zz && C C AA T 
6 k NN ON Zz && C A A T 
? k NNN z é C A AR T 
8 k N NN Z &&& C AARAA T 
9 x N NZ & & C€ CA A T 
10 x N N 7227222 8&& (CCC A A T 
11 x 
12 OIC III IO II ICIS ISCO OC ISIC I TTI 
13 JOU OCI II OIC TOGO II IO ISK 
14 ax 
15 xx Nane: hCAT - HPIL poll handler for the CAT statenent 
16 a 
1? ** Category: POLL 
18 be 
19 ** Purpose: 
20 ax Execute the CAT function for an HPIL device 
24 ak 
22 tk Entry: 
23 ax File name in A[W], RO[3:0] (A[W]=0 if none specified) 
24 a Device specifier in D[3:0], D[S] 
25 aK P=0 
26 a 
27 Rk Exit: 
28 ax P=0 
29 ak Carry set: error (C[3:0] is error nurber) 
0 ae Carry clear: 
31 ak XN=0: handled (cat is finished) 
32 ah XM=1: not handled (not HPIL or not Filbert) 
33 ak 
4 kk Calls: CKBITL,FINDF +, SAVED1, SETCAT, BLDCAT, DSPCAT, BF2DSP, 
35 ax RESTD1, START, GETOR!, hCATsu, CK=ATn, UTLEND, POPBUF , 
36 am RPTKY, SCRLLR, FINDA, D1=AVE, ENDTAP, hCTA+, HCTA-, 
37 aK CSRC1IO, NXTENT, HCTA=, CSRC5, LSTENT,CSLC10, CSLC5 
38 ax 
39 tk Uses. ....., 
40 kk Inclusive: A,B,C,D,RO,R1,R2,R3,R4,00,01,P, STNTDO,ST[4:0], 
4\ ax SCRTCH[63:0],3 RSTK save fields, FUNCDO,FUNCR1, 
42 ae F-RO-1 
43 xi 
44 Re Stk lvls: 6 (FINDF+)(hCTA+) (hCTA-)CHCTA=) 
45 re 
46 ** Detail: 
4? ee R3 contains the pointers to the current drive: 
48 aA [AR] 1s the # of entries renaining in directory 
49 a (after the current one!), including any 
50 ae purged entries 
51 kk [9:5] 1s the current entry nunber (this 1s the 
52 ax nunber of entries to here in the directory, 
53 _ including the current entry and any purged 
54 aX entries) 
55 ae [13:10] 1s the physical directory pointer (3 nib 
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56 ax record pointer, 1 nib offset pointer) 
57 ae {[S] is the "valid" flag - indicates whether 
58 a the physical directory pointer 1s where the 
59 ae drive really is pointing now (0 means valid) 
60 ka 
61 ** Algorithn: 
62 ok 
63 ae hCAT: IF (not HPIL) or (not Filbert) THEN 
64 ae RETURN carry clear, XM=1 -- Not handled 
65 xx as 
66 xx -- This is HPIL...continue 
67 xx ‘ates 
68 ak IF (filename not specified) THEN CATALL 
63 aa os 
70 ax -- This is a specific entry 
71 ka ae 
72 aa Find the file (FINDF+) 
73 ax IF error then set up error, RTNSC 
74 ka Ss 
75 Kx -- File found (directory entry in SCRTCH) 
76 re’ a 
77 ae Save device address in STMTD1 
78 a Reserve RAN on MTHSTK for building entry 
79 kt oe 
80 ax BLDCAT -- Build the CAT string on the stack 
81 ae aie 
82 xs DSPCAT -- Send the string to the display 
83 * ae 
84 am GOTO nCTA35 -- Collapse the MTHSTK, RTNCC 
85 ke eae ae ee oe ee eae aan Some eke eeemateawe 
86 $e) ehovumecesetine eben caelt vee ttcuuensuntcetendances 
87 ze CRTALL:Save device address in STMTD1 
88 es Display header line (NANE...TYPE...LEN...) 
89 xx -= 
90 #x Restore device address 
91 ax Get directory info and first entry fron drive 
92 xa Be 
93 am Reserve RAM on MTHSTK for building entry 
94 kx <2 
95 wx hCTAZO:Check for ATIN key pressed (if so, exit) 
96 tes Unaddress the device as listener 
97 x z2 
98 a Build the catalog entry (BLDCAT ) 
99 x Display the catalog entry (DSPCAT ) 
100 #% Goto hCTA22 
101 br re 
102 aK hCTAct -- 
103 A -- Continue with next key 
104 kk Se 
105 ae Unaddress talkers/listeners (UTLEND) 
106 kk —_ 
107 ae hCTAZ2 Pop key fron buffer (Either entry or already used) 
108 kx = 
109 ax Repeat key if still down (RPTKEY) 


110 mA 
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111 . If key not still down, get next key (SCRLLR) 
112 ae 
113 pe hCTA35 Restore device address fron STNTD1 (RESTD1) 
114 2 
115 ae Set up the loop and device again (START ) 
116 ax If error, goto hCTAer (clean up) 

WW? xk aS 

118 ak Set R2=R3 (R2 1s temporary position) 

419 x Check keycode (FINDA ) 
120 an Down §=:goto hCTAdn 

121 ax Up :goto hCTAup 

122 xe Botton: goto hCTAbt 

123 alas Top :goto hCTAtp 

124 a Else continue 

125 xx -- 

126 xm If keycode is not zero (CAT all) then 

127 a inhibit display scrolling 

428 kk ae 

129 a hCTA38 Release RAM fron MTHSTK 

130 ke a 

131 x hCTA39 Rewind the drive, unaddress all (ENDTAP) 
132 wx Return with carry clear, XM=0 

133 KC, ene rechs tain Sepa pa 

134 ae hCTAdn -- Down arrow 

135 a = 

136 Get next non-purged directory entry (hCTA+ ) 
137 x -- 

138 ae hCTAxx If not End_of_Directory, goto hCTAbl --Build disp 
139 xx else goto hCTAct --Ignore the down arrow 

140 RM 0 SA eee 

141 xn hCTAup -- Up arrow 

142 ks a 

143 ax Get previous non-purged directory entry (hCTA-) 
144 7 Goto hCTAxx 

145 FO i at aha cas ca Sas 

146 wok hCTAbt -- gDown arrow (botton) 

147 ak cats 

148 wk Get next non-purged directory entry (hCTA+ ) 
149 xx If not End_of_Directory, goto hCTAbt --Get next 
150 xk hd 

151 ze ~~ Reached End_of Directory... 

152 aK -- ,..Check if new record...if so, say not exact 
153 aa ce 

154 a Get the current entry (HCTA= ) 
155 gis Goto HCTA2O --Build it, display it 

156 RR i a cee Sot de 

15? 1 hCTAtp -- gllp arrow (top) 

158 aX a 

159 ze If already at top, then goto h{TA8& --Redisplay it 
160 a2 Position to first non-purged directory entry 
161 ax Goto hCTA&& --Redisplay it 

162 = 

163 ** History: 

164 x 


165 x bate Progranner Modification 
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166 OH. Got gsc. weseeited: (eto eleoedis eel tec ecole cu soss 
167 Kk 01/03/84 NZ Changed RAN usage (added tuo RSTKBF 
168 a levels in hCTA+c to fix bug) 

169 ae 10/25/83 NZ Updated docunentation 
170 Kk 05/16/83 NZ Changed CKHPIL to CKBITL, renoved 
171 ae check for nass storage (done in 
172 ak CKBITL) 
173 RK 04/14/83 NZ Added call to CHKNAS 
174 KK 01/14/83 NZ Packed code (CKHPIL,FINDF+), fixed 
175 ak bug (CAT :<device>, no files on 
176 aR nediuri) 
177 : 12/02/82 NZ Wrote staternent & docunentation 
k 
io JOO ITI III TT TOS TTT ST SITS SIS IIS II SAI I 
180 JIU III II III IIT II TOTTI TTI OS TITS SSI TI ITI AISI SS IS 
181 FSE91 7000 =hCAT GOSUB =CKBITL Is this an HPIL CAT on Filbert? 
182 FSE95 500 RTNNC No...return, XM set, carry clear 
183 % 
184 * This IS HPIL...is it for whole device or just one file? 
185 * 
186 FSE98 978 7A=0) WW Filenane specified? 
187 FSESB 62 GOYES hCATAL No...CAT ALL 
188 - 
189 * This is CAT for a specific file 
190 : 
191 F5E9D 7000 GOSUB =Findf+ Set up and find the file 
192 FSEA1 4D? i COC hCATer Not found/error 
193 
194 : Nou the directory entry is in SCRICH 
195 
196 FSER4 DB C=) A 
197 FSER6 135 01=C 
198 FSEA9 8E0O GOSUBL =SRVED1 Save device address in STNTD1 
0 
199 FSERF 7E73 GOSUB SETCAT Reserve the stack space for entry 
200 F5EB3 7ED4 GOSUB BLDCAT Build the CAT entry 
201 F5SEB? 7B47 GOSUB DSPCAT Display the cat entry 
202 FSEBB DO A=0 A Clear A[B] ("keycode") 
203 FSEBD 69E0 GOTO hCTA35 Exit after cleanup 
204 ke 
205 x 
206 FSEC1 hCATAL 
207 x 
208 : This is a CAT ALL! (Device address in D[3:0]) 
209 
210 FSEC1 7E50 GOSUB hCTAIO (GOSUB to get address on RSTK) 
211 x. 
212 a 
213 * Header string here 
214 x 
215 FSECS B1C3 NIBHEX B1C3 Cursor off - want non-readable 
216 FSECI 0202 NIBRASC \  NANE \ chars 
O2E4 
14D4 


5402 
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21? 


218 


219 


220 


221 


222 
223 
224 
225 
226 
227 
228 
229 


230 
231 
232 


233 


234 
235 
236 


23? 
238 


239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 


251 


F5ED9 0202 
0235 
0245 
9505 
F5EES 5402 
0202 
C454 
E402 
FSEF9 0202 
0244 
1445 
5402 
FSFOS 0202 
0245 
9404 
5402 
F5F19 DORO 
FF 


FSFIF 6000 


F5F23 DB 
F5F25 135 
FSF28 8E00 
00 
FSFE 07 
F5F30 135 
FSF33 8FOO 
000 
FOF3A 8E00 
00 
F5F40 137 
F5F43 D7 
F5F45 8E00 
00 
F5F4B 43D 
FSF4E 8E00 
oo 
F5F54 7162 
FOFS8 42F 
FSFSB 8AE 
FOFSE 60 
F5F60 6680 


FSF64 8EOO 
00 
F5F6R 531 


252 FSF6D 8E00 


HPIL CAT <840106.1936> 


NIBASC \ S$ TYP\ 
NIBASC \E LEN \ 
NIBASC \ DATE \ 
NIBASC \ TINE \ 


NIBHEX DOROFF 


x. 
xe 


hCATer GOTO =Error 
x 


ke 


hCTA10 = C=0 A 
b1=C 
GOSUBL =SAVED1 


C=RSTK 
b1=C 
GOSBVL =BF2DSP 


GOSUBL =RESTD4 


CDIEX 
D=C A 
GOSUBL =START 


hCATeR GOC hCATer 
GOSUBL =GETDR! 


GOSUB hCATsu 
GOC hCATeR 
7CHO OA 

GOYES hCTA2O 
GOTO =hCTAex 


Se ee ee ee 


hCTR20 GOSUBL =CK=ATn 


GONC CTA 
GOSUBL =UTLEND 
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Return, set carry,err # in C[3:0] 


Save address in STMTD1 


Position Di @ string 
Send the header, build the display 


(Don’t care about D1 any nore) 


Restore address 
Set up the loop, check nodes 


Error...set 1t up 
Get directory start, first entry 


Set up for directory 
Error 

Any entries? 
Yes...do then 
No...exit 


Now R3{A] is # ENTRIES renaining, R3[9:5] is current entry, 
R3({13:10] 1s current entry address 


Check 1f ATNFLG is set... 


-..yes 1t 1S...exit 
Unaddress the device... 
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00 
253 FSF73 7614 GOSUB BLDCAT ... Build the catalog entry... 
254 FSF77 7B86 GOSUB DSPCAT ...display the entry 
255 FSF7B 4E0 GOC hCTA22 Go aluays 
256 Ka 
257 - 
258 FSF7E SA? WCTA2T GONC hCTA38 Go aluays (junp out of range) 
259 a 
260 re 
261 FSF81 8EOO hCTAct GOSUBL =UTLEND Unaddress talkers/listeners 
0 
262 FSF87 443 GOC hCTReR Error 
263 x 
264 * Pop the key, if any, out of the buffer 
265 & 
266 FSF8A 8FOO hCTA22 GOSBYL =POPBUF 
000 
267 FSF91 8FOO ACTAZS GOSBVL =RPTKY Repeat the last key if still doun 
0) 
268 F5F98 490 GOC hCTAXH (Key repeated if carry) 
269 FSF9B 8FOO GOSBVL =SCRLLR Scroll left/right 
O00) 
270 FSFA2 968 hCTAXO 7A=0 8B Valid key? 
271 FSFAS CE GOYES hCTA25 No... continue 
272 FSFA7 8EOO hCTA3S GOSUBL =RESTD1 Yes...process key 
00 
273 FSFAD 137 CD1EX 
274 FSFBO D? D=C A Restore device addr fron STMTR1 
275 FSFB2 D8 B=A A Save keycode in B[B] 
276 F5FB4 8E00 GOSUBL =START Set up the loop again 
00 
277 FSFBA D4 A=B A Restore keycode fron B[B] 
278 FSFBC 495 hCTAeR GOC hCTRer Error 
279 FOFBF 11B C=R3 
280 FSFC2 10A R2=C Use R2 as tenporary position reg 
281 x 
282 * A[B] 1s the keycode of the key...check if valid CAT key 
283 x 
284 FSFCS 8FOO GOSBVL =FINDA 
000 
285 F5SFCC 00 CON(2) =k#DOWN Bown 
286 FSFCE F50 REL(3) hCTAdn 
287 FSFD1 00 CON(2) =k#UP Up 
288 FSFD3 R60 REL(3) hCTAup 
289 FSFD6 OO CON(2) =k#BOT Botton 
290 FSFD8 DEO REL(3) hCTAbt 
291 FSFDB 00 CON(2) =k#TOP Top 
292 FSFDD B90 REL(3) hCTAtp 
293 FSFEO 00 CON(2) 0 End of table 
294 - 
295 * This 1s not a valid CAT key...exit 
296 x 
297 FSFE2 968 7A=0) OB Is this a single entry CAT? 
298 FSFES 41 GOYES hCTA38 Yes...don’t touch NEEDSC 


299 FOFE? hCTRex 


300 FSFE? 
1 FSFES 


302 FSFFO 
303 FSFF4 
304 FOFF? 
305 FSFF9 
306 FOFF9 


307 FOFFF 
308 F602 
309 F6006 
310 F6008 
311 F60OB 
312 F600B 
313 FeOOF 
314 F6011 
315 Fe014 
316 

317 

318 F6016 
319 FeO1A 
320 Fe01C 


321 Fe023 
322 F6025 
323 F6023 
324 
325 
326 Fe0d2D 
32? 
328 
329 
330 F602D 
331 F6031 
332 F6034 
333 F603? 
334 F6039 
335 
336 
337 Fe030 
338 
339 
340 
341 F603D 
342 F6041 
343 
344 
345 F6045 
346 
347 
348 
343 F 6045 
350 F043 
351 Fe04C 
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DO 
1F00 
000 
1590 
8AA 
4) 


8E00 
00 
143 
79A0 
CA 
141 


7000 
20 
821 
03 


8001 
06 
8FOO 
000 
07 
8001 
65FE 


7722 
44E 
8AE 
D3 
674F 


Pe?e 
oF EF 


7FO2 
4(C 
SAE 
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R=0 
D1=(5) 


DAT1=A 
*C=0 
GOYES 


hCTR38 


GOSUBL 


A=DATI1 
GOSUB 
A=A+C 
DAT1=A 


hCTA39 


GOSUB 


p= 


XM=0 
RTNCC 


5 
x 


hCTRer C=P 
RSTK=C 
GOSBVL 


C=RSTK 
P=C 
GOTO 


xe 
ke 


hCTRdn 
x 


* Down arrow 


x 


GOSUB 
hCTAxx GOC 
?CHO 
GOYES 
GOTO 


xe 
ae 


hCTAup 
x 


* Up arrow 
* 


GOSUB 
GOTO 


ke 
ke 


hCTAbt 
x 


* (g) Down arrow [bottort] 
x 


A 
=NEEDSC 


1 
A 
hCTR39 


=D1=AVE 


A 
LC40*2 
A 
A 


=Endtap 
0 


1 
=POPBUF 


1 
hCATer 


hCTR+ 
hCTRer 
A 
hCTAbL 
hCTAct 


hCTA- 
hCTAxx 


GOSUB hCTA+ 


GOC 
7CHO 


hCTRer 
A 


11:59 an 
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Clear NEEDSC (CAT :<device>) 


Clear NEEDSC to inhibit scrolling 
Exit for no files on mediun? 
Yes.Don’t release RAN-never reserved 
Set D1 to AVNENE 


Read (AVMENE) 
Load C[A] with 40*2 (40 bytes) 


Write out updated AVNENE 


Clean up the loop 
Ignore error fron ENDTAP 


Return, carry clear, XM=0 


Save P in C[1] 
Pop the key out of the buffer 


Restore P fron C(1} 
Error exit 


Get next entry 
Error 


Not at end of directory...build it 
End of directory...ignore key 


Get previous directory entry 
Finish it up (error if carry) 


Get next entry 
Error...exit 
End of directory yet? 
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352 FOO4F 6F : GOYES hCTAbt No...keep looking for end 
353 
354 : Check if crossed a record boundary - if so, need to re-seek 
355 
356 F60S1 118 C=R3 
357 F6054 94E CHO: OS Already narked as "not current"? 
358 F6057 61 GOYES hCTA&S Yes...skip unnecessary test 
359 F6059 7056 GOSUB Csrci0 
3) F605) 7566 GOSUB Nxtent Check if this crossed a boundary 
361 F6061 5B0 GONC hCTASS No...0K as is 
362 F6064 11B C=R3 Yes...need to set C[SJ="F" 
363 F6067 AR4E HCTA&+ C=C-1 § (Set "not current") 
364 F606R 108 R3=C 
365 & 
366 * Get and build the entry now 
367 & 
368 FOO6D 73B2 hCTA&& GOSUB hCTA= Get this entry 
369 F6071 44A GOC hCTRer Error 
370 F6074 GFEE hCTAbl GOTO hCTAZO Build it if no error 
371 t- 
372 or 
373 F6078 hCTAtp 
374 t 
375 * (g) Up arrow [top] 
376 x 
377 F6078 118A C=R2 Read back pointers 
378 F6O7B 7B26 GOSUB Csrc5 Get entry # in C[A] 
379 F6O7F DA A=C A Save count in A[A] 
380 F6081 CC A=R-1 A Adjust to zero-based count 
381 F6083 CC A=R-1 AA Check if this is first entry 
382 F6085 47E GOC hCT ABS. Yes...already AT the top 
383 F6088 7E16 GOSUB Csrc5 Get pointer into C([3:0] 
384 FeOsC 7C36 hCTAt1 GOSUB Lstent Back up an entry 
385 FE0% 7000 GOSUB =Cslc10 
386 F6094 £6 C=C+1 A Increnent "“reriaining" pointer 
387 F6096 7026 GOSUB Csrcto 
388 F6OSA CC R=A-1 A Check if at start yet... 
389 FeOSC SFE GONC = hCTRt1 ...not at start...loop back 
39 FOOSF 7116 GOSUB CslcS Set back to nornal forn... 
391 FEOR3 7%6 GOSUB C=1LC5 Set position to first record 
392 F6OA? AC2 C=0 S 
393 F6ORA 5CB GONC hCTR&+ Go aluays...set NOT correct-->R3 
394 re 
395 a 
396 FORD D7 ~=LC80*X* =—D=C A 
397 FEORF 20 LC40*2 P= 0 Load C[A] with 80 (40%*2) 
398 F&OB1 D2 C=0 A 
399 F60B3 3105 LC(2) + 40*2 
400 F60B7 03 RTNCC Carry clear on exit 
401 SIR III III SIT IIA III ISI I III IID II IIIT ISI III ITI STIT SIS IIS SSS SIS STN 
402 SII IIS I IO D TOI ITI ISI III IIIS III IIS IIS IIIT IIS OIS SASS SSIS SSI SIS STS. 
403 xx 
404 tk Narie: HCAT$ - HPIL CAT$ function POLL handler 
405 a 


406 %* Category: POLL 
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40? 
408 
409 
410 
ait 
412 
413 
414 
415 
416 
41? 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
44? 
448 
449 
450 
451 
452 
453 
454 
455 
456 
45? 
458 
459 


460 


F6OB9 21 
FEOBB OD 
FeOBD 00 


F 60BF 


FeOBF 7DFS 
F6OC3 8FOO 
000 
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ae 
*k Purpose: 
ule Execute the CAT$ function for HPIL ass storage devices 
x 
tk Entry: 
x F-RO-0 is the (saved) PC 
ax AVNEME is the pointer to the start of string header 
ax (The device string) 
ak The nurneric expression is on the stack after the device 
x string 
ok 
Ae Ext 
xe F-RO-O 1s unchanged 
a Carry clear: 
xh XM=0:; 
x AVMENE points to the CAT$ string on the stack 
gs KMN=1: 
k Not HPIL/not Acc ID=16 device 
xx Carry set: 
ak Error (C{3:0] is error number) 
ak 
** Calls: DIG@AVE , POP1S, DEVPR$, CHKNAS, POPIN, DI=AVE,FLTDH, 
RK GETDR! ,hCATsu, hCTA+, BLOCAT, DI@AVS, ENDTAP, <REV$> 
a 
AP USCS sistas Sa 
xx Inclusive: A-D,RO,R1,R2,R3, SCRICH[63:0],ST[4:0],P,F-RO-1, 
ax FUNCDO , FUNCR1 
ik 
** Stk lvls: 5 (GETDR!) 
ik 
** History: 
ae 
x’ Date Progranner Modification 
10: chaste Veeaceieat ‘Seibert tee 
kK 01/04/84 NZ Packed code in the vicinity of 
ax GOSUBL =fLTDH call, hCAT$5, and 
ae GOSUB =Endtap, changed RAM usage 
04/14/83 NZ Added check for D=0 after DEVPR$ 
BK. 12/13/82 NZ Added routine and docunentation 
tk 


FORO TOI OIC ITO UOT OI III 
FOI IOI TOOT TOI IOK 


hCAT$x P= 1 Return, set XM: not HPIL. 
P=P-1 Clear carry, P=0 
RTINSKN Set XM 

t 

x 

=hCAT$ 

t 

* Is this an HPIL CAT$? 

t 
GOSUB D1@ave Set 01 @ start of string 
GOSBVL =POP1S Now A[A] 1s string len, D1@string 


x 
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461 
462 
463 


464 
465 
466 
467 
468 
469 
470 
47 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 


485 
486 
487 
488 
489 
490 
491 
492 
4393 


494 
495 
496 
497 
498 


499 
500 
501 
502 


§03 
504 
505 
506 
507 
508 
509 
510 


FEOCA 
F6ODO 


F6OD3 
F6OD6 
F6OD8 
F6ODB 
FeODD 


F6OE1 


F6OE1 
F6OE4 


F6OE6 
FEOEC 


F6OEF 
FEOF2 


F6OF8 
F6OFB 


F6101 


F610? 


8E00 
00 
501 


890 
3E 
890 
ED 


8AB 
50 


8E00 
4cC 


17F 
8E00 


17F 
8£00 


8E00 


533 


x 
x 


x 
* 


hC 
ke 
ke 
he 
x 


x 
x 


* + OF OF Dd 


» 


+ 


ee e 


Oe 
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DEVPRS$ leaves DO at the mailbox if good device spec 
GOSUBL =DEVPR$ Get the device info 
GONC hCRT$2 This is a GO0D device spec (D[A]) 


Need to check 1f this is valid device spec... 
k 


?p= =eDSPEC Is this a device spec error? 
GOYES hCATSx Yes...return, clear carry, XfM=0 
P= =eRANGE Is it out of range (device spec)? 
GOYES hCRTS$x Yes...return, clear carry, XM=0 
AT$e GOTO =Error No...error 
AT$2 
If D[A] is zero, then device not found 
7D=0 =A 
GOYES hCAT$x Not found...return, not handled 


Now D[A] is the device address, DO @ mailbox 
GOSUBL =CHKNAS Check if this is mass storage 
GOC = WCAT$x Not mass storage...don’t handle 


Now know this is a mass storage device...find the start of 
directory, set up for search 


D1 is now at the nurieric value pointer -16 
Di=D1+ 16 Point to the numeric value 
GOSUBL =POP1N Get the value 
Now D1 1s where the string should go -16 
D1=D1+ 16 
GOSUBL =aVE=01 Write D1 value to AYNENE 
A[W] is the numeric value 
GOSUBL =fLTDH Convert to HEX 
If XM=1, then out of range, else negative (both are null 
string) 
GONC hCAtSS5 Either negative or out of range 


Now ALA] is the value 
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511 
512 
$13 
514 
515 
516 
517 


518 
519 
520 
521 
522 
523 
524 
525 
526 
52? 
528 
529 
§30 
531 
532 
533 
534 
535 
536 
$37 
538 
§39 
540 
541 
542 
543 
644 
545 
546 
847 
548 


549 
550 
$91 
§$2 
563 
554 
565 
556 


So? 
558 
559 
560 
561 
862 


F610A 
F610C 
F610F 


F6112 


F6118 
Forte 
FO11F 
F122 
F6124 
F612? 
F6129 
Fe12C 
F612F 
F6133 
F6136 
F6139 


F6138 


F613€ 
F6140 


F6143 
F6144 


F614F 
F614F 


F6156 
F6158 


Fo15B 


FoiSF 
F6166 


F6169 
F616D 


F6170 
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Convert to base zero 
(Zero=null string) 
Save value in Ri FA] 


* The following call cannot be in hCATsu because of RSTK lvls 
x 


Get the first entry 


Set up the drive (Position to 1st) 
Error 

No entries? 

No...exit, null string 
Recall count fron R1 
Check if done 
Yes...build the string 
Save count into R1 again 
Get next entry 
Error...exit 

End of directory? 
No...continue 


Send null string 


Men error 
Go aluays...error 


12 nibbles available here 


* Got a good entry...save device address, build entry 
k 


cc A=A-1 A 
436 GOC hCAT$5 
101 R1=A 
x 
8E00 GOSUBL =GETDR! 
0 
7090 GOSUB hCATsu 
40C Goc hCAT$e 
8AAR c=0 «6A 
£4 GOYES hCATS$S 
111. hCAT$3 A=R1 
CC A=A-1 A 
4§2 GOC hCAT$4 
101 R1=A 
7521 GOSUB hCTA+ 
493A GOC hCAT$e 
8AE 7C#O0 =A 
BE GOYES hCAT$3 
x 
* End of directory 
x 
543 hCAt$5 GONC hCAT$5 
x 
x. 
20 hWCAT$n P= =eNORAN 
4(9 : GOC hCAT$e 
x 
0 CON(1) =FIXSPC 
BSS 12-1 
ke. 
x 
x 
hCATS$4 
1F00 01=(5) =F-RO-1 
000 
DB C=D A 
145 DATi=C A 
x 
7632 GOSUB BLDCAT 
x 
* Set DO back to narlbox 
bi 
1FOO D1=(5) =F-RO-1 
000 
147? C=DAT1 A 
704F GOSUB LC80** 
560 GONC hCAT$E 


De 


xe 
xe 


hCAT$5 = C=0 A 


Address to save device address 


Build the entry in nenory 


Address of device address 
(LO80** does a D=C A) 


String 1s 40 bytes (80 nibbles) 
Go always 


Length=0 (Null string) 
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563 F6172 20 P= 0 Must set P=0 for R=A-1 P below 
564 x 
565 * Now C(A] is the length of the string, AVMEME is start 
566 x 
567 F6174 AFO hCAT$6 A=0 W 
568 F6177 DA A=C A Now ALA] is length in nibs 
569 F6179 7345 GOSUB 01@ave Set D1 @ (AVMENE) 

570 x 

571 * Nou A[A] 1s length in nibbles, D1 @ start 

572 x 

573 F617D BFO ASL W 

574 F6180 BFO ASL W 

575 F6183 ROC A=A-1  P Set A[O]="F" 

576 F6186 1CF D1=D1- 16 Point to string header field 

577 x 

578 * 01 @ intended header destination 

579 x 

580 F6189 137 CD1EX Pointer in C[A]} 

581 F618C 06 RSTK=C 

582 FO18E 8E0O GOSUBL =D1@AVS Read (AVNENS) into D1 
00 

583 x 

584 * RSTK @ intended header, D1 @ (AVMENS) 

585 x 

586 F6194 07 C=RSTK (AVMEME) into C[A] 

587 x 

588 * 01 @ (AVMEMS), C @ intended header 

589 x 

590 F6196 133 ADIEX 

591 x 

592 * ALA] @ (AVMENS), C[A] @ intended header 

593 & 

594 F6o199 8B6 "AC ORR Roon? 

595 F619C 2A GOYES hCAT$n No...nen error 

596 FeI9E 133 ADIEX Yes...OK to write it 

597 & 

598 * A[W] is intended header, C[A] @ intended header 

599 x 

600 F61A1 135 D1=C Set Di to start of header 

601 x 

602 * There is room to put this here 

603 x 

604 F61A4 1517 DAT1=A W Write the string header 

605 x 

606 * Now set RVMEME (pointed to by D1) to the neu header 

607 x 

608 F6E1A8 8EOO GOSUBL =aVE=01 Write out new AVMENE 
00 

609 x 

610 * (Leave D1 @ AVMENE for REV$) 

611 x 

612 * Clean up the mass storage device nou 

613 x 

614 F61RE 795E GOSUB = hCTA39 Unaddress Talker&listener, P=0,KMN=0 


615 F61B2 8D00 =rEV$ GOVLNG =REV$ Reverse the string 
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616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
63? 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
65? 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 


000 


F61B9 400 


ak 
xk 
xx 
xx 
xk 
xx 
xk 
xs 
ak 
ax 
ak 
ak 
ak 
xx 
xx 
ak 
ak 
xk 
ak 
xk 
xk 
xx 
ak 
wa 
xx 
xx 
xk 
xx 
xk 
ak 
xx 
aK 
ak 
xk 
xn 
ax 
ak 
aK 
xk 
ak 
xx 
xx 
ak 
xx 
xk 
aK 


hC 
x 


ee we ee 
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FORO TT TO TTI 
FOR JI IO ITO ITT TIL 


Narie: hCATsu - Subroutine for HCAT routines 
Category: LOCAL 


Purpose: 
Set up for executing hCTA-, hCTA+ and BLOCAT routines 


Entry: 
Carry clear: 
D[A] is drive address 
AVNENE points to the top of the stack 
DO points to the HPIL mailbox 
Carry set: 
Error (will just RTNC) 


Exit: 
Carry clear: 

C{A]}=0: 
No directory entries on nediun 

C[A}#0: 
R3 contains the directory pointers (see hCAT) 
AVNENE reflects the neu top of stack (after reserving 

RAN for CAT) 


Calls: CSRC5, CSRC10, CSLE5, CSLOI0, TSAV2C, R<RST2, GDIRS+, 
NCTA, RST2<R, TRES2C , GETNBX, SETCAT, D1=AVS, DI=AVE 
Inclusive: A{W],B(W],C{W),R2,R3,01,P,(3 RSTK save locations) 
Stk lvls: 3 (hCTA+c) {3 levels saved by R<RST2} 


History: 
Date Progranner Modification 
01/04/84 NZ Reworked code around hCTA+C call 
to reduce the nunber of stack 
levels used (added R<RST2,RST2<R) 
12/14/82 NZ Added routine and docunentation 
FORO OOIO OTRO FORO OO OIG OOO IOI 


FOR ORO TO III OO IO III OO OOO OIRO 
ATsu RTNC Error! (Return at once) 


Now B[3:0] is pointer to first directory entry, D[8:5] is 
nunber of directory records, SCRTCH is first entry, 
D1 is at (=SCRICH)+16 


Save # of directory ENTRIES remaining in R3[A], current 
ENTRY nunber in R3[9:5] 
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670 & 
671 F61BC AFB C=D W 
672 FOIBF 77E4 GOSUB Csrc5 Now C[3:0] is # of records 
673 FeiC3 Fe CSL A (® records tines 8 is # ENTRIES) 
674 F6ICS 81E CSRB Now C[A] is # of ENTRIES 
675 F6iC8 CE C=C-1 A (We have the first one already) 
676 F6ICR 7CE4 GOSUB Csrci0 
677 F6ICE D9 C=B A 
678 FIDO 7000 GOSUB =Cslc10 C([13:10] 1s current dir location 
679 F61D4 10A R2=C # of entries, current entry-->R2 
680 F61D?7 10B ; R3=C # of entries, current entry-->R3 
631 
682 * Check if the first entry 1s PURGED or EOD...if so, find the 
683 * first non-purged entry 
684 & 
685 F61DA 8FOO GOSBVL =R<RST2 Save 3 RSTK levels in RAM 
000 
686 FH1E1 8E00 GOSUBL =GETNBX Get the nailbox address back to DO 
00 
687 F61E? 7371 GOSUB GDIRS+ Read file type, set P=3 
688 F61EB 72A0 GOSUB hCTA+C Check if PURGED, etc. 
689 FE1EF 80CE C=P 14 Save P value in C{14] 
690 F61F3 AC2 C=0 S 
691 F61F6 550 GONC hCATs1 If carry 1s clear, leave C[S]=0 
692 FoIFS B46 C=C+1 § 
693 F6IFC 8EOO HCATs1 GOSUBL =TSAV2C Save C[W] ain FUNCR1 for now 
00 
694 F6202 8FOO GOSBVL =RST2<R Restore the RSTK levels 
000 
695 F6209 8EOO GOSUBL =GETMBX Restore the mailbox addr to DO 
00 
696 Fo20F 8E00 GOSUBL =TRES2C Restore C{w] 
00 
6397 F6215 80DE P=C 14 Restore P 
698 F6219 94E CHO.) OS Was carry set? 
699 F621C & RINYES Yes...error 
700 F621E 8AA *C=0 =A Rny valid entries? 
701 F221 F2 GOYES hCATsx No...exit 
702 F6223 118 C=R3 
703 F6226 7084 GOSUB Csrc5 
704 F622A 7284 GOSUB C=1LC5 Set C[A}=1, CSLCS 
705 F622E 10B ; R3=C This is the FIRST entry 
706 
707 F6231 SETCAT 
708 F6231 7A7E GOSUB LC40*2 40 bytes = 80 nibbles 
709 F6235 05 B=C A 
710 F6237 8E00 GOSUBL =D1=AVS Check if roon for 40 bytes 
00 
711 F623D 143 A=DAT1 A 
712 F6240 174 D1=D1+ 5 AVMEME is 5 nibbles after AVMENS 
713 F6243 147 C=DAT1 A 
714 F6246 E9 C=C-B A Now C{A] is proposed new AVNENE 
715 F248 8B6 7AOC OAR 
716 F624B 70 GOYES SéTenn No nenory 


717 x 
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718 

719 

720 F624D 145 

721 F6250 03 

722 

723 

724 F6252 8000 
0 


725 
726 
72? 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
rag 
740 
74) 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
764 
762 
763 
764 
765 
766 F6258 11A 
76? 
768 
769 
770 FO25B 8AR 
771 Fe2e5— £4 
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* There IS roon for this 
x 

DAT1=C A Write out the (temp) AVMENE 
hCATsx RINCC Return, carry clear 
x. 
k. 
SETenr GOLONG =NORAMe No nenory 
JOSIE IOI OCCT II TIS II III II IIH 
JOIST III TO IIS IO OO II TIT II IIIS TIT 
kk 
** Narie: hCTA+ - Go forward 1 non-purged entry 
aa 
xk Category: LOCAL 
kk 
** Purpose: 
a Nove one non-purged directory entry forward fron 
= current position 
xk 
** Entry: 
aK DO points to the mailbox, D[X] 1s device address 
me R2 1s current position pointers, R3 1s old pointers 
ae 
RAV ENTt: 
ae Carry clear: 
ae C[A}=0: No more directory entries 
ax C[A]#O: R3 updated to current pointers 
a Carry set: 
xk Error (P=error code) 
ka 
** Calls: CSRC10, NXTENT, SEEKRD, CSRC5S, GDIRSB 
A 
FO USES aie /e-nase 
xx Exclusive: C(W},R2,R3 
** Inclusive: A[A],C(W),R2,R3,D1,P 
te 
** Stk lvls: 5 (GDIRSB) 
ta 
** History: 
aa 
aR Date Progratner Modification 
PA? eee, Paeteretett. abet oo heh aac delete Ges 
xk 01/04/84 NZ Packed to install bug fix for CAT 
ae on a mediun with the first file 
a purged 
¥K 42/10/82 NZ Added docunentation 
don 
JOU IIIS GGG I SOIT RT II 


aa 
hC 
x 


x 


FOI JOTI OI TOTO OTTO II IOI OOOO: 


TA+  C=R2 
Doun arrow key (C{W) is R2 contents) 


*C=0 =A 
GOYES hCTA+x Exit...already at end of directory 
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772 x 
773 * Have NOT reached EOD yet 
774 x 
775 F6260 94A C20) = § Is the nediun at that record? 
776 F6263 41 : GOYES hCTA+2 Yes...don’t need to SEEK 
777 
778 : Need to position to that record 
779 
780 F6265 7154 GOSUB Csrci0 C{3:1] 1s record #, [0] is 8P 
781 F6269 7954 GOSUB Nxtent Set to NEXT record 
782 F626D 7CFO GOSUB SEEKRD Seek to the record & read it 
783 F6271 400 RTNC Error 
784 F6274 11A hWCTA+1 C=R2 
785 x 
786 * Now the rediun is positioned at the record specified 
787 x 
788 F6277 8AR HCTA+2 ?7C=0 A End of directory? 
789 F627—A 22 GOYES hCTA++ Yes...exit, mark end of directory 
7% F627C CE C=C-1 A No...decrenent the count 
791 F627E 7824 GOSUB (Csrc5 
792 F6282 7224 GOSUB C+1RC5 Increnent current location 
793 F6286 7€34 : GOSUB Wxtent Go to next entry 
794 
795 : GDIRSB sets R2 to C after CSLC10, C[S]=0 
796 
797 F628A 78B0 GOSUB GDIRSB Get directory entry, set up 
798 F6Z28E 400 RTNC Error 
799 - 
800 : Nou the entry is in SCRICH, C[3:0] is type (byte-reversed) 
801 
802 F6291 91A hCTA+C ?C=O0 WP Purged entry? 
803 F6294 OE GOYES hCTA+1 Yes...get next one 
804 F6296 B16 C=C+1 WP 
805 F6299 541 GONC hCTA+! Done: P=3, carry clear 
806 x 
807 * End of directory...set count=0, position flag=false 
808 * (Set position=last good position fron R3) 
809 x 
810 F6o29C 11B hCTA++ C=R3 End of directory 
811 F629F D2 C=0 A 
812 F62A1 AC2 ACTA&t C=0 S 
813 F62A4 AGE C=C-1 §$ Set R3{S]#0 (not at current record) 
814 F62A7 108 R3=C Set # of entries renaining=0 
815 F62AA D2 C=0 A (Needed for hCTR&t entry) 
816 F62AC O03 = hCTA+x RTNCC (Carry clear, C{A]=0) 
817 - 
818 a 
819 F62AE 11A hCTA+! C=R2 
820 F62B1 108 R3=C Update the pointers 
821 F62B4 E6 C=C+1 A Insure that C[AJ#O for exit cond 
822 F62B6 03 RTNCC 
823 JI I III III IIIS II ISI ISIS IO IOI IS ISIS II III SIO IST II IIIA 
824 KIKI III IDI ODI IIIT IDI I III III II ISI II III III ISIS IS II SSSI IIIS IA 
825 a 


826 *x Wane: hCTA- - Move back one directory entry 
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827 
828 
829 
8H 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
86? 
868 
869 
870 
871 
&72 
873 
874 
875 
876 
877 
878 
879 
880 
881 


F628 
F62BB 
F62BF 
Fectt 
F6eC4 
Feele 
Fe2CA 
Fe2CD 
FeeCF 
F62D1 
Fe2D4 
F62D6 
Fée2bR 


11A 
?9E3 
CE 
SAR 


70E3 
10A 
25 
DA 
90E 
2] 
7CE3 
4B0 


HPIL CAT <840106.1936> Tue Jan 17, 1984 11:59 an 


Page 17 
** Nane: hCTA= - Get the current directory entry 
tk 
** Category: LOCAL 
te 
** Purpose: 
aK hCTA-:Move back one non-purged directory entry 
eK nCTA=:Read in the current directory entry 
ek 
x Entry: 
me DO points to the mailbox, D[X] 1s device address 
ak R2 1s current directory pointers, R3 is old pointers 
te 
ak Exit: 
ak Carry clear: 
ae C[A}=0: Beginning of directory reached 
x C{A}#O: SCRICH[63:0] is the new entry 
ak R3 1s updated to current directory entry 
x Carry set: 
kx Error (P=error code) 
tk 
** Calls: CSRC5, CSLCS, NXTENT, LSTENT, SEEKRD, GDIRSB 
tk 
RRS OSs i casp nhs 
x* Exclusive: A[A],C{W),R2,R3,01,P 
** Inclusive: A[A],C(W],R2,R3,01,P 
tok 
** Stk lvls: 5 (GDIRSB) 
ae 
** History: 
ke 
xk Date Progranner Modification 
RAM “wc. ame eames “eagle dei ioe co ou ceo S eee ote wales 
a 01/04/84 NZ Packed to install bug fix (see CAT) 
kK 01/03/84 NZ Moved the RTNC after SEEKRD to be 
ke before the C=B A (Was destroying 
ai the error number in C[0]) 
ek 01/24/83 NZ Changed R2(A] to include purged 
es entries 
RE FOTTOL82 NZ Added docunentation 
re 


FORO IO OI OTTO TOK 
ORI III IO IOI III IO IOI III 


hCTA- C=R2 
GOSUB C+1RC5 Increnent # of entries left 
C=C-1 A Decrenent to previous entry 
*C=0 OA At top already? 
GOYES hCTR-3 Yes...set R3 to first entry 
GOSUB Csrc5 
R2=C Save counts in Re for now 
P= 15-10 Point to C{S}, CSRC5’ed twice 
A=C A Save entry in ALA} 
CHO OP Is this the current position? 
GOYES hCTA-1 No...need to SEEK that record 
GOSUB Nxtent Check if this was the last entry 
GOC hCTA-1 Was last...need to SEEK 
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882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
1 
We 
%3 
904 
905 
#6 
7 
8 
909 
310 
911 
912 
913 
914 
915 
316 
917 
918 
919 
$20 
921 
922 
$23 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 


F62DD 
F62DF 
F62E3 


F62E6 
F62E8 


Fe2EC 
F62FO 
F62F3 


F62F3 
FO2F6 
FO2FA 
FO2FE 


F6301 
F6 304 


F6EH6 
F6309 
Foxe 


FEROE 
F6311 
F6315 
F631? 
F631A 
F63IC 
F6320 


F6324 
F6327 
F632B 
F632D 
F630 
F6332 
F6334 


F6338 
F633B 


D6 
79E3 
5FO 


D6 
70E3 


7070 
400 


118 
7203 
7840 
400 


31A 
4B 


11A 
10B 
03 


11B 
7§93 
CE 
8RA 
23 
2093 
608F 


118 
7F83 
25 
90A 
61 
DS 
7§30 


400 
bg 
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C=A A Check if was FIRST entry 
GOSUB Lstent Go back 1 entry (record) 
GONC hCTA-2 Still in sane record 
x 
hCTA-1 C=A A Get the entry location back again 
GOSUB Lstent Go back 1 entry (for SeELtbal 
k 
* Nou C{3:1] is the correct record # 
k 
* Go to that record 
x 
GOSUB SEEKRD Seek to that record, read it 
RTNC Error 
hCTA-2 
x 
* Now nediun is positioned to the correct record 
x 
C=R2 
GOSUB Lstent Set C[{3:0] to the last entry 
GOSUB GDIRSB Get directory entry, set P=3 
RTNC Error 


* D1 @ (=SCRTICH)+20, P=3, C[3:0] 1s type (byte-reversed) 
k 


7¢=0 =P Purged? 
GOYES hCTA- Yes...try next entry 


* Good entry (Cannot get EOD with up-arrow) 
x 


C=R2 
R3=C Set R3 to the current pointer 
RTNCC 
x. 
x. 
hCTA-3 C=R3 
GOSUB Csrc5 
C=C-1 A 
7-0) =A 
GOYES hCTA+x Started at beginning..leave as is 
GOSUB C=1LC5 Indicate at FIRST entry in CAT 
: GOTO 8 hCTA&t Set R3[S]#0, continue 
bo 
hCTA= = =C=R3 
GOSUB Csrc10 Get current entry into C[3:0] 
P= 15-10 Point to R3[S], shifted 10 
7=0 =P Is it correct? 
GOYES GDIRSB Yes... just read that entry 
B=C A (Save entry info in B[3:0]) 
GOSUB SEEKRD No...SEEK to the record, read it 


x 
* Before restoring entry infornation to C[3:0], check for error 
x 


RTNC Error if carry set 
C=B A (Restore entry info to C[3:0]) 
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937 F633D 12B CR3EX Save €[3:0] in R3, fetch R3-->C 
938 Fe340 AC2 C=0 S Current record is positioned 
939 F6343 12B CR3EX Restore C[3:0], R3 
940 x 
941 : Fall through to GDIRSB 
oe JOIST IOI IIT OCC ISOS ISI TT AS STITT IK 
944 JOIST OI II II IIIT III TIT I STI SIT SSI IIS SI IITA IASI ITT IK 
945 x 
946 ** Nane: GDIRSB - Subroutine to get a directory entry 
947 x 
948 ** Category: LOCAL 
949 ka 
950 **x Purpose: 

951 Save location, get directory entry, check file type 
952 
953 kx Entry: 
954 aK C[3:0] is the directory pointer 
355 Kx DO points to the mailbox 
956 ak D[X] is the device address 
957 Kx 
958 AA Ei ts 
959 xR Carry clear: 
960 & P=3, C[3:0]=file type (C[B] 1s high byte of type) 
961 ee Carry set: 
962 + Error (P=error code) 
963 ax 
964 ** Calls: CSLC10, GETDR+ 
965 a 
966 AX USES 26.455 
967 kk Exclusive: RA[A],C(W},R2,D1,P 
968 kk Inclusive: A[A},C{W],R2,01,P 
969 is 
970 ** Stk lvls: 4 (GETDR+) 
971 aX 
972 ** History: 
973 x* , 
974 am Date Progranner Modification 
975 Kk Sovccses Veestcaaseoen: “Seer Gookec cscs ssue se ce eee ees ee 
976 *k 01/04/84 NZ Added GDIRS+ entry point 
977 KK 12/09/82 NZ Added routine & docunentation 
ax : 
ae JIS ISI SOISISISISGI SO ISGICI SIO ISIS IGE OI TI TIE 
880 ORO IO OI OO IO GIO III GO IOI OI III OI ISTO EIEIO 
981 x 
982 * Code above falls into this routine 
983 - 
984 Fo346 DA =GDIRSB A=C A Copy entry to ALA] 
985 F6348 7000 GOSUB =Cslc10 Restore R2 to correct orientation 
986 Fo34C ACC C=0 S (At correct record) 
98? Fo34F 10A Re=C Set R2 again 
988 x 
98a * Wow AL3:0] 15 the CORRECT pointer for this file 
990 , 


991 Fe352 814 ASRC 
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992 F6355 8E00 
00 


993 F635B 400 
994 F6O35E 1FO0 
000 

995 F6365 15F3 
996 F6369 23 
997 F636B 03 
998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 F636D 
1036 

1037 

1038 

1039 F636D DO 
1040 F636F Fé 
1041 F6371 ABA 
1042 F6374 8E00 

00 

1043 F637A 400 


GD 
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GOSUBL =GETDR+ Set byte pointer, read entry 
RTNC Error 
D1=(5) (=SCRTCH)+20 Position to TYPE bytes 
C=DAT1 4 
P= 3 
RTNCC Leave C[3:0]=type, P=3 


OI IO RIOR TIO 
FORO IIIT OOO TOTTI TO TO TOTO 


aR 
** Narie: SEEKRD - Seek to a record, then read it 

aK 

*k Category: PILI/0O 

ah 

*x Purpose: 

xe Seek a record on the mass nenory device and read it 
ak 

ak Entry: 

ak C[3:1] is the record # desired 

zx DO points to the mailbox 

as D[X] is the device address 

ak 

me EXIT: 

ak Carry clear: 

x P=0, record has been read into buffer 0 of device 
ax Carry set: Error (P=error #) 

ak Error (P,C(O] are the error code) 

ak 

** Calls: TSTAT, SEEKA, DDT, TSTATA 

ak 

MAUSOS 4 tes 

xx Exclusive: A[A],C[W],P 

*k Inclusive: A[A},C{W),P 

ah 


¥X Stk lvls: 3 (TSTAT)(SEEKA)(TSTATA) 


xk 


xk History: 


ak 
xk 
xk 
ax 
ax 


Date Progranner Modification 


12/09/82 NZ Added routine & docunentation 


FORO IO IO IOUS OI I IOI TIO 
FORT JIT TOI IOI OI 


=§ 
x 


EEKRD 


* Go to the record, but check status first 
k 


A=0 A 

CSR A 

A=C x ALA} is now record # 
GOSUBL =TSTAT Check device status first 
RTNC Error 
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1044 F637D 7000 

1045 F6381 400 

1046 F6384 20 

1047 F6386 8E00 
00 

1048 F638C 400 

1049 F638F 8C00 
00 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 F6395 7723 

1085 

1086 

1087 

1088 

1089 

1090 

1091 F6399 8E00 
00 

1092 F639F 1B00 
000 

1093 FO3A6 1567 

1094 F63AA 16F 


xx 
xk 
ak 
ak 
ax 
xx 
ak 
ax 
kk 
xk 
xx 
xk 
aK 
xx 
xk 
xx 
ak 
xk 
xk 
ak 
xk 
xk 
xk 
ax 
xk 
ax 
xk 
xe 
aK 
xk 
ak 
xk 
xk 
aK 


=B 
a 


x 
x 
x 
x 
x 
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GOSUB =Seeka Go to that record 
RTNC 
P= =Read 
GOSUBL =DDT Read the data fron the device 
RTNC 
GOLONG =TSTATA (Device is already talker) 


FOCI III IIIT TITTIES ITTTITOK 
FORO ROI TOOT TOK 


Narie: BLDCAT - Build CAT text, given directory entry 


Category: LOCAL 

Purpose: 
Build the CAT[$] string on the [MATH] stack, using the 
directory entry in SCRICH[63:0) 


Entry: 
SCRTCH contains the directory entry for the file 


Exit: 

Carry clear, CAT text on stack, AVMEME at CAT text 
Calls: DIG@AVE, TSAVDO, BLANKC , SWAPO1, GT2BYT, FTYPF#, HTODX, 
WRTRSC, GETBYT, GT2BYO, A-MULT, TRESDO 


eee eeee 


Exclusive: 
Inclusive: 


A[W], B(W],C JP 
A[W],B[W],C ,P, FUNCDO 


Stk lvls: 3 (FTYPFH) 


History: 
Modification 


Wrote routine and docunentation 


12/06/82 


FO ROJO IOI III OITA TTOT OE 
FORT ITO OI I K 


LDCAT GOSUB D1@ave Set 01 to start of string 


NZ 


Now D1 15 at start of CAT build area, SCRICH contains the 
directory entry for the desired CAT 


Save DO in FUNCDO (restore on exit) 
GOSUBL =TSAVDO 
DO=(5) =SCRTCH 


Read in first 8 chars of nane 
Skip first 8 input chars 


C=DATO W 
DO=DO+ 16 
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1095 Fe3AD 1557 DAT1=C W Write out the first 8 chars 
1096 F63B1 17F 01=D1+ 16 
1097 F63B4 146 C=DATO A Read last 2 chars 
1098 F63B7 163 DO=D0+ 4 Skip last 2 input chars 
1099 F63BA 15D3 DAT1=C 4 Write last 2 chars 
1100 F63BE 173 D1=D1+ 4 
1101 ; 

1102 * Now the nane is written...blank, security, blank next 
1103 & 
1104 F63C1 8E0O GOSUBL =BLANKC Get blanks in C{W] 
00 
1105 s 
1106 * Blank out the rest of the text now 
1107 x 
1108 Fe3C7 133 ADIEX 
1109 F63CA 131 D1=A Save D1 in ALA] 
1110 F63CD 28 P= 16-5 
1111 F63CF 15DB BLOC1O DAT1=C 6%2 Clear the renaining 3 bytes 
1112 F63D3 178 D1=Di+ 6*2 in chunks of 6 bytes 
1113 F63D6 OC P=P+4 
1114 F63D8 S6F GONC BLDCIO 
1115 F63DB 131 D1=A Restore D1 
1116 F63DE 175 D1i=01+ 6 Skip to file type field 
1117 % 
1118 * D1 points to the file type byte in header 
1119 s 
1120 * DO is still at the file type in SCRTCH 
1121 x 
1122 F63E1 AF2 C=0 W Must clear high nibs for HTODX 
1123 F63E4 7312 GOSUB SWAPO1 Suap DO, D1 
1124 F63E8 8E00 GOSUBL =GT2BYT Read in 2 bytes (type) at D1 
00 

1125 F63EE 7902 GOSUB SWAPO! Swap DO, D1 
1126 * 
112? * 00 is now at start of start address field, D1 is still at 
1128 * text "type" field 
1129 . 
1130 F63F2 AFA A=C W File type into AA) 
1131 F63F5 7000 GOSUB =f TYPFH Read the file type 
1132 - 
1133 * If carry set, found the type; C{A], B[A] @ entry, B[S] = # 
1134 . 
1135 F63F9 4A2 GOC BLDC30 Found a file type table with this 
1136 
1137 * This is an unknown type...leave security blank, print 
1138 * type in ASCII digits (Type is in A[W)) 
1139 
1140 Fe3FC AC3 d= S Use D[S] as the SIGN of file type 
1141 FO3FF 06 C=A A Check if A[3:0] is #8000 or nore 
1142 F6401 Fe CSL A 
1143 F6403 C6 C=C+C A If carry, then this is negative 
1144 F6405 5AO GONC BLDC20 Non-negative...continue 
1145 . 
1146 * This is negative...change sign field to 1 

& 


1147 
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1148 
1149 
1150 
1151 


1182 
1153 
1154 
1155 
1156 
115? 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1174 
1172 
1173 


1174 
1175 
1176 
11277 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
118? 
1188 
1189 
1190 
1194 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 


F6408 B47 

F640B 23 

Fe4OD B98 

F6410 8E00 BLDC20 
00 

F6416 24 

F6418 7732 

F641C D1 

FO41E 171 


F6421 5B3 
ko 


xe 


F6424 BLDC30 
& 
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D=D+1 §$ 
P= 3 
A=-R WP 
GOSUBL =HTODX 
P= 4 
GOSUB WRTASC 
B=0 R 
D1=Di+ 2 
GONC BLDC40 


11:59 an 
Page 23 


Tue Jan 17, 1984 


Negative of file type 
Convert to decinal 


B{W]<=32768 to get here 

Write digits, suppress leading 0’s 
Set B[A]=0...type not known 

Skip a blank between type, length 
Go always...continue with length 


* B[A] is pointer to file type, B[S] is the protection 


* D1 at file type text area 


x 


F6424 A4D 
k 


B=B-1 §$ 


Always at LEAST 1 fron FTYPFH 


* Now B[S] is the protection, base zero 
x 


F6427 103 
F642A ACS 
F642D A46 
F6430 BCA 
F6433 80DF 
F643? 3702 
3505 
54 
F6441 14D 


F6444 173 
x 


Di- 4 
Ss 
tC § 
cs 

15 


B 
C 
C 
ASC \EPS \ 


D1 
C= 
C= 
C= 
p= 
LC 


DAT1=C B 
Di=D1+ 4 


Point to the protection byte 
Read protection type 

Double it for bytes 

Negate it for offset fron C[{S] 
Set Psoffset fron C[S] 

C{B] gets proper value 


Write out the security code 
Back to file type text area 


* Nou ready to output the file type 
x 


F644? DY 

F449 13? 
FO44C 174 
F644F 15B9 
F6453 13? 
F6456 1599 
Foe4SA 178 


Fe4sD BLDC40 
a 


C=B A 
CDIEX 

D1=D1+ 5 
A=DAT1 10 
CDIEX 

DATI=R 10 
D1=Di+ 12 


Di-->type entry 
Skip to ASCII for file type 
Read the type... 

..restore true D1... 
...and write the type 
(Skip to length field) 


* Now continue at the length field 
x 


Fe45D 8AD 
Fe460 F4 


* Type is unknown... 
* 


F6462 167 
x 


* DO 1s at the 


x 
Fe4e5 7291 BLEC4S 


“BHO OA 
GOYES BLDC5O 


DO=D0+ 8 


GOSUB = SWAPO1 


Is the type knoun? 
Yes...continue 


.use $1ze in records 


Skip the start of file field 


length of file in records 


Swap 00, D1 (D1 @ start of field) 
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1200 F6469 24 P= 4 
1201 F646B AF2 C=O W 
j 1202 F645E 8£00 GOSUBL =GETBYT Read 5 bytes into C[9:0] 
oo 
1203 F6474 RE2 C=0 B Throw away low byte 
1204 x 
1205 : C[W] is now the file size in bytes (records * 256) 
1206 
1207 F6477 7081 GOSUB SWAPO1 Restore D1 fron DO 
1208 F647B 6590 ’ GOTO BLDC6O File size (bytes) in C[{W] 
1209 - 
1210 r- 
1211 F647F D9 = BLDC5O C=B A 
1212 F6481 £6 C=C+1 A Skip create code 
1213 F6483 134 DO=C DO points to start of entry 
1214 F6486 AF2 C=0 W 
1215 F6489 1564 C=DATO $ Read copy code fron type table 
1216 F648D 161 DO=D0+ 2 Point to offset to data 
1217 F649 14€ C=DATO B Read offset to data value 
1218 F6493 AFS B=C W Copy to BW) 
1219 F6496 1800 DO=(5) (=SCRTICH)+56 Point to inplenentation bytes 
000 
1220 F649D0 94E CHO |S Copy code zero? 
1221 F6ARO 42 : GOYES BLDC52 No...check further 
1222 
1223 : Copy code zero...length is (IMPL)-(oDATA)+(1F LEN) 
1224 
1225 F64A2 1585 A=DATO 6 Read in the length field 
1226 F64A6 20 P= 0 
1227 F64A8 3100 LC(2) =lFLENh Length of FLEN field 
1228 F64AC 25 P= 5 
1229 FO4RE At2 C=C+A WP 
12% Fe4Bi B19 C=C-B WP Subtract offset to data 
1231 F64B4 550 GONC BLDCS1 
1232 FO4B? AF2 C=0 W If less than zero, set =0 
1233 F64BA BLDC51 
1234 k 
1235 * Nou CW) is the length in nibbles 
1236 * 
1237 F64BR B76 C=C+1 W Add one to round UP if odd 
1238 Fe4BD 81E CSRB Convert to bytes 
1239 F64CO 6050 GOTO BLDCEO—C Done (size in C[W]}) 
1240 x. 
1241 x- 
1242 Feac4 BLDC52 
1243 , 
1244 * Check further on the copy code 
1245 & 
1246 F6AC4 A46 C=C+C = § Copy code 8? 
1247 F6AC7 550 ; GONC BLDC54 Not copy code 8...continue 
1248 
1249 * Copy code 8...use length in records to display size 
1250 x 
1251 FeaCR 430 GOC BLDC5? Go aluays 


1252 xe 
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1253 
1254 
1255 
1256 
1257 
1258 
1259 


1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 


1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 


1285 

286 
1287 
1288 
1289 
12% 
1291 
1292 
1293 


1294 
1295 
1296 
129? 
1238 
1299 
1300 
1301 
1302 
1303 


Fe4co 
F64D0 © 


F64D3 
F64DA 


F64DD 
F64EO 


F64E3 
F64E?7 


FO4ED 
F64F 1 
Fe4F4 
FOF? 


F64F A 


FO4FA 
FEAFE 
F6501 
F6504 
F6508 


FeS50E 
F6511 


F6514 


FoS1A 
Feil 
FOSIF 
Febot 
F6523 
F6526 
F6528 


R46 
500 


1B00 
000 
4n8 


A46 
591 


7411 
8E00 
00 
7A01 
BFe 
8iE 
591 


15€3 
163 
AFO 
15A3 
8E00 


AF6 
AFA 


8E00 
Q0 
eF 
900 
90 
oD 
58F 
20 
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x. 


BLDC54 C=C+C § 
GONC BLDC56 
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Copy code 4 (LIF1)? 
No...keep checking 


* This is LIF1...use length in records 
i 


BLDC5? DO=(5) (=SCRTCH)+32 
GOC BLDC45 


x. 
ke 


BLOCS6 C=C+C §$ 
GONC BLDC58 
x 


* 41C (SDRTA) data file 
k 


GOSUB ‘SWAPO1 
GOSUBL =GT2BYO 


GOSUB SWAPO1 
CSL W 
CSRB 
GONC BLDCE6O 
te 
ke 


BLODC58 

* 

* TITAN data file 
* 


C=DATO 4 
DO=D0+ 4 
A=0 W 
A=DATO 4 
GOSUBL =A-MULT 


t 
* ALH] 1s now the length 
x 


C=A W 
BLDC60 «=A=C W 
k 
® Convert size to decinal... 
k 

GOSUBL =HTODX 


P= 15 
BLDCo5 =*BHO OP 
GOYES BLDC70 


P=P- 
GONC — BLDC65 
P= 


BLDC 70 
k 


Length in records 
Go aluays (use record length) 


Copy code 2 (41C data file)? 
No...nust be TITAN data file 


Read 2 bytes (size in registers) 


Multiply by 8 bytes/register 
Go always (Size in cry) 


Read # of records 
Position to record length 
Clear high nibs of atu 
Read record length 

Leaves result in A[W] 


Copy to C(W} 
Copy size to A[W] 


Result in B[W] 


Non-zero digit 


Go unless B[W]=0 
Indicate 1 digit 


* Now B[WP] 1s the decimal value of size 
x 
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134 
1305 
16 
1H? 
1H8 


19 
1310 
1311 
i 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
12 
1343 
1344 
1345 
1346 
1H? 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1366 


F6528 
F652 
F652F 
F6532 
F6534 


F653C 
F653E 
F6541 
F6544 


F6546 
F6549 
F654B 
F654E 
F6551 
F6553 
F6556 
F6559 
F655C 
FOSSF 


F6561 
F6563 
F6566 


F656A 


F6S6A 
FoS6C 
F656E 
F6S?1 
F6573 
F6575 
F6579 
Fe5?7C 
F657E 
F6581 
F6584 


F6587 


80CF 
ACS 
AC3 
20 
3500 
B4D4 
2F 
5 
985 
62 


BF6 
F6 

BFS 
BFS 
05 

AOS 
BF5 
550 
B75 


2c 
H8 
6ADF 


DA 
24 
96A 
40 
OD 
7ADO 
968 


149 


171 
171 


1B00 
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C=P 15 
B=C $ Save (WP) an B[S] 
DO 8S Set D[S]=0 (for WRTASC) 
P= 0 
LC(6) \NK\~O C({B) 1s current node 
P= 15 
UC(1) § 
BLOC71 7B<C P Are there more than 5 digits? 
: GOYES BLDC75 No...continue 
* Hore than 5 digits... 
* ...1f 5-8 digits, represent as xxxxK 
x ...if >8 digits, represent as xxxxM 
x 
CSR OW 
CSR A Shift next #0/K/M into C{B] 
BSR W 
BSR WW 
SE TDEC 
B=B+B P Rounding digit 
BSR so 
GONC BLDL72 
B=B+1 W Add one for rounding 
BLOC72 SETHEX 


x 
* For the case of >8 digits, this will execute this code a 

* third tine. The ?B<C P test will fail, as B{12] wall be 
* zero from BSR W’s that have been done the first 2 tines 
x 


p= 15-3 Point to current length location 
iC(1) 8 Are there nore than 8 digits? 
COTO BLDC?1 Check for nore than 8 digits 


xe 
xe 


BLOC 75 
x 


* Now C[B] is the tail character, B[A] is the value, PHO 
x 


A=C A Copy C({B] to AB) 
P= 4 5 digits unless C[B]#0, then 4 
*C=0 «=—«B Is the suffix (Null)? 
GOYES BLDC?7?7 Yes...5 digits 
P=P-1 No...4 digits 

BLDC77 GOSUB WRTASC Write the ASCII to the text area 
7A-0~— iB Is suffix character zero? 
GOYES BLDC?78 Yes...go on 
DATI=A B No...u“rite the suffix character 
D1=D1+ 2 Skip suffix character 

BLOC 78 D1=D1+ 2 Point to date/tine field 


* Now D1 @ start of date field of text 
k 


hO=(5) (=SCRICH)+40 Point to tine/date field 
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138? x 
1358 : Next seven lines are to convert YYMMDD to MMDDYY 
1359 
1360 F658E 1565 C=DATO 6 Read in YYMMDD 
1361 F6592 163 DO=D0+ 4 Point to DD 
1362 F6595 14C DATO=C B Write out YY 
1363 F6598 183 DO=D0- 4 
1364 F659B BF6 CSR W 
1365 F659E Fé CSR A 
1366 F65AO 15C3 DATO=C 4 Write out MM DD 
1367 x 
1368 F65A4 20 = 0 
1369 F65A6 AF2 C=0 W 
1370 F65A9 3103 LCASC \O\ Set high nib of A[B] for digits 
1371 FéSAD DA A=C A 
1372 FOSAF 39F2 uCASC \: ff Separator for MM/DD/YY HH:MM 
F202 
AW? 
1373 F65BB 160 BLOC80 DO=D0+ 1 
1374 F6OSBE 15A0 R=DATO 1 Read first digit 
1375 FesC2 149 DAT1=A B Write first digit 
1376 F65C5 171 D1i=D1+ 2 
1377 F65C8 180 DO=D0- 1 Point to second digit... 
1378 F6SCB 15A0 R=DATO 1 iratOad’ ites 
1379 FeSCF 161 DO=D0+ 2 (skip to next digit) 
1380 Fe5B2 149 DAT1=A B ...and write second digit 
1381 F65D5 171 Di=Di+ 2 
1382 F6508 14D DATI=C B Write the separator 
1383 F65DB 171 Di=D1+ 2 
1384 F6SDE BF CSR W 
1385 FOSE1 BF6 CSR W Shift in next separator 
1386 F6O5E4 96E *7C#0)— «BB Done yet? 
1387 F65E7 40 GOYES BLOC80 No... continue 
1388 * 
1389 * Set D1 back to start of text... 
1390 x 
1391 F6S5E9 2B P= 16-5 Loop 5 tines 
1392 F65EB 1CF BLOC9IO D1=D1- 16 (16*5 nibbles in text) 
1393 F6SEE OC P=P+1 
1394 FOS5FO SAF GONC BLDC9O 
1395 F65F3 800 GOSUBL =TRESDO Restore 00 fron FUNCDO 
00 
1396 FeSF9 03 RTNCC Return with carry clear 
139? t 
1398 a 
1399 FoSFB 136 =SWAPO1 CDOEX Suap DO, D1 
1400 FOSFE 13? CD1EX 
1401 F6601 136 CDOEX 
1402 Fe604 01 RTN Don’t change carry 
1403 JOGO IS III IIIT ITI TTR EI I IIE 
1404 FORO IOI IIIT OTTO IORI IO ICO III IGE 
1405 xx 
1406 ** Nane: DSPCAT - Display a CAT text string fron @ D1 
1407 AY 


1408 ** Category: LOCAL 
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1409 ak 
1410 *k Purpose: 
1411 a Send 40 bytes (starting at D1) to the display 
1412 a 
1413 eX Entry: 
1414 ak D1 @ start of data 
1415 ab 
1416 KK Exit: 
1417 ak P=0 
1418 ak 
1419 ae Calls: DO=FRO, SHAPO1 , CKINF-, SEND20, CURSFL, CRLFND 
1420 x 
1421 KK Uses....... 
1422 ra Inclusive: A-D,RO,D0,D1,all FUNCxx except FUNCRO, STMTRO,P 
1423 
1424 AK Stk lvls: 5 (CURSFL) 
1425 ak 
1426 ** History: 
1427 aa 
1428 Rx Date Progranner Modification 
1429 BK meme enn renee nen ne ren enn ne nen ne nn ee enn eee 
1430 a 12/06/82 NZ Added code and docunentation 
ee JOO OI IOI IIIS I IIIT TTI II IIIT ATO SIT ITI TA 
1433 JOO CCI OTTO TET TTT TIA 
1434 F6606 20 = =DSPCAT P= 0 
1435 F6608 8EOO GOSUBL =DO=FRO Set DO=FUNCRO 
00 
1436 F660E 1527 A=DATO W 
1437 F6612 100 RO=A Save FUNCRO in RO 
1438 F6615 72EF GOSUB SWAPO1 Save D1 in DO 
1439 F6619 8FOO GOSBVL =CKINF - Set up display, check info 
000 
1440 F6620 77DF GOSUB SWAPO1 Restore D1 
1441 F6624 110 A=RO Restore FUNCRO fron RO to AW)... 
1442 F6627 8EOO GOSUBL =DO=FRO ...set DO @ FUNCRO... 
00 
1443 F6e62D 1507 DATO=A W ...and write to FUNCRO 
1444 F6631 133 ADIEX Get 01 into A[A]} 
1445 F6634 D2 C=0 A 
1446 F6636 3182 LC(2) 40 Send 40 bytes 
1447 F663A DE ACEX A A[A}=length in bytes, C{A]=start 
1448 F663C D7 D=C A D[A]=start of string 
1449 x 
1450 ; D(A] is at start of string, A[A] is length 
1451 
1452 F663E 8FOO GOSBVL =SEND20 Send it, ignore width 
000 
1453 x 
1454 * Set no delay, cursor far left 
1455 x 
1456 Fo645 8FOO GOSBYL =CURSFL Cursor far left 
000 
1457 F664C 8D00 GOVLNG =CRLFND Cr, Lf, no delay (builds display) 


000 
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1458 
1453 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
148? 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1516 
1511 
1512 


F6653 
F6656 
F6658 


90D 
FO 
171 


Fe65B OD 


Feesp 
F660 
F6662 


Fo665 
F6668 
Fe66R 
Fe66D 
F6671 
F6674 
F667? 


55F 
20 
iC4 


948 
51 
13? 
1DD2 
13? 
1¢1 
140 
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FOI TIO ITI TTT OI TTI III 
FOI IOI UII OTITIS TIT TIT IKI 
xk 


** Nane: WRTASC - Write out a decirial nunber in ASCII 
ka 

** Category:  GETUTL 

ch 

** Purpose: 

mA Write a decinal nunber fron B[WP] to RAN @ D1 

a 

** Entry: 

a D1 at intended destination field (initialized to \ \) 
a P is the first digit location in B to be considered 
ak B[WP] is the value 

aK D[S] is sign of value (D[S]=0:positive; else negative) 
wh 

ek Exit: 

ah D1 past the last digit 

ak P=1 (NOTE THIS!) 

Rk Carry clear 

te 

** Calls: None 

ak 

AE USES cas vas 

** Inclusive: C[S,WP],01,P 

ek 

* Stk lvls: 0 

ak 

** Detail: 

a Write out the digits, starting with the first non-zero 
ak digit (if B[W]=0, write a single zero out) 

ek 

** History: 

ak 

xx Date Progranner Modification 

Ws Se etostn eS eeees, Seslue Meee ae ee eee 
RK 12/06/82 NZ Added docunentation 


ak 
FOI OIC IO OI IO IO TO TOIT 
FORO OO I I IO ITI III 


=WRTASC ?7BHO OP Is leading digit non-zero? 


GOYES WRTAIO Yes... found a non-zero digit 
Di=Di+ 2 No...skip to next text location 
P=P-4 Decrenent P (if zero, mill carry) 
GONC  WRTASC Goa unless B[WP] was zero 
P= 0 B[WP] was zero...output 1 digit 
Di=D1- 2 (Back up the last add) 

* 

WRTAIO *D=0 = § Check the sign field 
GOYES WRTAZO Positive...NO sign output 
CDIEX Negative...output a leading "-" 
D1=(2) \-\ Put a "-" in C[B], leave P as is 
CDIEX 
D1=D1- 2 


DAT1=C B Write the leading sign 
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1513 F667A 171 Di=Di+ 2 Point back to first digit 
1514 F667D WRTAZO 
1515 x 
1516 : Nou P is the first digit, D1 at text location for first digit 
1517 
1518 F667D 80CF : C=P 15 Save the pointer in C[S] 
1519 
1520 F6681 80DF WRTA30 = P=C 15 Get pointer to P again 
1521 F6685 A89 C=B P Copy B[P] to C[P] 

1522 F6688 890 WRTA4O ?P= 0 
1523 F668B AO GOYES WRTASO Digit 1s in C(O} now 
1524 F668D B96 CSR WP 
1525 F6690 OD P=P-1 
1526 F6692 55F GONC WRTA4O Go aluays 
1527 ae 
1528 a 
1529 F6695 21 WRTIRSO P= 1 
1530 F6697 303 LCHEX 3 High nibble for ASCII # 
1531 FeegA 14D DAT1=C B Write the digit 
1532 F6639D 171 D1=D1+ 2 
1533 F66RO R4E C=C-1 § Check if tore digits 
1534 F66A3 5DD ; GONC WRTA30 Not done yet...continue 
1535 
1536 * Have finished writing B[W] out in ASCII 
153? x 
1538 F66R6 03 RTNCC 
1539 R= 
1540 a 
1541 Fe6éAs E6 9 C+iRCS C=C+1 A Add 1 to C[A], CSRCS 
1542 F66AAR 8C00 Csrc5 GOLONG =CSRC5 
00 
1543 a> 
1544 a 
1545 Fe6BO D2 C=1LC5 C=O A Set C(AJ=1, CSLC5 
1546 F66B2 £6 C=C+1 A 
1547 F66B4 8C00 Cslc5 GOLONG =CSLC5 
00 
1548 ne 
1549 Re 
1550 F66BA 8COO0 CsrciO GOLONG =CSRC10 
00 
1551 as 
1552 a 
1553 F66CO 8COO Di@ave GOLONG =DI@AVE 
0 
1554 a 
1555 Rs 
1556 F66C6 8COO Nxtent GOLONG =NXTENT 
0 
1857 x 
1558 = 
1559 FO6CC 8000 Lstent GOLONG =LSTENT 
00 


1560 Fe6D2 END 
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A~MULT 
BF 2DSP 
BLANKC 
BLDC10 
BLDC20 
BLDC 30 
BLDC40 
BLDC45 
BLDC50 
BLDC51 
BLDC52 
BLOC54 
BLDC56 
BLOC58 
BLDC5? 
BLDC 60 
BLOC65 
BLOC 70 
BLDC? 1 
BLDC 72 
BLOC 75 
BLOC??? 
BLDC 78 
BLOC 80 
BLDC 90 
=BLDCAT 
C+1RC5 
C=1LC5 
CHKNAS 
CK=ATn 
CKBITL 
CKINF- 
CRLFND 
CSLC5 
CSRC10 
CSRC5 
CURSFL 
Cslc10 
Cslc5 
Csrcl0 
Csrc5 
DO=FRO 
DI=AVE 
DI=AVS 
DI@AVE 
DIGAVS 
Di@ave 
DDT 
DEVPR$ 
=DSPCAT 
Endtap 
Error 
F-RO-1 
FINDA 
FIXSPC 


Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Rbs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 


1008591 #F63CF 
1008656 #F6410 
1008676 #F6424 
1008733 #F645D 
1008741 #F6465 
1008767 #F647F 
1008826 #F64BA 
1008836 #F64C4 
1008845 #F64CD 
1008861 #F64DD 
1008890 HFO4FR 
1008851 #F64D3 
1008913 #F6511 
1008924 #F651C 
1008936 #F6528 
1008961 #F6541 
1008991 HFO655F 
10039002 #F656A 
1009013 #F6575 
1009028 #F6584 
1009083 #F65BB 
1009131 #FO5EB 
1008533 #F6395 
1009320 HF66AR8 
1009328 #F66B0 


1009332 #F66B4 
1009338 #F66BA 
1009322 #F66AR 


1009344 #F66C0 


1009158 #F6606 


1284 

232 
1104 
4111 
1151 
1159 
1186 
1199 
1211 
1233 
1242 
1254 
1263 
1276 
1259 
1289 
1295 
1300 
1311 
1327 
1338 
1347 
1352 
1373 
1392 
1084 
1541 
1545 

484 

250 

181 
1439 
1457 
1547 
1550 
1542 
1456 

385 
1547 
1550 
1642 
1435 

306 

710 
1583 

582 
1553 
1047 

463 
1434 

312 

224 

548 

284 

540 
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1114 
1144 
1135 
1156 
1260 
1191 
1231 
1221 
1247 
1255 
1264 
1251 
1208 
1298 
1296 
1335 
1325 
1312 
1345 
1349 
1387 
1394 

200 

792 

391 


678 
390 
359 
378 
1442 


458 


201 


472 
556 


1239 


253 
870 
704 


985 


387 
383 


569 


254 


1273 


676 
672 


1084 
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780 
703 


326 
791 


874 
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Findf+ Ext - 191 
GDIRS+ Abs 1008478 #FE35E - 994 687 
GDIRSB Abs 1008454 W#F6346 - 984 797 91 929 
GETBYT Ext - 1202 
GETDR! Ext - 238 517 
GETDR+ Ext - 992 
GETMBX Ext - 686 695 
GT2BYO Ext - 1269 
GT2BYT Ext - 1124 
HTODX = Ext - 1154 1293 


LC40*2 Abs 1007791 HFEORF - 397 W8 708 
LC80** Abs 1007789 #F60RD - 396 558 


SSEEKRD Abs 1008493 #F636D 1035 782 4698930931 
SEND20 Ext 1452 

SETCAT Abs 1008177 #F6231 - 707 199 

SETenn Abs 1008210 #F6252 - 724 716 


LSTENT Ext - 1859 

Lstent Abs 1009356 #F66CC - 1559 384 883 887 90 
NEEDSC Ext - wi 

NORAMe Ext - 724 

NXTENT Ext - 1556 

Nxtent Abs 1009350 #F66C6 - 1556 360 781 793 880 
POPIN Ext - 493 

POP1S Ext - 459 

POPBUF Ext - 266 320 

R<RST2) Ext - 685 

RESTD1 Ext - 233 272 

REV$ Ext - 615 

RPTKY Ext - 267 

RST2<R Ext - 694 

Read Ext - 1046 

SAVED1 Ext - 198 229 

SCRLLR Ext - 269 

SCRTCH Ext - 994 1092 1219 1259 1356 


START = Ext - 236 276 
sSWAPO1 Abs 1009147 HF65FB - 1399 1123 1125 1199 1207 1268 1270 1438 
1440 
Seeka Ext - 1044 
TRES20 Ext - 696 
TRESDO Ext - 1395 
TSAV2C Ext - 693 
TSAVDO Ext - 1091 
TSTAT = Ext - 1042 
TSTRTA Ext - 1049 
UTLEND Ext - 252 261 


WRTR10 «Abs 1009253 #F6665 - 1506 1499 

WRTAZO Abs 1009277 #F667D - 1514 1507 

WRTA30 Abs 1009281 #F6681 - 1520 1534 

WRTA40 Abs 1009288 #F6688 - 1522 1526 

WRTA5O «Abs 1009301 #F6695 - 1629 1523 
SWRIASC Abs 1009235 #F6653 - 1498 1153 1347 1502 


aVE=D1 Ext - 498 608 
eDSPEC Ext - 468 
eNORAN Ext =: “$36 


eRANGE Ext - 470 
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FLIDH Ext =. BO? 

FTIYPFR Ext - 1131 

=hCAT Abs 1007249 #F5E91 - 181 

zhCAT$ Abs 1007807 HFOOBF - 454 

hCAT$2 Abs 1007841 #F60E1 - 475 464 


HCAT$3 Abs 1007908 #F6124 - 522 529 

hCAT$4 Abs 1007951 HFG14F - 547 524 

hCAT$5 Abs 1007984 #F6170 - 562 512 521 533 
hCAT$6 Abs 1007988 #F6174 - 567 559 

hCAT$e Abs 1007837 #FG0DD - 472 519 527 537 
WCAT$n Abs 1007934 #F613E - 536 595 

HCAT$x Abs 1007801 #F60B9 - 449 469 471 480 485 
HCATAL Abs 1007297 HFSEC1 - 206 187 

hCATeR Abs 1007435 HF5F4B - 237 240 

hCATer Abs 1007391 HFSFIF - 224 192 237 323 
hCATs1 Abs 1008124 HFOIFC - 693 691 

hCATsu Abs 1008057 #F61B9 - 662 239 518 
hCATsx Abs 1008208 #F6250 - 721 701 

hHCAt$S Abs 1007931 #F613B - 533 507 

hCTAR& Abs 1007725 RF606D - 368 358 361 382 
hHCTA&+ Abs 1007719 #F6067 - 363 393 

HCTA&t Abs 1008289 HF62A1 - 812 922 

hCTA+ Abs 1008216 #F6258 - 766 330 349 526 
HCTA+! Abs 1008302 HFO2ARE - 819 805 

hCTA++ Abs 1008284 HFe29SC - 810 789 

hHCTA+1 Abs 1008244 #F6274 - 784 803 

hCTA+2 Abs 1008247 HF6277 - 788 776 

HCTA+C «Abs 1008273 #F6291 - 802 688 

hCTA+x Abs 1008300 HF62AC - 816 771 920 

nCTA- Abs 1008312 HFO2B8 - 869 341 %? 
hCTA-1 Abs 1008358 HFe2E6 - 886 879 881 
hCTA-2 Abs 1008371 HF62F3 - 895 884 

hCTA-3 Abs 1008398 #F630E - 916 873 

hCTAIO =Abs 1007395 HFSF23 - 227 210 

hCTA20 Abs 1007460 HFSFO4 - 250 242 370 
hCTA21 Abs 1007486 HFSF7E - 258 251 

hCTR22 Abs 1007498 HFSF8A - 266 255 

hCTA25 Abs 1007505 HF5F91 - 267 271 

hHCTR30 Abs 1007522 HFSFAZ - 270 268 

hHCTA35 Abs 1007527 BFSFA? - 272 203 

hCTA38 Abs 1007609 HFSFF9 - 305 258 298 
hCTR39 Abs 1007627 HFOOOB - 311 4 = 614 

hCTR= Abs 1008420 #F6324 - 925 368 

hCTAb] Abs 1007732 #F6074 - 370 333 

hHCTAbt Abs 1007685 HFHO45 - 345 290 352 
HCTRct Abs 1007489 HF5F81 - 261 334 

hCTRdn Abs 1007661 #FOO2D - 326 286 

hCTReR Abs 1007548 HFOFBC - 278 262 

hCTRer Abs 1007638 #FO016 - 318 278 331 350 369 
hCTRex Abs 1007591 #FSFE? - 299 243 

HCTAt1 Abs 1007756 #FO08C - 384 389 

hCTAtp Abs 1007736 #F6078 - 373 292 

hCTAup Abs 1007677 #F603D - 337 288 

hCTAxx Abs 1007665 #F6031 - 331 342 

kKHBOT = Ext = 209 
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k#DOWN 
kT OP 
kRUP 
IFLENh 
=rfV$ 


Ext 
Ext 
Ext 
Ext 
Abs 1008050 #F61B2 
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Table 


285 
291 
287 
1227 
615 
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Input Paraneters 
Source file narie 1s NZ&CAT: : MS 
Listing file nane is NZ/CAT:TI:ML::-1 
Object file nane 1s NZ2ZCAT: TI: MS: 3-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 
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* 
x NN 222272 & III 00000 RRRR 
* N ON z7 &8 I 0 OR R 
x NN ON zZ &8& I 0 OR R 
x NNN 2 & I O 0 RRRR 
* N NN 2 &&& I 0 OD RR 
* N N 2 && I 0 ORR 
x N N 22272 8&8 & III 00000 R_ R 
x 
x 

TITLE I/O(NEW Marlbox)<831101.2117> 

ABS  #F66D2 TIZHP6 address (fixed) 
i 
* Mailbox locations and bits 
i 
=oOUTST EQU 6 
=oOUTHS EQU = 7 
NAV EQU  O 
NRD EQuU. 1 
=oINHS EQU 8 
=oINST EQU 3 
k 
* Local handshake bits 
k 
sPUTX EQU 0 
sGETX EQU 9 
sCHKER EQU 1 This MUST not be sane bit as MAY! 
i 


* End of equates 
* 


FOI ITI TIO IOI TOT TIO TITS I TIT II 
FOI IIIT TOOT OT TOT ITI TI IO ITI ITI ITN 
ak 


*X Narie: READIT,READSU - Read into RAM fron loop 
ae 

xX Category: PILI/0 

ak 

** Purpose: 

= Read data, given a buffer to put 1t into, and a count 
a of hou many bytes to enter 

kk 

** Entry: 

ax DO) points to mailbox 

ae D1 points to the input buffer 

ae A[A] 1s the number of bytes to read 

ak A[S] 1s the converstion type for Dianond 

aX 

aX READSU: C[5:0] 1s start message and count 

oe READIT: the conversation is started 

ae 

RR ERAT 

*% Carry clear: D1 points past the last character 
a A[A] 1s zero 


x Carry set:  Error...A[A] 1s the nurber of bytes left 
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56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

a7 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 F66D2 25 
97 F66D4 ASA 
98 F66D? 7A74 
99 F66DB 400 
100 
101 

102 

103 F66DE 8A8 
104 F66E1 26 
105 F66E3 7E50 
106 F66E? 462 
107 F6BER 890 
108 Fe6ED 94 
109 

110 FO6EF 132 


I/O(NEW Mailbox )<831101.2117> Tue Jan 17, 1984 12:16 pn 


Page 2 

: in the buffer 

ak If P= =ePIL, C[6:0], [S] is status nsg 
xe fron Diamond ([S] has been doubled) 
me Else C{W] 1s undefined 

x 
+t Calls: PUTE, GETX, FRANE ~ 
ae 

BE USCS oc xvene 

xx Exclusive: A[5:0],C({W],D1,P 

x* Inclusive: A[5:0],C[W],D1,P,S1[3:0] 

ka 
kt Stk lvls: 1 (FRAME-)(GETX) (PUTE) 
kk 

*x Algorithn: 

xk READSC: Save conversation descriptor in A[5:0] 

aK READS+: Start the conversation (PUTE) 
ak READIT: If no more data to read (A[A]=0) then RINCC 

ak Get a nessage fron Diarond (GETX) 
ak If not data, check the message: (FRAME-) 
aK If E0T or terminator match, GOTO READS+ 

kK else error 
ak (data) 
ak If PHO then write out 3 data bytes 

a else write out 1 byte 

ge Increnent D1 past data just written 

ae GOTO READIT 

kk 

** History: 

ke 
nf Date Progranner Modification 

ki. “Ecicneean -smssucesnoe  ‘Semacmreuameckeaeiaemoawawoescas aa 
Xk 09/20/83 NZ Updated docunentation 
kK 04/07/83 NZ Changed to handle E0T, terninator 
ak 41/23/82 NZ Added docunentation 
re 


JOUR TOI JOO II RIO TIO IRI SII IIS TI ITT TIKI 
FORO II ORI IOI II IIIT IID IIIT IDI IDET A TTI K 
x 


; START THE CONVERSATION... 


=READSU P= 5 Save start conversation in A[5] 
A=C WP 

READS+ GOSUB PUTE 
RTNC 


k 
x ,..READ THE DATA 
x 
=READIT 7A=0 =A 


GOYES READII Done! 

GOSUB GETX 

GOC READER Error if carry 

?P= 0 

GOYES READI3 Single byte transfer 
* must be a triple-byte transfer 

ADOEX 
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111 F66F2 182 

112 FO6F5 132 

113 F66F8 4CO 

114 F66FB 1505 

115 F66FF 175 

116 F6702 5BD 

117 

118 

119 

120 F6705 20 

121 F670? 300 

122 F670A 20 

123 F670C 02 

124 

125 

126 F670E 89 

12? F6711 OO 

128 F6713 8E00 
00 

129 F6719 8% 

130 Fe71C 21 

131 Fe71E AF6é 

132 F6721 8% 

133 F6724 3B 

134 F6726 8% 

135 F6729 EA 

136 F6?72B 59D 

13? 

138 

139 F672E 8004 

140 F732 6221 

141 

142 

143 F6736 CC 

144 

145 F6738 14D 

146 F673B 171 

147 Fe73E SF9 

148 

149 

150 

151 F6741 02 

152 

153 

154 F6743 03 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 
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DO=D0- 3 
ADOEX 
GOC READI2 Read too many! (Can "never" be) 
DAT1=C 6 
Di=Di+ 6 
GONC READIT GO ALWAYS... loop back for tore 
x 
* If fall through, ERROR! 
READI2 P= 0 If here, A[A] is <O...too far! 
LC(1) =eUNEXP 
P= =ePIL 
RTNSC 
k. 
ke 
READER ?P= =eABORT Is this an ABORT? 
RTNYES Yes...error! 
GOSUBL =FRANE- Decode what it is 
?P= =pSTATE Is this "Current state"? 
GOYES BADRD1 Yes...error in C[4] 
C=A W Can destroy C(W} now! 
?P= =pEOT Was it an EOT? 
GOYES READS+ Yes...restart it 
?P= =pTERM Was it a terminator char? 
GOYES READS+ Yes...reset count, continue 
GONC READI2 No...error! 
ke 
x 
BADRDi P=C 4 Fetch the error nibble... 
GOTO GETSTe2 Go always (CPEX 0,P= ePIL,RTNSC) 
x 
ke 
=READI3 A=R-1 A Single byte transfer 
* can never carry...since A[A] was not zero! 
DAT1=C B 
D1i=D1+ 2 
GONC READIT GO ALWAYS... Loop back for tore 


ke 
xe 


* if fall through, than ERROR! (can "never" happen) 
RINSC 


aL 

READI9 RINCC 

RRR IOI TO ROUGE ITO OO OO 
FORO ROO III TO OO OOOO OI ORIG 
xk 


A* Nane: GETX - Fast DATR input routine 
te 


kx Category: PILI/0 

a 

** Purpose: 

AS Fast data input routine...read DATA bytes as quickly 
Zs as possible 
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165 ak 
166 **k Entry: 
167 RK DO points to the nailbox 
168 x Conversation is set up and started 
169 ax 
170 ak Exit: 
171 ak If carry clear: 
4 172 aX P=0: C[B] is a data byte 
; 173 kK P=2: C[5:0] 1s three byte quantity; C(B] is first! 
174 x If carry set: 
1 175 x P=0: C[6:0] is message, C[S] is status*2 
176 aX PHO: Aborted (P= =eABORT) 
177 ak 
178 ** Calls: None 
179 aK 
180 £* Uses....... 
181 kk Inclusive: C{W],P,51[3:0] 
182 Xx 
183 ** Stk lvls: 0 
184 ax 
185 tk History: 
186 ae 
187 a Date Progratiner Modification 
188 0 Sead etes: selieeetaoe “ep eeue tea cos eet kee a oka 
189 kK 09/20/83 NZ Updated docunentation 
190 tk 04/07/83 NZ Changed exit condition for not 
191 x data to P=0, carry set 
192 &k 03/02/83 NZ Changed to check for sERROR bit 
193 *k 02/15/83 NZ Changed error for ATIN to eABORT 
194 ie 11/23/82 NZ Added docunentation 
{ 
ie $0 COO TOS I TOSI OSIRIS SIO III ITI ITH 
197 JI IOC IRS OSI TOSI OS OS TOSS IO IO OTT OTH 


198 F6745 167 =GETX DO=D0+ oINHS 
199 F6748 OB = GETX1 =CSTEX 


200 F674R 15E0 C=DATO 1 Read handshake 

201 F674E OB CSTEX 

202 F6750 860 7S8TH#1 = MAV 

203 F6753 62 GOYES GETXE No ressage yet! 

204 * wessage available! 

205 F6755 160 GETX2 DO=D0+ (oINST)-(oINHS) 

206 F6758 15E6 C=DATO 7? 

207 F675C 816 CSRC Now C[S] is the status nibble 
208 F675F 188 DO=D0- oINST 

209 F6762 A46 C=C+€ § Check if Three~-byte transfer... 
210 F6765 560 GONC GETX3 Not triple byte 

211 F6768 22 P= 2 Indicate triple byte! 

212 F676AR 03 RINCC 

213 tS 

214 x 

215 F676C GETX3 

216 . 

217 : Either single byte or not data! 

218 


219 Fe76C 80D2 P=C 2 Check opcode 
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220 
221 
222 
223 
224 
225 
226 
227 
228 
223 
en 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
24? 
248 
249 
250 
251 
252 


253 
254 
255 
256 
257 
258 
259 
260 
261 
eb2 
263 
c64 
265 
© 66 
eb? 
268 
269 
270 
27) 
e7e 
e73 


F6770 
F6?73 
F6775 
F677? 


F6779 
F677C 
F677F 


FO77F 
F6782 
F6784 
F678? 
F678B 
F678E 
F6790 
F6793 
F6795 
F6797 


F679A 
F679D 


F679F 
F6?R2 


F67R9 
F67AD 
F67B0 
F67B3 
F67B5 
F67B8 
F6/BB 
F67BE 
F67CO 


Ferl2 
Fe?7CS 
Fe?C? 
Fe?CA 
Fo?7cl 


26 


888 
20 
20 
Of 


850 
851 


861 
81 
160 
15£0 
180 
OB 
870 
20 
OB 
432 


860 
$2 


136 
1B00 


1564 
134 
94A 
FO 
B46 
4% 
187 
20 
Qe 


Sot 
£0 
8b0 
Fq 
6B7F 
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?P#H 

GOYES 
GETK4 = P= 

RIN 


a 
kL 
x 


GETXE ST=1 
GETx.  ST=1 
GE TXNE 

a 


Page 5 
8 Data? 
GETX4 No... 
0 YES!!!... flag it as 1 byte! 


Carry clear if OK, else set 


sGETX This is GETX 
sCHKER BO check error bit 


* First check for error bit set 
k 


7§T=0 
GOYES 
DO=D0+ 
C=DATO 1 
DO=D0- 
CSTEX 
?ST=1 
GOYES 
GETx.. CSTEX 
: GOC 


* Now check if 
x 


GETx.N ?ST=0 


GOYES 
i 


sCHKER Should I check error? 
GETx.N No...check attn 
put (oINHS) Point to error nib 

Read nibble into C{0] 
(oINST}-(oINHS) Put it back where it was 


=sERROR Is the error bit set? 
GETx.. (Set carry if set) 
GETxE Error bit set...error'! 


the Attn key has been pressed 


=Attn 
GETX. Not waiting for Attn...continue 


* Check if "ATIN" key has been pressed TWICE 
k 


CDOEX 
DO=(5) 


C=DATO 
DO=C 
2C=0 
GOYES 
C=C+1 
GOC 

GETxE (=D0- 
P= 
RINSC 

ke 

ke 

GETX. *$T=0 
GOYES 
?S$T=0 
GOYES 
GOTO 


Save DO in C{A] 


=ATNFLG 

$ 

S 

GETX. If not ATIN, keep trying 

S Check if hit riore than once... 
GETX. No...continue 

oINHS Yes...reset DO. 

=eABORT Aborted by ATIN key or error! 
sCHKER Is 1t GETNE? 

GETNO This 1s GETNE 

sGETX Is it GETX or GET? 

GET1 This 1s GET 

GETX1 This 1s GETX 


©. 0.0 5.2.9.6.0.9.0.5.0.9.5.2,0,5.0.0,5,8,0,0,9,0,00,5,0.2.5.2,0,5,5,5.2,0.5.0,9.0,6,9,0,0,0,5.5.0.5.0,5,2.5,0,0.0.5.9.2.5 
FORO RIO OOO I ISO OIG IOI III CIO OO IOI II 


ks 
&* Nare: 
tk Narie: 


GET - Get a ressage fron Dianond 
GETNE - Get a nessage without checking error bit 
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274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
2%) 
291 
292 
293 
294 
295 
296 
297 
298 
299 
HO 
HW) 
H2 
H3 
H4 
05 
6 
HY? 
HB 
09 
310 
311 
312 
313 
314 
315 
316 
3? 
318 
319 
320 
321 
322 
323 
324 
325 
326 
32? 
328 


F67D0 
F67D3 
F67D5 
F67D9 
F670B 
FO7DE 
F67E1 
F67E3 


FO7E6 


F67E9 
FO7EB 
F67EF 
F6?F1 
FO7F4 


F67F6 


ak 
xk EC 


ategory: PILI/O 


** Purpose: 


Kk E 


xx E 


ak 
ak 


aK S 
KH 


x 
ak 
ak 
xx 
kk 
ax 
ak 


ntry: 
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DX) points to the HPIL nailbox 


Kit: 
Carry clear: 


Contents of nailbox in C{7:0] 
Handshake nibble in ST[3:0] 
Status nibble in C(S] 


Carry set: 


Error (P=error nunber) 


alls: None 


Inclusive: C{W],ST[3:0] (P only if error) 


tk lvls: 0 
istory: 


Date Progranner 
09/20/83 NZ 
03/07/83 NZ 
03/02/83 NZ 
11/23/82 NZ 


Modification 
Updated docunentation 
Added GETNE 
Modified to share code with GETX 
Added docunentation 


FOR IUD TIT TT TT TN 
FOUR TIO III TRIO JI RIO II 


167 =GET 
OB GETN 
15£0 

0B 

841 

860 

E9 


521 
ke 


x. 
16? =GET 


OB GETI 

15E0 

08 

860 

11 
x 
x8 
x 


160 GET2 


NE DO=00+ oINHS 
O «CS TEX 
C=DATO 1 
CSTEX 
ST=0 — sCHKER 
7ST#1 NAV 
GOYES GETXNE 
GONC § GET2 


DO=D0+ oINHS 


CSTEX 
C=DATO 1 
CSTEX 

*ST#1 MAY 
GOYES GETS 


nessage 1S available 


Read handshake 
Clear the sCHKER bit for GETXNE 


No message, don’t check error 
Go aluays...nessage...get it! 


READ HANDSHAKE NIBBLE 


TS MESSAGE AVAILABLE? 
NO... CONTINUE WAITING 


DO=D0+ (oINST)-(oINHS) 
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329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
41 
He 
343 
344 
345 
46 
4? 
348 
349 
350 
351 
352 
363 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
374 
372 
373 
374 
375 
376 
37? 
378 
379 
380 
381 
382 
383 


FO7F9 15E6 
F67FD 816 
F6800 188 
F6803 03 


F6805 840 
F6808 637F 


Fe80C OB 
FO8OE 168 
Fo8ii 15E0 
Fo815 188 


F6818 OB 
Fo8iA O1 
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Page 
C=DATO 7 READ THE MESSAGE 
CSRC Put the status nibble in C[S] 
DO=D0- oINST 
RTNCC 
ke 
ko 
x 


* Waiting for frane available...check Attn flag 
x 


GET ST=0 — SGETX This 1s GET, not GETX 


GOTO = GETx. Check if Attn set 
JOGO IOC II ITI TI TO I III TIT ITT TTI ATID 


FORO TOI ITO ITT TOTO TT TIT 
aK 


xk Nane: GETHS2 - Get the second Diariond handshake nibble 
ak 


*k Category: PILI/0 
aa 


*x Purpose: 


ik Get the software status nibble fron the HPIL narlbox 
kk 

** Entry: 

a DO points to the HPIL nailbox 

kx 

kk Exit: 

ax Software status nibble in ST(3:0}, carry clear 

i 

** Calls: None 

ka 


AK Uses....... 
*k Inclusive: S$T[3:0] 
xx 


** Stk lvls: 0 
kx 

** History: 

ax 


as Date Progranner Modification 
TE stwcsote, ‘ceeeeumeta esau Guensdccelaiauuaucuseeonoud 


xk 11/23/82 NZ Added docunentation 

ka 

JORIS UCI CISC TCI IT I III 
JO IEIDISISI IIIS OIE IEISUGITOIIC EI IOI OTT TOK 


=GETHS2 CSTEX Save C{X] in ST[11:0] 
DO=D0+ oINST 
C=DATO 1 Read software status in C[0] 
DO=D0- oINST 


* PIL info in ST[3:0], C unchanged 
x 


CSTEX 


FICO ROI III OIG OCI OI I ITI OT TOK 
FORO FORO III OI III IOI 
aX 


** Nane: GETST - Get status fran Diariond 
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384 ** Nane: GETERR - Get error nessage fron Diariond 
385 ** Nane: GETST- - Read status nessage fron mailbox with- 
386 _ out checking the error bit 
387 ak 
388 ** Category: PILI/O 
389 a 
390 ** Purpose: 
391 ax Get status/error nessage fron Dianond 
392 Kk 
393 aK Entry: 
394 ak DO points to the HPIL nailbox 
395 ak 
396 ek Exit: 
397 ax Carry clear: PIL status in C(X], error # in C[3] 
398 ak P=0 
399 ak Carry set: Error (# in P,C[0]) 
400 ak 
401 *k Calls: PUTC+N, GETNE, FRANE+ 
402 xk 
403 BE GBS scents 
404 kk Exclusive: C[W], Pp 
405 *k Inclusive: C{W],ST[3:0],P 
406 xk 
407 RK Stk lvls: 1 (PUTC+N)(GETNE) (FRAME+) 
408 ret 
409 xx History: 
410 ah 
411 ah Date Progranner Modification 
412 RE -SSoceees ‘eee eecee. | Shee ethene dees eeouees ecm es 
413 ak 99/20/83 NZ Updated docunentation 
414 kk 03/19/83 NZ Changed both routines so that 
415 aia they wait for a status nessage to 
416 RK be sent by Diariond, instead of 
417 a erroring out with P=ePIL,C=eUNEXP 
418 kk 03/07/83 NZ Changed GETERR again...to use 
419 a new routines PUTC+N and GETNE 
420 ek 03/04/83 NZ Modified GETERR to wait for MAV 
421 a before calling GET (otherwise 
422 ee GET will check the sERROR bit 
423 es While waiting and abort out!) 
424 ak 02/03/83 NZ Modified GETERR to return with 
425 ax error if Dianond error # is #0 
426 - 11/23/82 NZ Added docunentation 
He JIG TOO II OI IIIT III ASI ISI ITA SAI TS 
429 JSD IIS TOTTI ITS ST TOSI SII IIT III IS IAI III 
430 F681C 20 =GETST P= 0 
431 F681E 310% LC(2)  =nSTATS Request status 
432 F6822 6900 GOTO  GETERO 
433 a. 
434 x. 
435 F6826 20 ==GETERR P= 0 
436 F6828 3100 LC(2) =nERSTS 
437 Fe82C 7043 GETERO GOSUB PUTC+N Write it 


438 F6830 400 RTNC 
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439 
440 
444 


442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
463 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 


F6833 799F =GETST- GOSUB 


F6837 400 
F683A 8E00 
00 
F6840 880 
FO843 OF 
F6845 8004 
F6849 BB2 
F684C 880 
F684F 60 
F6851 Fé 
F6853 03 


F6855 
F6855 80FO 
F6859 20 
F685B 02 


x. 
x. 


GE 
GE 
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RTNC 


GOSUBL 


?PH 


GOYES 


P=C 
CSL 
?PH 


GOYES 


CSR 


RTNCC 


TST2 
TER3 CPEX 
p= 


RTNSC 


Tue Jan 17, 1984 12:16 pr 
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GETNE Get the nessage-don’t check error 
=FRANE+ 
=pSTATE Is it a current state? 
GETST- No...get another one 
4 Check if error # is zero 
x Nove all status bits to C{3:1] 
0 Zero? 
GETER3 No...error! 
A Nove all status bits into C[X] 
Done! 
0 
=ePIL PIL Error 


FORO UII OTTO TO TTT OT TTI 
FORO OI OI IO OT TOT TI IIT OI 


ak 
xk 
xx 
xk 
xk 
ax 
xx 
xk 
xk 
aK 
ak 
KK 
xk 
xk 
ax 
aK 
xk 
ak 
ak 
ak 
ax 
xk 
ax 
aK 
ak 
xe 
aK 
aK 
aK 
aK 
a 
xx 
xk 
a 
ak 


Nane: 
Narie: 


Category: 


Purpose: 


GETD - Get data ressage 
GETEND - Get EOT nessage 


PILI/O 


Read a data/EOT nessage fron Diarond 


Entry: 


Expecting data/EOT fron the nailbox 
DO points to the nailbox 


Exit: 


Carry clear: 
Frane in C{X]} 
Frane type in C(S} 
Carry set: 
GETD: Not a data frane/aborted/error bit set 
GETEND: Not an EQT frane/aborted/error bit set 


Calls: 


GET, FRANE+ 


Exclusive: C 


Inclusive: C,ST[3:0] 


Sth lvls: 
History: 


09/20/83 
11/23/82 


(P only if error) 
1 (GET) (FRANE+) 


Progranner Modification 
NZ Updated docurentation 
NZ Added docunentation 
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493 
494 
495 
496 
497 
498 


499 
500 
501 
502 
503 
504 
505 
506 
507 
508 


509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
§21 
522 
§23 
524 
525 
526 
527 
528 
529 
530 
531 
§32 
$33 
§34 
535 
$36 
§37 
538 
539 
540 
41 
542 
§43 
544 
545 


F685) 758F 
F6861 400 
F6864 800 
© 
F686R 880 
FO86D 20 
F686F 80FF 
F6873 500 
F6876 6E8E 


F687A 786F 
F687E 400 
F6881 8£00 
4,0) 
F688? 880 
F688A 5E 
F688C 52E 


ax 
ak 
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KKK KKKKK KHER KAKRRARE KIRA AKE REIKI IK IORI III IIE RII IK 


TRIO JO ROJO ROTI IOI 
=GETD GOSUB GET Get frare 
RTNC €rror 
=CHECKD GOSUBL =FRAME+ Check uhat kind of frane it 1s 
?PH =pDATA DATA? 
GOYES GETDI1 No...set carry 
GETD1 CPEX 15 Yes...Carry clear! 
RTNNC 
GOTO READI2 
xe 
ke 
=GETEND GOSUB GET Get frane 
RTNC Error 
=CHKEND GOSUBL =FRAME+ Decode frane 
?PH = = pEOT END? 
GOYES GETD1 No...set carry 
GONC GETD1 Yes...clear car 
FOO JOO OTTO TTT OE 
JOU UI TCO OC TT TTT 
kk 
** Nare: GETID - Read 8 bytes data into A after YTMLL 
** Narie: READRG - Read 8 bytes data into the A register 
** Nane: GETID+ - Read 8 bytes data into AR after YTML 
kk 
** Category:  PILI/0 
kk 
** Purpose: 
- Read up to 8 bytes of data from a device and put it 
ak into A[W] (GETID and GETID+ strip Cr and trailing 
an characters) 
ak 
** Entry: 
ak D[X] 1s address of the device 
ak DO @ mailbox 
kk 
x READRG: Conversation is already set up 
ak 
AXE ert: 
aK Carry clear: 
aK Up to 8 bytes in A[W], number of bytes in B[S] 
xk P=0 
xe Carry set: 
ak Error (other than device not ready) 
x P,C{OJj= Error # 
ak 
*k Calls: YTIML(GETID+) , YTMLL(GETID) , PUTE, GETX, FRANE- 
ax 
ARUSESsoasdes 
*k Exclusive: A(W],C(WJ],B[S],0[13],P 
** Inclusive: A[M],C{W],D[S],0[13],P 
xx 
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546 Ak Stk lvls: 2 (YTMLL)(YTML) (READRG uses only 1 level) 

547 an 

548 ** History: 

§49 ak 

550 aX Date Progratiner Modification 

551 AE ethos” Beiecesues., uessctes suas octet eu 

552 *k 09/20/83 N2 Updated docunentation 

§53 ek 09/01/83 NZ Added check for P= =eRBORT at GOC 

554 ak fron GETX (fix of SPOLL&STANDBY 

555 ae bug) 

556 kk 03/09/83 NZ Added check for not changing # 

557 aK bytes received if strip is false 

558 kK 03/03/83 NZ Added check for READRG to not 

559 ak strip trailing Cr 

560 i 11/23/82 NZ Added docurentation 

1 x 

2 III OUST II I II IIIT 

563 JO III IIIS SCOOT OC II TIT 

564 FO88F 8E0O =GETID+ GOSUBL =YTNL D[X] is talker, I an listener 
© 

565 F6895 551 GONC GETIDO If no errors 

566 F6898 02 RTNSC Error! 

567 or 

568 x. 

569 F689A 2D = ==READRG P= 13 

570 F689C A83 D=0 P Clear "strip returns" flag 

571 Fo89F 6B10 GOTO  READRg 

572 r- 

§73 x 

574 F68A3 20 =GETID P= 0 

575 FesAs 8E0O GOSUBL =YTNLL D[X] is talker, I an listener 
00 

576 F68AB 3500 GETIDO LC(6) (=nSDI)+8 Max of 8 characters 
0000 

57? F68B3 2D P= 13 Set flag to indicate strip Cr 

578 F68BS A83 D=0 P 

579 F68B8 ACF D=D-1 P D[13J="F"...strip returns 

580 F68BB 7692 READRg GOSUB PUTE 

581 F6gBF 400 RTNC 

582 F6sC2 AFO A=0 W Preclear A[W]} 

5&3 F6&c5 AC3 D=0 S Clear D[S] (count) 

584 Foscs 797E GETID1 GOSUB GETX Get a nessage 

585 Fescc 487 GOC GETID4 If carry, not data 

586 Fescr AEA GETID2 A=C B 

587 Fesne 814 ASRC 

588 Fests 814 ASRC Rotate into A[15:14] 

589 F68D8 BF6 CSR W Shift next char into C{B] 

590 Fosne Fo CSR A {at rost GETX returns 6 nibs) 

591 F68DD B47 D=D+1 S$ Increnent count 

592 FoseO OD P=P-4 

533 Fo8E2 SCE GONC GETID2 If no carry, nore bytes 

594 * 

595 * If carry, P=15! 

596 : 

597 FesES 308 LC(1) 8 
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598 F68E8 9C7 mC § 
593 F68EB DD GOYES GETID1 Get nore bytes 
600 FE8ED 20 P= 0 Now renove any Cr,Lf! 
601 FO8EF 3100 GETIO3 LC(2) 13 Check for <Cr> 
602 F68F3 20 P= 13 
603 F68F5 90F 7DHO OP Strip flag set? 
604 FE8F8 50 GOYES GETIDs Yes...strip <Cros 
605 Fo8FR REZ C=0 B No...don’t strip <Cros 
606 F68FD 2F GETIDs P= 16 
607 F68FF 936A GETID* ?C=0 8 Stripping trailing chars? 
608 F6902 AC GOYES GETID- No... continue 
609 F6904 966 RHC OB Yes...natch? 
610 F6907 50 GOYES GETID- No...continue 
611 F6909 AW A=0 WP Yes...clear anything after <Cr> 
612 F690C 814 GETID- ASRC 
613 F690F 814 ASRC 
614 F6912 OD P=P-1 
615 F6914 OD P=P-1 
616 F6916 58E GONC GETID* If no carry, continue 
617 t 
618 : Now retiove any trailing zero bytes (decrement count) 
619 
620 F6919 20 P= 13 Check if strip flag set 
621 F691B 90B 7D=0 =P 
622 FESTE 32 GOYES GETID! Not strip...exit 
623 F6920 2F P= 15 
624 F6922 AC2 C=0 5 Preclear the count! 
625 F6925 978 A=O OW Is whole word zero? 
626 F6928 61 GOYES GETIDZ Yes...set count=0! 
627 F692A 90C GETID™ ?RRO P 
628 F692D 70 GOYES GETIDH 
629 Fe92F OD P=P-1 
63% F6931 5S8F GONC GETID~ Go aluays 
631 x. 
632 Xe 
633 F6934 80FF GETIDH CPEX 15 
634 F6938 81E CSRB Now C[S] is # of characters-1 
635 F693B B46 C=C+i § C[S] is # of characters 
636 F693E AC? GETIDZ D=C S Reset count in D[S] 
637 F6941 20 GETID! P= 0 Reset P=0 
638 F6943 03 RTNCC Done...exit 
639 a= 
640 a. 
641 F6945 890 GETID4 ?P= =eABORT Is this an abort or error? 
642 F6948 00 RTNYES Yes...tell caller 
643 F694A 80FF CPEX 15 
644 F694E 8E00 GOSUBL =FRANE- Check what it IS 
00 
645 F6954 890 ?P= =pSTATE Current state? 
646 F6957 BO GOYES GETIDS Yes... justify, return-carry clear 
647 F6959 8% ?P= =pE0T E0T? 
648 Fe95C 60 ; GOYES GETIDS Yes... justify, return-carry clear 
649 
650 * NOT state or EOT...error! 
x 


651 
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652 F695E 66AD 


653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
6% 
691 
692 
693 
694 
695 
636 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 


F6962 ACB 
F6965 800F 
F6969 8% 
F696C 38 
F696E 810 
F6971 810 
F6974 OD 
F6976 52F 


ke 
Ro 


GE 
GE 
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GOTO READI2 Unexpected frarie 
TIOS § C=D S 
P=C 15 P=count until justified! 
TID6 = ?P= 0 
GOYES GETID3 Return, carry clear 
ASLC 
ASLC Shift one character 
P=P-4 Decrenent character count 
GONC GETID6 Go aluays 


JO III TIO TOTO III TIO IO ITO TIC 
JOO IOI TO TOIT I TTT IK 


ax 
ax 
xx 
xx 
ax 
ax 
xx 
tok 
ak 
ae 
ae 
ae 
as 
ax 
xx 
ax 
ak 
aR 
aX 
ae 
kx 
ka 
ak 
ae 
ane 
ak 
ak 
ax 
aA 
ae 
aR 
xe 
ax 
as 
kh 
ak 
at 
ax 
kk 
ak 
ak 
aK 


Nane: INITFL - Inatialize a file on external device 


Category:  FILUTL 


Purpose: 
Initialize an external file after creation 
Entry: 
Ri{S] = Create code of the file 
Tape 1s positioned at the start of the file data area 
R2[A] is # of sectors in the file 
Exit: 
Carry clear: 
The file will be falled with zeros or all FF’s 
Create code = 2 - filled mith zeros 
Otherwise - filled with all FF’s 
Carry set: 
Error...P, C(O] are error code 
Calls: SENDIT 
Uses: 
Exclusive: A[W],C(W],01, FUNCR1[15:0],P 
Inclusive: A[W],C(W],01,ST[3:0],FUNCR1[15:0],P 
Stk lvls: 2 (SENDIT) 


History: 
Date Progranner Modification 
09/21/83 NZ Updated docunentation 
04/18/83 NZ Modified entry conditions and 
rewrote routine to save code and 
fix several bugs 
01/25/83 NZ Updated docunentation, changed 
code to cut 2B(hex) nibbles 
10/01/82 SC Wrote routine 
FORO ROJO ETO OR ROI IO OI OI OO IOI ot 
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707 
708 
709 


710 
11 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
790 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
744 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
7§3 
754 
755 
756 
757 
758 
759 
760 


F6979 
F6979 1FOO 
000 
F6980 AF4 
F6983 1517 


F698? 112 
F698A FO 


F698C FO 


FO98E AFI 
F6991 119 
F6994 80DF 
F6998 892 
F699B 50 
F699D A7D 
F69A0 20 
F69A2 7E70 
F69A6 1537 
F69AR AF8 
F69AD 01 
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KKRK KKK KRG AKA ARK KK AA RAK KKK KAKA KR KK ARIE RAE KIKI IKI KAA RR EK 


=INITFL 
01=(5) =FUNCR1 
A=B W Get B[W] into A[W] 
DAT1=A W Save B[W] an FUNCR1 
x 
A=R2 Recall size in sectors 
ASL A 
x 
* If the file size can exceed 1M bytes, the following shift 
* will produce erroneous results!!! 
x 
ASL OA Multiply by 256 bytes/sector 
k 
B=0 W Clear B[W] (pattern) 
C=R1 C(S)= CREATE CODE 
P=C 15 Get CREATE code into P 
?p= 2 Create code=2? 
GOYES INITIO Yes...pattern is zero 
B=B-1 W No...pattern is "FFFFF" 
INIT10. P= 0 Reset P=0 
GOSUB SENDIT Now send the pattern! 
A=DAT1 W D1 unchanged by SENDIT! 
B=A W Restore Tu] 
RTN Carry set if error, else clear 
JISC IU IOUT TTR RK 
JOGO I IIIS I IIIS III OT I SOT TTI IIIT IASI ISIS IIS ITH 
ka 
xx Nane: WRITIT - Write data fron RAN to the riailbox 
ka 
xX Category:  PILI/0 
ka 
xx Purpose: 
ak Output data to the Diartond, given a buffer of data in 
ax RAN and a pointer (D1) to the buffer 
kk 
x* Entry: 
ae DO: Diariond nailbox 
Kx 01: Data buffer start 
ak ALA]: Nurnber of bytes of data to send from at D1 
ax Loop is addressed, set up for this transfer 
a ST(=Loop0K) set if should abort on one ATTN, else clear 
ak 
RX Exit: 
aa Carry clear: 
xx Transfer conplete, D1 points past end of buffer, 
ax A[A]="OOOFF", P unchanged fron entry 
KK Carry set: Error - P is the error nunber, A[A]} is the 
x nuriber of data bytes not sent (nay be low by up to 3) 
ak (If Attn key hit ONCE, then carry set, P=0) 
ak 
*k Calls: PUTX, PUTD, CK=ATN 
ak 
RE USES 3. 6080 
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761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
731 
782 
783 
784 
785 
786 
787 
788 
789 
790 
794 
792 
793 
794 
795 
796 
797 
798 
#99 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 


F69AF 
F69B2 
F69B4 
F69B7 
FO9BA 
F69BD 


Fe9CO 
FeSC4 
Fe9C? 
FeSCB 
F69CE 


Fe9DO 
F6904 
F69D? 


Fe3DA 
FE3DD 
F6SEO 


870 
£4 

132 
182 
4F1 
132 


162 
132 
REC 


ax 
ax 
xx 
xx 
a 
ax 
ax 
ax 
a 
xx 
Kx 
xx 
ae 
wk 
xx 
xx 
xx 
xk 
xx 
wx 
Kx 
ww 
Kx 
Kx 
xx 
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Inclusive: A[A}],C{W},01,ST[3:0] 


Stk lvls: 


1 (PUTX) (PUTD)(CK=ATN) 


NOTE: this routine can be SLIGHTLY speeded up by calling 
PUTX one staterent later (after the CPEX 15)...at the 
cost of setting P=0 unconditionally 


History: 


09/27/83 


09/21/83 
07/21/83 


03/15/83 
11/24/82 


NZ 
NZ 


NZ 
NZ 


Modification 
Installed fix of SR for Menory 
Lost during QUTPUT and/or PRINT 
(The bug was that WRITIT did not 
check carry fron PUTD, therefore 
would return with carry clear, 
but P= =eABORT or =ePIL) 
Updated docunentation 
Added status for don’t abort for 
single ATTN hit 
Added P=0 if ATNFLG=F 
Added docunentation 


JOR IR IOI IOI IO ITT TT TIT III ITT III K 
FOI IIIT IOI TOI OOOO IT TOI IIT IIT II III OK 


=WRITIT 2ST=1 


WR 


* 


* Have three bytes to send 
k 


xe 
ke 


WR 


ee ee 


WR 


WR 


GOYES WRITI1 


ITIO ADOEX 


DO=D0- 


COC 
ADOEX 


=Attn 


3 


WRITI2 


C=DAT1 6 
D1=D1+ 6 
GOSUB = PUTX 


GONC 
RTNSC 


ITI1 GOSUB 
COC 


GONC 


RTNSC 


WRITIT 


CK=ATN 
WRITIO 


P=0: SC 


0 


ITI2 DO=00+ 3 


ABOEX 
ITI3  A=A-1 


B 


ATIN hit at least once...check'! 


See if three bytes to send 
No... transfer retaining bytes 


Read three 

Point to next 

Send then 

Go unless Attn hit more than once 
Error! 


Not ATTN key...continue 

Go always (PACK 9/27/83 NZ) 
Attn key ONCE 

Attn key interrupt...exit! 
Correct for over-subtracting 


If carry, than done 
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816 F69E3 4D6 GOC WRITI4 Done! 
817 F69E6 14F C=DAT1 B Read it... 
818 F69E9 171 Di=D1+ 2 Next byte... 
819 F69EC 7351 GOSUB PUTD Send it! 
820 x 
821 * Following RINC is bug fix on 9/27/83 by NZ 
822 x 
823 F69FO 400 RTNC Error...set carry 
824 x 
825 F69F3 860 7S$T=0 =Attn 
826 F6SF6 RE GOYES WRITI3 Loop back if not interrupt 
827 F69F8 7700 GOSUB CK=ATN 
828 F69FC 43E COC WRITI3 Loop back if not interrupt 
829 F6SFF 20 «=—P=0:SC P= 0 Attn key ONCE 
830 F6AO1 O2 RTNSC Attn key interrupt...exit! 
831 x 
832 x. 
833 x 
834 : Moved to location below by NZ on 9/27/83 as part of bug fix 
835 
$36 AWRITI4 RTNCC Done... return with carry clear! 
837 x. 
838 a. 
839 % 
840 * CK=ATN will return with carry set if OK to continue, clear 
841 : if tine to abort transmission 
842 
843 F6AO3 860 =CK=RIN ?ST=0 =LoopOK Should I check ATNFLG? 
844 FoRDG OO RTNYES No...say OK 
845 F6AO8 136 =CK=ATn CDOEX Save DO in C[A] 
846 FEAOB 1B00 DO=(5) =ATNFLG 
000 
847 FeAl2 1564 C=DATO S 
848 FoAI6 134 DO=C Restore DO 
849 F6A19 A4E C=C-1 § If carry, ATNFLG was zero 
850 FEAIC 01 
851 JOO DIOS TTT OTS IS III SOS III IIIS III ISS IOI III ATI IA 
852 JI TI DDS TOOT TT ISS SIO TIS II III I ITI III SII TITIAN 
853 aa 
854 ** Narie: SENDIT - Send a 1 or 2 char sequence fron B[W] 
855 Nane: SENDI+ - Find mailbox, send a sequence of chars 
856 
857 ** Category:  PILI/O 
858 ax 
859 xk Purpose: 
860 xx Send a sequence of 1 or 2 characters (in B[7:0]) 
861 aK Nunber of characters to send in A[A] 
862 ak 
863 *k Entry: 
864 ak A[Aj=count of characters 
865 aa B[7:0]=sequence (B[BJ]=first char, B[3:2]=second char, 
866 xx B[5:4]=first char, B[7:6]=second char) 
867 ak DO points to mailbox 
868 xe ST(=Loop0K) set if abort on 1 ATTN, else clear 


869 = 
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870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
831 
892 
893 
894 
895 
896 


897 
898 
899 
90 
#1 
We 
#3 
904 
95 
Wo 
%? 
#8 
%9 
910 
911 
912 
S14 
914 
os 
916 
oy 
918 
919 
920 
921 


aon 
ec 


325 


FORTE 


FeRZA 
F6R27 
F6R29 
F6AZC 
F6R2F 
F6A32 
F6R35 
F6A38 
F6R3C 
FOR3F 
FeR4ae 
F6R45 
F6R48 
F6RAC 
F6R4F 


FOAS1 


F6RS3 
F6RS? 
F6ASA 


8E00 
00 


870 
C2 
132 
185 
402 
132 
AF9 
7B50 
400 
AF9 
BF6 
BF6 
7B40 
57D 
02 


03 


7CAF 
41D 
54A 


ak 
ak 
ax 
ax 
xk 
xk 
aK 
xk 
ax 
ak 
aK 
xx 
ax 
xk 
xx 
ak 
xk 
xk 
xk 
ax 
xk 
xk 
xk 
aa 
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Carry set if Attn or error, else clear 
If carry set and P=0, then ATTN key hit ONCE 


Calls: 


Exclusive: 


PUTX,PUTD,CK=RTN (SENDI+ also calls GETMBX) 


ACA}, C{W) 


Inclusive: A[A],C(W],ST[3:0] 


Stk Ivls: 


1 (PUTX)(PUTD) (CK=ATN) (GE TMBX) 


NOTE: This routine can be speeded up SLIGHTLY...see WRITIT 


docunentation) 
History: 

Date Prograrner 
09/27/83 NZ 
09/21/83 NZ 
03/15/83 NZ 
11/24/82 NZ 


Modification 


Packed code (needed for WRITIT fix) 
Updated docunentation 

Added P=0 for Attn key ONCE 

Added docunentation 


JOIST ICICI TOTTI IO ITO III IO IIH 
JOR IOI III II TOO OT OT TTT TT IK 


=SENDI+ 


=SENDIT ?ST=1 


GOYES 


SENDIO ADOEX 


ie 
x. 


WR 
Rs 


ke 


00=00- 
GOC 
ADOEX 
C=B 
GOSUB 
RTNC 
C=B 
CSR 
CSR 
GOSUB 
GON 
RTNSC 


ITI4 = RINCC 


SENDI1 GOSUB 


GOC 


P=O0:sc GONC 
x 


x 
x 
ee 


p= 
RINSC 


GOSUBL =GETMBX 


=Attn 
SENDI1 


6 
SENDI2 


W 
PUTX 


W 

W 

W 

PUTX 
SENDIT 


CK=RTN 
SENDIO 
P=0:SC 


0 


Check if immediate exit 


Less than 6 left 


Send first 3 chars 
Attn 


Send next 3 chars 
Loop back! 
Error! 


Moved here 9/27/83 by NZ 


Not ATTN key...continue 
Packed 9/27/83 by NZ 


Attn key ONCE 
Attn key interrupt...exit! 
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924 
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925 F6ASD 165 SENDI2 DO=D0+ 6 


926 F6R6O 132 


927 F6A63 AGC SENDI3 A=A-1 B 


928 F6AG6 4E2 
929 FeA69 AES 
930 FeR6C 7300 
931 F6A70 400 
932 F6A73 ABC 
933 FOA76 4E1 
934 F6A79 D9 
935 FOA7B F6 
936 F6A7D F6 
937 F6R7F 70CO 
938 F6A83 400 
939 F6A86 860 
940 F6A89 AD 
941 FOR8B 747F 
942 FOA8F 43D 
943 FeAS2 57C 
944 

945 

946 

947 

948 

949 F6R95 03 
950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

360 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

oie 

973 

974 

975 

976 

977 

978 
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x. 
ADOEX 
GOC SENDI4 Done if carry 
C=B B 
GOSUB PUTD Send first byte 
RTNC Attn 
A=A-1 B 
GOC SENDI4 Done if carry 
C=B A 
CSR A 
CSR A 
GOSUB PUTD Send second byte 
RTNC 
?$T=0 =Attn 
GOYES SENDI3 Loop back if not interrupt 
GOSUB CK=ATN 
GOC SENDI3 Not ATIN key...continue 
GONC P=0:sc Packed 9/27/83 by NZ 
x 
% P= 0 Attn key ONCE 
% RTNSC Attn key interrupt...exit! 
k. 
ke 
SENDI4 RTNCC Done! 
JI IIIS IOS ISTO IIIT SI ITS III II III I IIIS I III SSS OSSI ISIS IS: 


xk 
ak 
xk 
xk 
ak 
xx 
xx 
xk 
ak 
ak 
ak 
ak 
xk 
ak 
ak 
ak 
xx 
ak 
xk 
ak 
ak 
ak 
xk 
xk 
xk 
ak 
ak 
xx 


SOI TT TIT I TI ITI IIT DISTDIR I IIIT III 


Nane: PUTX - Send 3 bytes of data fron C(5:0] to loop 
Category: PILI/0 


Purpose: 
Output three bytes fron C[5:0] to PIL 


Entry: 
C{5:0] is the three data bytes (C{B] is first byte) 
DO: HPIL narlbox 
Exit: 
Carry clear: done 
Carry set: error (P is error #) 


Calls: None 


Inclusive: C(WJ,ST{3:0] 
Stk lvls: 0 
History: 


Date Progrannrer Modification 


wee ee we me we ewe ewe ee wwe we ww ewe we ew ee ew ee we wwe ee ee eee 
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979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
go 
998 
$99 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
10114 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 


1030 
1031 
1032 


F6AS7 80FF 
F6ASB 26 
F6R9D 3181 
F6AR1 166 
F6RR4 800F 
F6RA8 870 
FORAB 01 
F6RAD OB 
F6RAF 15£0 
FORB3 OB 
FORBS 871 
F6AB8 01 
F6RBA 870 
F6ABD BO 
FORBF 186 


FeAC2 15€7 
FoACE 03 


F6RC8 850 


F6ACB 851 
F6ACE 


FoACE BF2 
FORD BFe 
FoAD4 BFe 
FoAD? BF2 
FoRDR BFe 
F6RDD 136 
FOREO 1800 
000 
FeRE? 1564 
FOREB 134 
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Kk 03/15/83 NZ Renovea check for Attn at PUTX5 
ak to insure Error is aluays checked 
Kk 93/07/83 NZ Added flag to ignore error bit 
kK 03/04/83 NZ Reordered code to check sERROR 
xk ONLY if ATNFLG is non-zero 
kk 03/02/83 NZ Added check for sERROR if Attn is 
ah set 
kK 11/24/82 NZ Added docunentation 


xk 
FOTO IO TOTTI TTT TT 
FOOT TOIT TIT TI RTI IT IIT TTI 


=PUTX CPEX 15 Save P in C[S] 

P= 6 

LCHEX 18 Long transfer bits... 
PUTXx  00=D0+ oOUTHS 

P=C 15 Restore P 

?S8T=1 =Attn 

GOYES PUTK3 Check for inrediate abort! 
PUTX1 CSTEX 

C=DATO 1 Read the handshake 

CSTEX 

?ST=1 = NRD NRD? 

GOYES PUTX3 Yes...uait! 

?STHO MAY 

GOYES PUTX3 


PUTEx DO=D0- oBUTHS 
x 


* Ready to send it now (coast is clear) 
x 


DATO=C 8 
RTNCC 
x 
xe 
PUTX3) ST=1 = sPUTX Flag for return routine 
k 
* If here, not ready yet...check for ATIN 
x 
PUTX4 ST=1 ~~ sCHKER DO check error bit 
PUTXS 
k 


* Check =ATNFLG in RAN... 

x 

* Save the message in C(12:5] to check ATNFLG 
x 


CSL 
CSL 
CSL 
CSL 
CSL 
CDOEX 
DO=(5) =ATNFLG 


Eeeeert 


Now message in C[12:5] 


C=DRTO $ 
=( 


DO Restore DO 


* 
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1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 


FOREE 161 
F6AF1 15£0 
F6RFS 181 
F6AF8 OB 
F6AFR 870 
F6AFD 20 
F6AFF OB 


F6BO1 BF6é 
F6BO4 BFE 
F6BO? BF6 
F6BOR BF6 
F6BOD BF6 
F6B10 80FA 
F6B14 570 
F6B17 871 
F6BIR CO 


F6BIC 89 
F6BIF EO 
F6B21 OC 
F6B23 490 


F6B26 186 
FOB29 20 
F6B2B 02 


F6B2D 80FA 
F6B31 861 
F6B34 BO 
F6B36 860 
F6B39 C2 
F6B3B 617F 


F6B3F 6650 
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DO=D0+ (oINST)-(oOUTHS ) 


C=DATO 1 


Read the status nibble &check err 


DO=D0- (oINST )-(oOUTHS ) 


CSTEX 


?S$T=1 = =sERROR 


GOYES PUTx0 
PUTxO = CSTEX 
k 


CSR 
CSR 
CSR 
CSR 
CSR 
CPEX 10 
GONC = PUTx1 
?S$T=1  sCHKER 
GOYES PUTx. 


Qrcrreecrrec 


x 


Carry SET if error bit set 


Restore message to C[7:0] 


Now ATNFLG is in C[8] 


No carry...sERROR clear 
Check error bit? 
Yes...error! 


* If sCHKER=0, then ignore the error bit 
i 


PUTx1 ?P= 0 
GOYES PUTx3 
P=P+1 

: GOC PUTx3 


* ATTN key hit! 
‘ 


PUTx. DO=DO- oOUTHS 
P= =eABORT 
RTNSC 


x. 
x. 


PUTx3 CPEX 10 

PUTX6 = ?ST=0 = SCHKER 
GOYES PUTX?7 
?STH1 «=sPUTX 
GOYES PUTE1 
GOTO PUT 


x 
ae 


PUTX? GOTO  PUTNI 


ATIN key? 
No...continue 


Attn key, hit only ONCE 


Aborted by ATTN key 


Restore P! 
Is this PUTN? 
Yes... loop 


Loop again 
(Out of range) 


Continue with PUTN 


FORO IO RRR TTT TT K 
JOR IOI TOOT TTT TTI IK 


kx 


** Nane: PUTD - Put a single data byte on the loop 


xx 


*k Category: PILI/O 
ik 


** Purpose: 


ah Send a single data byte on the loop (Check NRD first) 


ik 
** Entry: 


ax C{B] contains the data byte 
ak DO points to the HPIL nailbox 


ak 
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1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
109? 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 


1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1113 
1120 
1121 
1122 
hed 
1124 
1125 
1126 
Ve? 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 


F6B43 80FF 
F6B47 22 
F6B49 3500 
0041 
F6B51 6F4F 
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RK Exit: 
ae Handshake nibble in ST[3:0] 
kk Carry set if error, clear if OK 
tok 
&* Calls: None 
te 
tk Uses....... 
tk Inclusive: C{W],ST[3:0] 
kk 
&k Stk Ivis: 0 
ae 
** History: 
kk 
aX Date Prograriner Modification 
Pe eel, tei | eaten tn emt ce 2 Stee 
eK 02/18/83 NZ Changed to share code with PUTX 
aK 11/24/82 NZ Added docurientation 
bk 


JOU IOI IIIT TOIT OT OTTO TT Or 
SOI II ITO IIT TOO I TOTO 


=PUTID CPEX 15 


P= 2 
LC(6) #140000 This is a single data frane 
GOTO PUTKx Continue with corimon code in PUTX 


JOO III IO IT III TIC IK 
JOR UII IO IO OO TOC II ITO OO OTTO I IO. 
ar 


x* Nane: PUTE - Put extended nessage (6 nibbles) 

xk Nanie: PUTEX - Put extended nessage (6 nibs + 2 hs) 
tok 

x* Category:  PILI/O 

aa 

** Purpose: 

we PUTE:Put extended mailbox nessage (given full 6 nibs) 
ir PUTEX:Put a full message, INCLUDING HANDSHAKE! !!! 
ar 

zx Entry: 

ah PUTE: C{5:0] 1s nessage 

aX PUTEX: C[?:0] 1s nessage 

ax DO points to the mailbox 

x 

TA EMA TS 

a Carry clear: OK (P=0 for PUTX) 

es Carry set: error (P=error #) 

ka 

*™ Calls: None 

tt 

FR USOS os sit once 

** Inclusive: C,S1{3:0] (PUTE sets P=0) 

aR 

** Stk lvis: 0 

ke 

** History: 

ta 
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1142 
1143 
1144 
1145 
1146 
1147 
1148 
1143 
1150 
1151 
1152 
1163 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
118? 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 


F6B55 
F6B57 
F6B5B 
F6B5D 
F6BSD 
F6B60 
F6B63 
F6B65 
F6B67 
F6B6B 
FeB6D 
F6B70 
FOB72 


F6B76 
F6B79 


26 
3101 
20 


166 
870 
31 
08 
15€0 
OB 
870 
60 
6C4F 


840 
615F 
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xx Date Progranner Modification 
Hii. Sete oes, tose eats! ~ ihstemedces aie aes a Coes 
Kk 02/18/83 NZ Packed by sharing code with PUTX 
ak 11/24/82 NZ Added docunentation 
kk 


FOR I IORI JIT ITO IIIT IIIT. 
JOS IU UII OI OUI TUTTI 
=PUTE P= 6 
LCHEX 10 
P= 0 
=PUTEX 
DO=D0+ oOUTHS 
?$T=1 =Attn 
GOYES PUTE2 Check for irnediate abort 
PUTE1  CSTEX 
C=DATO 1 Read handshake nibble 
CSTEX 
?STHO MAV 
GOYES PUTE2 
PUTEx. GOTO PUTEx Can be GONC if it will reach! 
xe 


kL 
x 


* Looping...check ATTN flag 
: g 


PUTE2 ST=0  sPUTX 


GOTO PUTX4 Check for ATIN flag, return: PUTE1 
JOR JIT OCIOO IG III TIT TIT TIOK 


FOI IOI TOIT TTT TTT TTI ITI I 
xk 


x Nane: PUTEN - Put message in C(5:0], don’t check error 
kk Nane: PUTCN - Put message in C[3:0], don’t check error 
xx Nane: PUTC+N - Put message in C[B], don’t check error 
ax 

** Category:  PILI/O 

kk 

** Purpose: 

a Put a nessage without checking for the Dianond error 
ax bit (otherwise sane as PUTE) 

x 

AX Entry: 

ne DO points to the HPIL mailbox 

1k 

Kx PUTEN: Message in C[5:0] 

KK PUTCN: Message in C[3:0] 

ax PUTC+N: Message in C{[B] 

aK 

RX Exit: 

ae Carry clear: 

a Handshake nibble in ST[3:0] 

an Carry set: 

an P=error # 

ak 

&* Calis: None 

xk 
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119? 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1219 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 


F6B7D 
F6B7F 
FOB81 
F6B83 
FOB86 
F6B88 
FOB8C 
FOB8E 
F6B91 
F6B94 
FoB96 
F6B98 
FeB9C 
F6BSE 
FOBAI 
F6BA3 


FOBRE 
FOBAS 


F2 
F2 
F2 
BF 
26 
3101 
20 
166 
870 
21 
OB 
15E0 


870 


5EC 


841 
642F 
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Kk Uses....... 

kk Exclusive: C{W] 

kk Inclusive: C{WJ,S1[3:0] 
xk 


kk Stk lvls: 0 
x 


** History: 
ak 


am Date Progranner Nodification 
RA (aes, Meee 1 ae cat td Oe oe 


kK 09/21/83 NZ Added docunentation 

ka 

JOO DOI IO OC OOO IT TTT TTT TT 
JOOS IIS III TCO TTI TTT 


=PUTC#N CSL A PUTC+ except don’t check error 
CSL OA 
=PUTCN CSL A PUTC except don’t check error 
CSL OW 
=PUTEN P= 6 
LCHEX 1 
P= 0 
DO=D0+ oDUTHS 
?§T=1  =Attn 
GOYES PUTN2 
PUTN1 = CSTEX 
C=DATO 1 Read handshake 
CSTEX 
?ST#HO MAY Message available? 
GOYES PUTN2 No...uait loop 
GONC PUTEx. Go always... junp to finish 


PUTE except don’t check error 
0 


aa 
x. 


PUIN2 ST=0 ~~ sCHKER Don’t check error! 


GOTO  PUTXS 
JIG IIIS OCI OT TO TTT 


FOO IO TORTI OI IOI ITO OCT TOTO TOTTI 
x * 


x* Nane: PUTC+ - Put a conmand (1 byte) to the nailbox 
** Nane: PUTC - Put a connmand (2 bytes) to the mailbox 
ak 

** Category: PILI/0 

kk 

** Purpose: 

at Put a conmand (1 or 2 bytes) to the nailbox 

AX 

Ax Entry: 

ae DO points to the HPIL mailbox 

we PUTC+: C[B] contains the conmand to send (1 byte) 

aA PUTC: C[3:0] contains the command to send (2 bytes) 
xk 

Be EMULE 

a Sane as PUTE 

ae 

** Calls: None 

ak 
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1252 BR USES: 2h ia 
1253 kk Inclusive: C(W],ST[3:0],P 
1254 EA 
1255 aK Stk lvls: 0 
1256 &k 
1257 ** History: 
1258 ak 
1259 as Date Progranner Modification 
1260 eee 
1261 ek 09/21/83 NZ Updated docunentation 
1262 a 11/24/82 NZ Added docunentation 
1 
ae JOO OI CIC OO TTT ITE 
4265 OOOO ORI UTI 
1266 FOBAD F2 =PUTC+ CSL A 
1267 FOBAF F2 CSL A 
1268 F6BB1 F2 =PUTC CSL A 
1269 FOBB3 BF2 CSL W 
1270 F6BB6 6E9F GOTO PUTE Continue as if PUTE 
1271 JUS IOI UIC OCICS III ST SITAR 
4272 JUICES COCO CO CCITT I 
1273 ak 
1274 ak Nane: DDT,DDL - Send a Device Dependent Connand 
1275 ak 
1276 *% Category:  PILI/0 
1277 ak 
1278 ** Purpose: 
1279 ae Send a DDL/DDT as deterriined by P (these routines are 
1280 ak only good for DDL/DDT 0-15) 
1281 a 
1282 *k Entry: 
1283 aK P contains the DDL/DDT nunber desired 
1284 ak Loop is set up 
1285 RX DO @ mailbox 
1286 ak 
1287 xk Exit: 
1288 aX Sane as PUTE 
1289 ak 
1290 ** Calls: None 
1291 ay 
1292 ak Uses....... 
1293 xk Inclusive: C[W},ST[3:0],P 
1294 o 
1295 ** Stk lvls: 0 
1296 kk 
1297 ** History: 
1298 ak 
1299 er Date Progranner Modification 
1300 WAS icudiet. cecocheaesu Setadianueecuueeteenuuvebes ews Na 
1301 kK 41/24/82 NZ Added docunentation 
ak 
ee SOJT UO RTI 
1304 JI II IO III TOI ITT TI IIIA IIIA 


1305 F6BBA 80FO =DDL CPEX 9 
1306 F6BBE 21 P= 1 
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1307 F6BCO 3200 


0 
1308 FeBCS 6BEF 
139 ne 
1310 x 


1311 F6BC9 8OFO =DDT 
1312 FeBCD 21 
1313 F6BCF 3200 
0 
1314 F6BD4 6COF 
1315 F6BD8 


Page 25 
LC(3) (=nCND3)+#A = DDL 


GOTO —PUTC 
CPEX 0 

P= 

LC(3) (=nCMD3)+#C DDT 
GOTO UTC 

END 
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ATNFLG Ext - 252 846 1029 
Attn Ext - 246 788 825 897 939 995 1154 1219 


BADRD1 Abs 1009454 #F672E - 139 18 

=CHECKD Abs 1009764 HF6864 - 498 

=CHKEND Abs 1009793 HF6881 - 508 

=CK=RTN Abs 1010179 HF6RO3 - 843 804 827 917 941 
=CK=ATn Abs 1010184 HFEAOS8 - 845 

=DDL Abs 1010618 HF6BBA - 1305 

=DDT Abs 1010633 HF6BC9 - 1311 


FRANE+ Ext - 441 498 508 
FRAME- Ext - 128 644 
FUNCR1 Ext - 209 


=GET Abs 1009638 #F67E6 - 318 496 506 
GET1 Abs 1009641 HF67E9 - 320 267 

GET2 Abs 1009654 HF67F6 - 328 315 

GETS Abs 1009669 #F6805 - 338 324 

=GETD Rbs 1009757 HF685D - 496 

GETD1 Abs 1009775 RF686F - 501 S500 510 511 
=GETEND Abs 1009786 #F687A - 506 

GETERO Abs 1009708 HF682C - 437 432 
GETER3 Abs 1009749 HF6855 - 453 447 
=GETERR Abs 1009702 HF6826 - 435 

=GETHS2 Abs 1009676 HF680C - 371 


=GETID Abs 1009827 HF68A3 - 574 

GETID!' Abs 1009985 #F6941 - 637 622 
GETIDH Abs 1009972 #F6934 - 633 628 
GETIDZ Abs 1009982 HF693E - 636 626 
GETID* Abs 1009919 HF68FF - 607 616 
=GETID+ Abs 1009807 HFO88F - 564 

GETID- Abs 1009932 HF690C - 612 608 610 
GETIDO Abs 1009835 HF68AB - 576 565 
GETID1 Abs 1009864 #F68C8 - 584 599 
GETID2 Abs 1009871 #F68CF - 586 593 


GETID3 Abs 1009903 HF68EF - 601 658 


GETID4 Abs 1009989 #F6945 - 641 585 
GETIDS Abs 1010018 #F6962 - 655 646 648 
GETID6 § Abs 1010025 #F6969 - 657 662 
GETID~ Abs 1009962 HF692A - 627 65H 
GETIDs Abs 1009917 #F68FD - 606 604 
GETMBX Ext - 896 

GETNO Abs 1009619 #F67D3 - 39 265 
=GETNE Abs 1009616 HF67D0 - WB 439 
=GETST Abs 1009692 HF681C - 4% 

=GETST- Abs 1009715 #F6833 - 439 443 
GETST2 Abs 1009749 #F6855 - 452 140 

=GETX Abs 1009477 #F6745 - 198 105 584 
GETX. Abs 1009602 #F67C2 - 264 247 256 258 
GETX1 Abs 1009480 #F6748 - 199 268 


GETK2 Abs 1009493 #F6755 - 205 

GETX3 Abs 1009516 #F676C - 215 210 
GETX4 Abs 1009525 HF6775 - 222 221 
GETKE Abs 1009529 #F6779 - 227 203 
GETKNE Abs 1009535 HF677F - 229 314 
GETx. Abs 1009532 #F677C - 228 339 
GETx.. Abs 1009557 #F6795 - 241 240 
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GETx.N Abs 1009562 #F679R - 246 234 
GETxE Abs 1009595 HF67BB - 259 242 
INIT10 Abs 1010080 HF69RO - 727 725 
=INITFL Abs 1010041 #F6979 - 708 


LoopOK Ext - 843 
MAV Abs 0 #00000 - 18 202 313 323 1002 1159 1224 
NRD Abs 1 #00001 - 19 1000 


P=0:SC Abs 1010175 HF69FF - 829 807 919 
P=O0:sc Abs 1010266 HF6A5A - 919 943 

=PUTC Abs 1010609 #F6BB1 - 1268 138 1314 
=PUTC+ Abs 1010605 HF6BAD - 1266 

=PUTC+N Abs 1010557 #F6B7D - 1211 437 

=PUTCN Abs 1010561 #F6B81 - 1213 

=PUTD Abs 1010499 #F6B43 - 1108 819 9® 3937 
=PUTE Abs 1010517 #F6B55 - 1149 98 580 1270 
PUTE1 Abs 1010533 #F6B65 - 1156 1069 

PUTE2 Abs 1010550 #F6B76 - 1167 1155 1160 
=PUTEN Abs 1010566 #F6B86 - 1215 

=PUTEX Abs 1010525 HF6B5D - 1152 

PUTEx Abs 1010367 HF6ABF - 1004 1161 

PUTEx. Rbs 1010546 HF6B72 - 1161 1226 

PUTN1 Abs 1010582 #F6B96 - 1221 1073 

PUTN2 Abs 1010598 #F6BR6 - 1229 1220 1225 

=PUTX Abs 1010327 #F6A97 - 3990 799 904 909 
PUTX1 Abs 1010349 HF6RAD - 997 1070 

PUTX3 Abs 1010376 HFEAC3 - 1012 996 1001 1003 
PUTK4 Abs 1010379 HFGACB - 1016 1168 


PUTXS Abs 1010382 HF6RCE 101? 1230 
PUTX6 «Abs 1010481 #F6B31 1066 
PUTX? Abs 1010495 #F6B3F 1073 1067 


PUTXx Abs 1010337 HF6RA1 - 993 1111 

PUTx. Abs 1010470 #F6B26 - 1060 1049 

PUTxO Abs 1010431 HF6AFF - 1039 1038 

PUTx1 Abs 1010460 #F6B1C - 1053 1047 

PUTx3 Abs 1010477 HF6B2D - 1065 1054 1056 
READER Abs 1009422 HF670E - 126 106 
READI2 Abs 1009413 #F6705 - 120 113 136 503 682 
=READI3 Abs 1009462 HF6736 - 143 108 
READI9 Abs 1009475 #F6743 - 154 104 
=READIT Abs 1009374 HF66DE - 103 116 147 
=READRG Abs 1009818 #F689A - 569 

READRg Abs 1009851 #F68BB - 580 571 
READS+ Abs 1009367 #F66D7 - 98 133 135 
=READSU Abs 1009362 HFEED2 - 96 

=SENDI+ Abs 1010206 HFORIE - 896 

SENDIO Abs 1010217 HF6AZ9 - 899 918 
SENDI1 Abs 1010259 HF6A53 - 3917 898 
SENDI2 Abs 1010269 HF6A5D - 925 1 
SENDI3 Abs 1010275 HF6A63 - 927 940 942 
SENDI4 Abs 1010325 #F6A95 - 949 928 933 
=SENDIT Abs 1010212 #FOR24 - 897 728 910 
WRITIO Abs 1010100 #F69B4 - 790 805 
WRITI1 Abs 1010128 #F69D0 - 804 789 
WRITI2 Abs 1010138 HF6SDR - 813 792 
WRITI3 Abs 1010144 #F63EO - 815 826 828 
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WRITI4 Abs 1010257 #F6A51 - 914 816 
=WRITIT Abs 1010095 #FE9AF - 788 800 
YTAL Ext - 564 
YTALL = Ext - 575 
eABORT Ext - 126 260 641 1061 
ePIL Ext - 122 454 
eUNEXP Ext - 121 
nCMB3 = Ext - 187 1313 
HERSTS Ext - 436 
nso Ext - 576 
HSTATS Ext - 431 
=oINHS Abs 8 #00008 - 21 198 205 235 237 259 WHS 318 
328 
=oINST = Abs 8 #00009 - 22. 205) = 208) 235) 237) 328) 31s 72 
374 1033 1035 
=oOQUTHS Abs 7 #00007 - 17. 993. 1004 1033 1035 1060 1153 1218 
=oOUTST Abs 6 #00006 - 16 
pDRTA Ext - 499 
pEOT Ext - 132 509 647 
psTRTE Ext - 129 442 645 
preRN Ext - 134 
sCHKER Abs 1 #00001 - 28 4228 «=6©233 264 Ss 312 «1016 =1048 1066 
1229 
sERROR Ext - 239 1037 
sGETX Abs 0 #00000 - 27? 4 =6227)—_ 66 338 


sPUTX  flbs 0 #00000 - 26 1012 1068 1167 
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Input Paraneters 
Source file nane is NZ&IOR::MS 
Listing file nane is NZ/IOR: TI: ML: :-1 
Object file nane is NZZIOR:TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
frrors 
None 
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WOnNMN Sw — 


10 
11 
12 FEBD8 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
44 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 F6BDS 
62 
63 
54 
55 FeBDS AFS 


% 0 0 ee Oe OF OOF 
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N N 22722 & FFFFF RRRR A 


N ON Zz 8&8 F R R AA 

NN ON zZ 8&8 F R RA AR 
NNN Z & FFFF RRRR A AR 
N NN 2Z &&& F RR ARAAA 
N N 2 & & F R R RA A 
N N 22222 8&8& F R RR A 


TITLE PIL Frane Routines<831012. 1534> 
ABS #F6BD8 TIZHP6 address (fixed) 


FORO OO OI ITT OO IOI III II 
FOO III UII TOTO ITO TTT TO ITI IIIT IO 


xx 
ax 
Kx 
xx 
x 
aK 
xx 
xx 
x 
aK 
ak 
ax 
a 
xx 
Kk 
ax 
xx 
ax 
ak 
xk 
ae 
an 
xx 
ax 
wa 
xx 
a 
a 
kk 
aK 
ax 
ax 
aa 
aR 


FRANEE - Encode an HPIL frane fron its rnenonic 


Category:  PILUTL 


Purpose: 


HPIL frane encode (given the ASCII for the frane and a 
value, produce the appropriate 11-bit frane) 


Entry: 


C{S] 1s length of ASCII character string 
C[S:0] 1s the ASCII character string 
ALB] is the value included with the frane (if none, 0) 


P=0 

Carry clear: C{X] is the frane value 
B[B] is the mask value for the frane 
C{S} 1s WP length of nane 

Carry set: Error...not found 


Calls: None 


Uses....... 
Inclusive: B[W],C{W],P 


Stk lvls: 1 (Internal push) 
History: 
Date Progranner Modification 


09/26/83 NZ Updated docunentation 


JOJO UII IO IDO IOI OI IOI FO 
SORT OOIIIOOIQOIO OIOITOROOIOOOIE 


=FRANEE 


* ({5:6] 1s the ASCII frarie value now 
* 


B=C W Copy the ASCII to BIW] for now 
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56 F6BDB 7000 GOSUB FRANSb 
57 F6BDF 07 FRANSb C=RSTK Now C{A] has the address of FRANSb 
58 F6BE1 136 CDOEX .. now in DO. 
59 F6BE4 06 RSTK=C Save DO on the stack... 
60 k 
61 * Suap value of frane # into DO, address of FRAMSb into A[A}... 
62 x 
63 F6BE6 132 ADOEX 
64 F6BES 20 P= 0 
65 F6BEB 346A LC(S) (FRAMET)-(FRANSb)+#4 Offset to table + #4 
000 
66 F6BF2 CA A=A+C A 
67 F6BF4 132 ADOEX Restore A[A], set DO to table+4 
68 x 
693 * Now DO points to the frane table, A is the frane # 
70 k 
71 FOBF? 1567 FRAME? C=DATO W Read the ASCII for the current frame 
72 F6BFB 8000 P=C 0 
73 x 
74 * Nou P is the frane length 
75 & 
76 FOBFF BF6 CSR W Shift off the length nibble 
77 FECO2 890 ?P= 0 If length=0, not found... 
78 F6COS 27 GOYES FRAMES Not found! 
79 x 
80 * Nou have a valid ASCII string in C([5:0] 
81 k 
82 F6CO7 911 7B=C =P 
83 FeCOR 11 GOYES FRANE2 Found a natch! 
84 x 
85 * This does not match...try again! 
86 x 
87 F6COC 164 DO=D0+ 5 Skip frane bits and text length 
88 F6COF 136 CDOEX 
89 F6C12 809 C+P+4 Add text length to DO 
90 F6C15 136 CDOEX 
91 F6C18 SED GONC FRANE1 Go always 
92 x. 
93 x 
94 F6C1B FRAME2 
95 & 
96 * When here, had an ASCII natch! 
97 x 
98 F6C1IB 80FF CPEX 15 Save length (P) in C{S] 
99 x 
100 * Preset B[X] to HFFF (For nask) 
101 x 
102 F6CIF D1 B=0 R 
103 F6C21 CD B=B-1 A B[ X ]=#FFF 
104 F6C23 183 DO=DO- 4 Point to start of entry... 
105 F6C26 15€3 C=DATO 4 ...and read the frane valuetinfo 
106 FoC2A 23 P= 3 Point to the status nibble 
10? FeC2C ACG C=C+C P Is this a cornmand bits only frane? 
108 F6C2F 580 GONC FRAMES No...continue 
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110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 


125 
126 
127 
128 
129 


130 
131 
132 
133 
134 
135 
136 
13? 
138 
139 
140 
141 
142 
143 
144 
145 
146 
14? 
148 
149 
150 
191 
182 
163 
154 
155 
156 
15? 
158 
159 
160 
161 
162 


F6C32 AEG 
FoC35 AE1 
F6C38 473 


F6C3B AOE 
FeC3E 532 


F6C41 D5 
F6C43 20 
F6C4S 320E 
F 
F6C4A OEFT 
F6C4E FE 
F6C5O OEF2 
F6C54 OEF9 
F6C58 320E 
F 
F6CSD DD 


FOCSF 501 


FeC62 ADE 
Feces 5A0 


Feces 20 
FeC6R A86 
FeC6D ASI 


F6C70 
FeC?70 BED 
F6C73 21 
FeC75 OD 


FoC7? 136 
FeC7R 07 
FeC7C 136 
FeC7F 01 
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* Copy the low 8 bits from A[B]! 
x 
C=A B 
B=0 B Clear low 8 bits of nask 
GOC FRAMES Exit, carry cleared by FRAMES 
x. 
k. 
FRAMES C=C+C P Is this a low 5 bits only? 
GONC FRANE4 No...continue 
x 
* Need to copy the low 5 bits of A[B] into C(B] 
k 
B=C A Temporary storage! 
P= 0 
LCHEX FEO Mask for low 5 bits 
B=B&C A Now B[X] is the high bits of frane 
C=-C-1 A One’s conplenent of C{X] 
C=R&C A Now C{X] is the low bits of frane 
B=C'B A Now B[X] is the full frane 
LCHEX FEO Mask value 
BCEX A Nask in B[X], Frane in C[X} 
x 
* C=-C-1 above cleared the carry unconditionally 
x 
GONC FRAMES Go always-exit, clear carry 
he 
FRAMES C=C+C P Low 4 bits? 
GONC FRAMES No...full frane! 


x 
* This is a low 4 bits case... 
x 


vu 70S 


A 
0 Clear low 4 bits of mask 

* Now C[X] is the frane...clear carry, then restore data 
k 


FRAMES 
~B-1 B Set B[B] to mask for frane 
1 


P-1 Now P=0, carry is clear 


* Nou restore the data 
x 


FRAMES CDOEX These instructions don’t alter carry 
C=RSTK Restore DO value 
CDOEX 


FX III OOO IOICI III IDIOT OI TIO TOI. 
OORT OI tO OOO IIT IOI TO TOTO 
ak 


*k Narie: FRANET - Frane table fornat 


214 


* CofrianD class... 
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163 ak 
164 ** Category: LOCAL 
165 xh 
166 *k Purpose: 
167 aig Table of entries for frane encoding/decoding 
168 aK (ASCII vs frane value) 
169 ak 
170 kk Detail: 
171 ak Format of entries as seen in RAN: 
172 kk 
173 ak Length (nibbles) Definition 
174 Pe) See oe ee, we ee ero 
175 ak 3 Frane value (least sig nib first) 
176 ak 1 Control bits: 
177 aA 8: Connand bits only 
178 aK 4: High 6 bits only 
179 ** 2: High 7 bits only 
180 aR 0: All bits neaningful 
181 xn 1 Text length (WP value) 
182 x (Length+1) Text of frane 
183 a 
184 ze As read into the A register: 
185 ak A[<--Text-->, <--length-->,<--control-->,<--frane-->] 
186 ak nib:15....... Baca Wao risatexee: sae ciee dee 
187 ak 
188 SOOO IOC TOTTI TTT III ATI AR 
189 JOIST TI TIO TIT TTA 
190 F6C81 =FRAMET 
191 x 
192 Conand EQU 8 
193 High6 EQU 4 
194 High? = EQU 2 
195 Allbit £QU 0 
196 x 
197 : Frane classes (no subdivisions) 
198 
199 F6C81 000 NIBHEX 000 DATA 
200 F6C84 8 CON(1) Conand 
201 F6C85 7 NIBHEX ? Length of DATA 
202 F6C86 4414 NIBASC \DATA\ 
4514 
203 a 
204 FEC8E 002 NIBHEX 002 
205 F6C91 8 CON(1) Conand 
206 F6C92 5 NIBHEX 5 Length of END 
207 F6C93 54E4 NIBASC \END\ END 
44 
208 x 
209 F6C99 006 NIBHEX 006 
210 FECSC 8 CON(1) Conand 
211 F6C9D 5 NIBHEX 5 Length of IDY 
212 F6CSE 9444 NIBASC \IDY\ IDY 
95 
213 & 
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215 x 
216 FOCA4 F34 NIBHEX F34 
217 FECA? O CON(1) Allbit 
218 FECA8 5 NIBHEX 5 Length of UNL 
219 F6CR9 55E4 NIBASC \UNL\ UNL 
C4 
220 x 
221 FOCAF 024 NIBHEX 024 
222 FeCB2 4 CON(1) Highé 
223 F6CB3 B NIBHEX B Length of LISTEN 
224 FecBb4 C494 NIBASC \LISTEN\ LISTEN 
3545 
54E4 
225 x 
226 F6CCO F54 NIBHEX F54 
227 F6CC3 O CON(1) Allbit 
228 F6CC4 5 NIBHEX 5 Length of UNT 
229 F6CCS 55E4 NIBASC \UNT\ UNT 
45 
230 x 
231 F6CCB 044 NIBHEX 044 
232 FECCE 4 CON(1) High6 
233 F6CCF 7 NIBHEX ? Length of TALK 
234 F6CDO 4514 NIBASC \TALK\ TALK 
C484 
235 x 
236 FOCD8 064 NIBHEX 064 
237 F6CDB 4 CON(1) High6é 
238 FACDC 5 NIBHEX 5 Length of SAD 
239 FecDD 3514 NIBASC \SAD\ SAD 
44 
240 x 
241 F6CE3 OAS NIBHEX OA4 
242 F6CEG 4 CON(1) High6 
243 FOCE? 5 NIBHEX 5 Length of DDL 
244 FECES 4444 NIBASC \DOL\ DDL 
C4 
245 x 
246 FECEE OC4 NIBHEX OC4 
247 F6CFi 4 CON(1) High6 
248 FOCF2 5 NIBHEX 5 Length of DDT 
249 FOCF3 4444 NIBASC \DDT\ DDT 
45 
250 0 
251 * CoMmanD class continues below... 
252 x 
253 * RealY class... 
254 x 
255 F6CF9 005 NIBHEX 005 
256 FOCFC 8 CON(1) Conand 
257 FeCFD 5 NIBHEX 5 Length of RDY 
258 FECFE 2544 NIBASC \RDY\ RDY 
95 
259 x 


260 * End of ReaDY class! 


Saturn Assenbler PIL Frane Routines<831012.1534 Tue Jan 17, 1984 12:06 pn 


Ver. 3.39/Rev. 2306 Page 6 
261 & 
262 * At this point, only CoMnmanD franes are left... 
263 * 
264 F6D04 094 NIBHEX 094 
265 F6D07 © CON(1) Allbit 
266 F6D08 5 NIBHEX 5 Length of IFC 
267 F6D09 9464 NIBASC \IFC\ IFC 
34 
268 x 
269 FODOF B94 NIBHEX 894 
270 F6D12 O CON(1) Alibit 
271 F6D13 5 NIBHEX 5 Length of LPD 
272 F6d14 C405 NIBASC \LPD\ LPD 
44 
273 x 
274 F6DIA 104 NIBHEX 104 
275 FeD1D © CON(1) Allbit 
276 FODIE 5 NIBHEX 5 Length of GTL 
277 FEDIF 7445 NIBASC \GTL\ GTL 
C4 
278 k 
279 F6D25 404 NIBHEX 404 
280 F6D28 0 CON(1) Allbit 
281 F6éd29 5 NIBHEX 5 Length of SOC 
282 F6D2R 3544 NIBASC \SDC\ Soc 
34 
283 : 
284 * End of all defined commands 
285 * 
286 F6D30 004 NIBHEX 004 
‘ 287 F6D33 8 CON(1) Conand 
i 288 F6D34 5 NIBHEX 5 Length of CMD 
289 F6D35 3404 NIBASC \CND\ CMD 
44 
2% - 
291 * Following are special case, ASCII search match only!!!! 
292 * (Will never match on any other search because high bit set) 
293 : 
294 F6D3B 20F NIBHEX 20F 
295 F6D3E 0 CON(1) Allbit 
296 FOD3F 5 NIBHEX 5 Length of MLA 
297 F6D40 D4C4 NIBASC \MLA\ MLA (My listen address) 
14 
298 x 
299 F6d46 40F NIBHEX 40F 
300 F6D49 0 CON(1) Allbit 
301 F6D4A 5 NIBHEX 5 Length of MTA 
302 Fed4B D445 NIBASC \NTA\ MTR (My talk address) 
14 
303 ‘ 
304 * Now all frane types should be complete...put a null entry 
305 * to end a text search 
306 x 
307 F6D51 000 NIBHEX 000 


308 F6D54 0 CON(1) Allbit 
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309 FE6DS5 0 NIBHEX 0 Length of last entry (0) 
319 & 
311 * End of the table! 
312 k 


313 F6D56 END 
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Allbit 


Coniand 
FRAME1 
FRANE2 
FRANE3 
FRAMES 
FRAMES 
FRAMES 
=FRANEE 
=FRAMET 
FRANSb 
Highé 
High? 


Rbs 


Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 


0 #00000 


8 #00008 
1010679 #FOBF7 
1010715 #F6C1B 
1010747 #F6C3B 
1010786 #F6C62 
1010800 #F6C70 
1010807 #F6C77 
1010648 WFEBDS 
1010817 #F6C81 
1010655 #F6BDF 

4 #00004 

2 #00002 


t to ft € F 4 


196 
0 
192 

71 

34 
117 
137 
148 
155 

51 
190 

5? 
193 
194 


217 
38 
200 
91 
83 
108 
118 
114 
78 


65 
56 
222 


227 
205 


65 
232 


PIL Frane Routines<831012.1534 
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265 
210 


138 


237 
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270 
256 


242 


275 
287 


247 


280 
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Input Paraneters 
Source file nane is NZ8FRA: MS 
Listing file name is NZ/FRA:TI:NL::-1 
Object file name is NZZFRA: TI: MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler News 
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— 
—-DWOWNHODB wr 


no — = =) = ow — -2 
ODO ownnnhPwr 


Pon nm 
wn— 


RIM KN 
Dn 


WwW WARP 
- OWN 


Ww Ww Ww 
NN & wn 


PwwWw 
OwWowwn 


HHH SHH 
AN Bwh- 


a) 


ba 
‘9 00 


nano 
— + 


RO 


Noam 
un dw 


FedS6 


OF 0 0 Oe OF Oe OOO 
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N N 22272 & L oo000 Wo OW 
N ON zz 8&8 L Oo OW W 
NN ON Z && L 0 ow wW 
NNN Zz & L 0 O WWW 
N NN 2 &&& L 0 O WWW 
N NZ & &® OL 0 O WH WW 
N N 222272 8&& LLLLL 00000 W NU 


TITLE Low-level USER HP-IL <830927.1414> 
ABS #F6D56 TIZHP6 address (fixed) 


FOI IIT TOOT ITI TOO TTI TI TI ITI IIT 
FOI IOI I TTI TI III IIIT NK 


xk 
xk 
ak 
ak 
ak 
xx 
xk 
xk 
ak 
ak 
aK 
xk 
ak 
ak 
ak 
ae 
xk 
aK 
ak 
xk 
ak 
xh 
xx 
xk 
ax 
xx 
xk 
xx 
ak 
aK 
xk 
xh 
xk 
xk 
ae 
ax 
xk 
xk 
xk 
ae 


Nave: FLOAT!,FLOAT+ - Convert a hex value to floating 
Category: CONVRT 


Purpose: 
Converts a hex nurber into a floating point # 


Entry: 
FLOAT!: C{W] is the hex value 
FLOAT+: A[W] is the hex value 
Exit: 
Carry set if value is zero, else clear 
C{W} is the floating nuriber 
Calls: HTODX 
Exclusive: A[W], C{W],P 
Inclusive: A[W],B(W],C{W],P 


Stk lvls: 1 (HTODX) 


Algorithn: 
FLORT!:Copy C[W] to AW] 
FLOAT+:Convert A[W] to decinal (HTODX) 
If result 1s zero, then return, carry set 
Set exponent value (P) to 15 initially 
FLOAT1:Shift result one digit left 
Decrenent exponent 
If most significant digit of result = 0 then 
goto FLOAT 
Shift result right one digit (nost sig = 0) 
Put exponent in C{0] 
Return, carry clear (non-zero) 
History: 
Date Progranner Modification 
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56 

57 

58 

59 

60 F6D56 AFA 
61 F6D59 8E00 

00 

62 FODSF AFS 
63 F6D62 97A 
64 FedES 00 
65 F6D67 2F 
66 F6D69 BF2 
67 FebeC OD 
68 F6DGE 94A 
69 F6D71 8F 
70 F6D73 BFE 
71 F6D76 AB2 
72 F6D079 80FO 
73 F6D7D 20 
74 FOD?7F 03 
75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

39 
100 

101 

102 
103 

104 

105 
106 

107 

108 

109 
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kk 11/19/82 NZ Added docunentation 
kk 


FORO IOI ITI TOTO OTT TTT TT 
SKI JOTI TO ITT TTT TOTTORI 


=FLOAT! A=C W 


=FLORT+ GOSUBL =HTODX Result in B 
C=B W 
=FLORT- ?C=0 = W Is initial value 0? 
RTNYES Yes...done! 
P= 15 Initialize exponent to 15 
FLOAT1 CSL W Shift result left one digit 
P=P-4 Decrenent exponent 
7C=0 «= § Is nost significant digit zero? 
GOYES FLOAT1 Yes... loop back for nore 
CSR W No...undo last shift (C{S]=0) 
C=0 x Clear exponent field 
CPEX 0 Set C[0] to exponent value 
P= 0 (Unnecessary instruction) 


Return, carry clear (non-zero) 
JOO III II IOC TTR 


FOI I TO TTT IIIT II IST IIIT IT ITD IK 
ax 


** Nare: POPIN - Pop one nuneric value fron MTHSTK 
wk 

*k Category:  GETUTL 

kh 

** Purpose: 

as (Sane as nainfrane POP1N) 

xa 

ak Entry 

wa D1 points to top of stack 

aa 

xe Exit: 

ie DECIMAL MODE!!! 

a P=0 

an If not numeric, jumps to ERRORX 

Re A[W] 1s real part, RO is inaginary (if complex) 
Ax Carry clear if real, carry set if complex 

kk 

xk Calls: None 

ka 

kk Uses....... 

kk Inclusive: A[W],B[0],RO,D1,P 

ae 

Xk Stk lvls: 0 

ak 

xk History: 

kk 

ae Date Programmer Modification 

Oi ileus, seiko  Wttieecauateateckeatueaawucsecoun 
*k 11/19/82 NZ Added docunentation 

aK 


FOO OI TTT TTT II OK 
FOO RU TTT TT QT TTT TI IIT ITI IK 
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110 F6D81 05 

111 F6D83 20 

112 F6D85 A81 

113 F6D88 ROD 

114 F6D8B 1537 

115 F6D8F 980 

116 F6D92 40 

117 F6D94 03 

118 

119 

120 F6D96 04 

121 Fed98 BO4 

122 FeD9B B04 

123 Fed9E 96C 

124 FeDA1 71 

125 F60R3 171 

126 F6DR6 153? 

127 F6DAR 17F 

128 FODAD 100 

129 F6DBO 1537 

130 F6DB4 05 

131 F6DB6 02 

132 

133 

134 FeDB8 20 

135 FeDBR 8000 
00 

136 

137 

138 

139 

149 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

1514 

152 

153 

154 

155 

156 

15? 

158 

159 

160 

161 

162 

163 
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=POPIN SETDEC 


ke 
x. 


P= 0 

B=0 P 

B=B-1 P Set B[0]=9 
R=DAT1 W Read the iter 
7A>B OP 
GOYES P 
RTNCC 


OP 1N# Check if conplex or otherwise 


POPINH SETHEX 


A=A+1 P 
A=A+1 P 
AHO OB Check if complex (OE) 
GOYES POPINE Error...type conflict 
D1=Di+ 2 
A=DAT1 W Read in imaginary part 
Di=Di+ 16 
RO=A Save in part in RO 
A=DAT1 W Read in real part 
SETDEC 
RTNSC Return with carry SET 
x. 
ke 
POPINE P= =eNNUNR Not nuneric 


Errorx GOLONG =ERRORX 


FORO OOO OO TOTTI 
FOI IORI UIT TT TIT IIIT IIIT RTT TTT ITI 


Km 
ak 
aK 
ak 
xk 
aK 
ak 
xk 
aK 
a 
ak 
ak 
xk 
ak 
ak 
ak 
xk 
xx 
xk 
aA 
at 
ae 
xk 
ak 
aK 


Nane: RESET - Reset the Dianond processor 
Category:  STEXEC 


Purpose: 
Reset an HPIL mailbox (Diamond), set up default parns 


Entry: 
None 
Exit: 
Through NXTSTN 
Calls: GTYPRM, GETLOP, FNDMNB-, GETERR, CHKST+ 
Uses....... 
Exclusive: A, (C, Pp 


Inclusive: A,B,C,B,RO,R1,R2,R3,R4,D0,01,P,S7[11:0], FUNCxx 
Stk lvls: 6 (GTYPRM) 
History: 


Date Prograrner Modification 
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164 ek 09/26/83 NZ Updated docunentation 
165 &k 06/24/83 NZ Changed to wake up dianond and 
166 aK REPORT any errors it found 
167 ke 11/19/82 NZ Added docunentation 
168 ae 
169 SI III II III II III III TIT IIIT ISI IS IASI ISI IST IIT SII IIS ST ISIS SIS: 
170 SII II RII III SII IAI ITI IASI IIIS IIS IS IIIS II STS IIIT IS ISIS IS ISIS IIS. 
171 FEDCO 0000 REL(5) =RESETd 
0 
172 F6DC5 0000 REL(5) =RESETp 
0 
173 F6DCA =RESET 
174 FeDCA AC2 C=0 S Clear C{S] 
175 FeDCD 14A A=DATO B Check if a loop # given 
176 F6DDO 3100 LC(2) =tCONNA 
177 F6DD4 962 A=C OB 
178 FeDD? 11 GOYES RESETO Not loop expression...skip it 
179 F6DD9 8E0O GOSUBL =GTYPRM Get (type) loop # fron RAN 
00 
180 FeDDF 453 GOC Resete If out of range, error 
181 F6DE2 8EX GOSUBL =GETLOP Get loop # into C[S} 
00 
182 F6DE8 RESETO 
183 F6DE8 8E0O GOSUBL =FNDNB- Clear DISPLAY, etc; FNDMBX 
00 
184 F6DEE 462 GOC Resete If not found, error! 
185 F6DF1 AF2 C=0 W 
186 FODF4 27 P= 7 
187 FeDFé 308 LCHEX 8 Reset Dianond 
188 F6DF9S 15C8 DATO=C 9 Clear the NRD bit, too! 
189 FEDFD 7000 GOSUB =GETERR Check if any errors 
19 F6EO1 431 GOC Resete Errors! 
191 F6EO4 8£00 GOSUBL =CHKST+ Set up paraneters for Dianond 
00 
192 F6EOR 4A0 GOC Resete Error 
193 F6EOD 8C0O Nxtstn GOLONG =nXTSTN Next BASIC statenent 
00 
194 te 
195 x 
196 F6E13 20 Resetr P= =eRANGE (Unnecessary instruction) 


197 F6E15 G4AF Resete GOTO  Errorx 
198 F6E19 END 
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CHKST+ 
ERRORK 
Errarx 
=FLOAT! 
=F LORT+ 
=F LOAT- 
FLOAT1 
FNDMB- 
GETERR 
GETLOP 
GTYPRM 
HTODX 
Nxtstn 
=POPIN 
POP1 N# 
POP1 NE 
=RESET 
RESETO 
RESETd 
RESETp 
Resete 
Resetr 
eNNUMR 
eRANGE 
nxTSTn 
tCONMA 


Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 


10111 
101103 
1011033 
1011042 
1011049 


1011213 
1011073 
1011094 
1011128 
1011146 
1011176 


1011221 
1011219 
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Synibol 


#F6ODBA 
#F6D56 
#F6D59 
#F 6D62 
#F6D69 


#F6E0D 
#F6D81 
#F 6D96 
#F 6DB8 
#FODCA 
#F ODES 


HF6E15 
#F6E13 


Table 


= St 
- = 135 
- 135 
5 60 
2 61 
= 63 
? 66 
- 183 
- 189 
- 184 
ei 14149 
= 61 
- 193 
= 110 
e “120 
- 134 
= 479 
- 182 
= 424 
- 172 
=, Aur 
- 196 
- 134 
- 196 
= 193 
- 176 


197 


69 


116 
124 


178 


180 


184 


190 
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Input Paraneters 
Source file nare is NZ&LOW: : MS 
Listing file nane ais NZ/LOW: TI: ML: :-1 
Object file name is NZZLOW: TI:MS::-1 


4141114 
0123456789012345 
Initial flag settings are 
Errors 
None 
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Ver. 


Won nn Hw 


12 
13 F6E19 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
44 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


* + eM lO 


File Execution <840113.1351> 


Bee eSeSAZTSTe 
z 
ZEeBeSATZZTz 


TITLE 
ABS 


Tue Jan 17, 1984 12:06 pn 
Page 1 
27272z) 8 FFFFF KX X QQQ 
Zz 88% F xX xX Q Q 
Z &8& F KX Q Q 
v4 & FFFF x Q Q 
Zz &&& F KX QQQ 
Z & & F xX xX Q Q 
7272772 —8& & OF KX xX Q0Q 
File Execution <840113.1351> 
#F6E19 TIZHP6 address (fixed) 


FOR TOI OOO ROOT TOTTI TTT TIT OK 
FOTO IIIT OTT TST T III I III ITN. 


ak 
xk 
ak 
ak 
ak 
xk 
an 
ak 
xk 
xk 
xk 
ax 
ak 
ak 
xx 
ae 
ax 
ak 
ak 
xk 
xk 
xx 
xk 
ak 
xx 
ax 
xk 
xk 
ak 
ak 
xk 
xk 
xk 
xx 
ak 
xk 
xk 
xk 
xk 
xk 


Narie: 
Nane: 


Category: 


Purpose: 


GETDID - Get device ID (specifier) 
GETDIX - Get device ID (String expr on stack) 


FILUTL 


GETDID fetches a device ID, given 00 pointing to the 
ID in progran menory 


Entry: 


DO points to the ID in progran nenory 


Exit: 


Carry clear: Address/type in ae oe type/ID in B 
If D[X]=0, then device id = "" 


P=0 


FUNCDO contains the DO value after evaluating ID 
Carry set: error, P=error nunber 


Calls: 
Inclusive: 
Stk lvls: 
Stk lvls: 
History: 
05/02/83 
03/18/83 
03/17/83 
03/15/83 


GETSTR, PROCLT, NXTCHR, BAKCHR, PROCST, TSAVDO, START 
A-D, RO-R4, D0, 01,P,STMTD1[3:0], STNTR1 , FUNCxx, 
ST[11:0],all RAN that EXPEXC is pernitted to use 


GETDID: 6 (GETSTR) 
GETDIX: 4 (PROCST) 


Progranner Modification 

NZ Added flag for colon/senicolon 
required to GETDIX, added GETDI+ 

NZ Changed GETDIX to use NXTCHR, 
rerioved SaveDO code 

NZ Changed register usage (+STMTD1, 
reriove STNTRO) 

NZ Returned exit conditions to those 
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56 
57 
58 
53 
60 
61 
62 
63 
64 


65 
66 
6? 
68 
69 
70 
71 
72 
i 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
8? 
88 
83 
90 
91 
92 
93 
94 
35 
96 
9? 
38 
ag 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 


F6E19 8E00 
00 
FOEIF 400 
FOE22 870 
F6E2S DO 


F6E27 7834 
FOEZB D7 
F6E2D 555 
F6E30 02 


FEE32 


F6E32 8A8 
FOE35 C4 

F6E3?7 840 
FOE3A 7B56 
FOE3E 463 


F6E41 31A3 
F6E45 962 
F6E48 41 

FEE4A 31E2 
FOESE 962 
F6ES1 31 

FEES3 870 
FOESH 72 

FEES 7276 
FEESC 70FO 
FOEGO 67 


FoE64 78691 


FEE68 400 
FeEGB 7A26 
FeE6F D? 
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aA 
ak 03/01/83 NZ 
ek 41/04/82 NZ 


ak 


originally given (D[A]) 
Changed GETDIX to use PROCLT 
Added docunentation 


OO IOI TOI IIIT TO TTT IT ITI II IK 
FOI III IOI IOI TOR TOT TO III TI TIT I II IK 


TerriRq EQU 0 

k 

=GETDID GOSUBL =GETSTR 
RTNC 


?S$T=1 =sSTK 
GOYES GETDI1 


Status bit for terminator required 
Get string/literal-sets =ST(sSTK) 
If carry, ERROR 


String expression 


* Literal expression in menory 


k 
GOSUB PROCLT 


D=C A 
GONC GETDIS 
RTNSC 


x. 
x. 


GETDI1 
& 


* This is a string expression 


Process literal 
Put device type into D[A] 
If no carry, finish it up 
If carry, error 


* (Start of string in 01, D[A] @ end of string) 
* 


7A=0 =A 

GOYES GETDI4 
=GETDIX ST=0 = TernRg 
GETDI+ GOSUB Nxtchr 


COC GETDI3 

* 

*Is ita ";"? 

x 
LCASC \:\ 
*A=C OB 
GOYES GETDIO 
LCASC \.\ 
"A=C OB 


GOYES GETDI2 
?ST=1 TernRg 
GOYES GETDI3 
GOSUB Bakchr 
GETDIO GOSUB PROCST 
GOTO =GETOCK 


ke 
xe 


GETDI2 GOSUB PRSTv1 
k 

* Fall into GETDOCK 

x 


GETDCK RITNC 
GOSUB  Nxtchr 
b=C A 


Null string 

Terminator (colon/seric) optional 
Read the first char 

End of string...error 


Is 1t a colon? 
Yes...Nxtchr was OK 
No...check volure label 

Is it a volune label? 
Yes...process volune label 
Was a terminator required? 
Yes...bad device spec 
No...back 1t up 

Process string entry point 


Yes...process volune label 


If carry, error 
Check to be sure no nore data 
Put address in D[A] 
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110 FOE71 411 

111 F6E74 3102 

112 FOE78 962 

113 F6E7B 80 

114 F6E7D 20 

115 FOE7F 02 

116 

117 

118 F6E81 D3 

119 F6E83 8E00 
00 

120 F6E89 850 

121 F6E8C 8AB 

122 F6E8F EE 

123 F6E91 8E00 
0 

124 F6E97 400 

125 F6E9A 8C00 
00 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

154 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 


GE 


oo 
x. 


GE 
GE 


ak 
ak 
kk 
ak 
ak 
ak 
ak 
xk 
xk 
xk 
ak 
ak 
ak 
ak 
ak 
xk 
xk 
xk 
xx 
ak 
xx 
ak 
xk 
xk 
ax 
ak 
xk 
ak 
xk 
ak 
ak 
xk 
ae 
ak 
xk 
ax 
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GOC GETDI5 If carry, end of string 
LCASC \ \ 
eA=C OB Is the next char a blank? 
GOYES GETDI5 Yes...accept it 

TOI3 P= =eDSPEC Illegal device id 
RTNSC 

TDI4 D=0 A 

TOIS GOSUBL =TSAVDO Save DO in FUNCDO 
ST=1 =sDevOK If here, device is OK 
7D=0 6A 
GOYES GETDI3 If 0=0, then "", "*", or * 
GOSUBL =START Find out the tape address 
RTNC Error 
GOLONG =SETUP Arrange the info from START 


FOUR ORO UT TTI 
SOR TOT TO Tr 


Nane: GETPIL - Evaluate an HPIL file specifier 
Nane: GETPI+ - Get an HPIL file specifier fron stack 


Category: FILUTL 


Purpose: 
This routine extracts the file nane and the device 
and returns with the device type/device ID in B[W], 
address/type in D[X] 


Entry: 
DO points to the file specifier in progran menory 


Exit: 
ST(sDevOK) set if device spec was ok, else clear 
Carry clear: 
Filenane in RO, R4(15:12] 
Device type in B[X]/B[W], address in D[X] 
If address = X00, then this is a * ora “" 
AVMENE collapsed back to starting point 
Carry set: 
Error (P,C[O] are error code) 


Calls: GETSTR, FXOQPIL, NXTCHR, PROCLT, PROCST, ASRC4 , D1=AVS, 
DI@AVE ,CSRC12,GETDI5, ASLC12 


Uses....... 
Inclusive: A-D,RO-R4,D00,D1,P,STNTD1[3:0], STNTR1,ST[11:0], 
FUNCxx,all RAM that EXPEXC is permitted to use 
Stk lvls: 6 (GETSTR) 


History: 
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162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 FeERO 


175 FeER6 
176 F6ERS 
17? 
178 
129 
180 
181 
182 
183 
184 
185 
186 
187 FoEAD 


188 FOEB3 
189 FOERG 
190 F6EB8 
191 F6EBB 
192 
133 
194 
195 FOEBE 
196 FOECO 
197 FeEC3 
198 F6EC6 
199 F6EC8 
200 F6ECB 
201 
202 
203 
204 
205 
206 FOECF 


207 FEDS 
208 FEDS 
209 FoEDA 
210 FOEDE 
211 FOEEO 


212 FeEE6 


8£00 
00 


400 
7735 


8E00 
00 
11C 
2B 
ASE 
104 


20 
840 
869 
90 
850 
6E6F 


8E00 
00 


143 
D2 
3141 
D5 
8EO 
© 
137 
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kk 
x Date Progranner Modification 
$8 -voocie Jee cieeease, | ealeeeweeeo cee en kl 
kK 95/01/83 NZ Changed GOSUB GETDIX to GETDI+, 
ae added ST=1 TernRg 
ek 03/17/83 NZ Changed STNT usage (+D1, -RO) 
&k 03/01/83 NZ Changed GOYES GETDI2 to GETDIX, 
a added call to GETDCK 
ak 41/04/82 NZ Added docurentation 


x 
FOO TTT TTT TT III 
FOI IO TO TTT TO TTT TK 


=GETPIL GOSUBL =GETSTR Get string/literal 


RINC Error 
=GETPI+ GOSUB FXQPIL 
k 


* FXQPIL returns with filenare (blank-filled) in RO,A[3:0] 
* (If carry set, A,RO are zeroed out) 
x 


* ST(sSTK) is set if reading fron the stack, clear if prog nen 


Pd 


* Now the filenane is in A and RO 


Pad 


* Move the last tuo characters to A[15:12], than to R4 
k 


GOSUBL =ASRC4 


C=R4 
P= 11 
ACEX WP 
R4=A 


x 
* If sSTK is 1, then reading fron the stack...process stack 
x 


P= 0 
ST=0  =sDev0K Device spec NOT ok until shoun so 
?ST=0 «=sSTK Stack? 
GOYES GETPI1 No...continue... 
ST=1— TernRq Terminator (:;) required 
GOTO = GETBI+ Read it fron the stack 
x 
k. 
* 
* Need to save filename on stack to protect fron PROCLT 
x 
GETPI1 GOSUBL =D1=AVS Set D1 = AVNENS 
A=DAT1 A ALA] 1s @ AVMENS 
C=0 A 
LC(2) 20 20 nibs for the filenane 
B=C A Save in B[A] for now 
GOSUBL =D1@AVE Set D1 @ AVMEME, C[A] = AVNENE 


CDIEX Di=AVMENE,C{A] @ AVNENE 
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213 F6EES E9 
214 F6EEB 8B6 
215 F6EEE AS 
216 F6EFO 145 
217 F6EF3 135 
218 FOEF6 118 
219 F6EF9 1557 
220 F6EFD 17F 
221 FOFOO 11C 
222 F6FO3 8E0O 


00 
223 F6FO9 1503 
224 
225 
226 
227 F6FOD 7253 
228 FOF11 400 
229 F6F14 D7 
2 F6F16 796F 
231 F6FIA 400 
232 
233 
234 
235 F6FID 06 
236 FOFIF 8£00 
00 
237 F6F25 1537 
238 FOF29 17F 
239 Forel 100 
240 F6F2F 143 
241 F6F32 8E00 
00 
242 FOF38 104 
243 FOF3B 173 
244 F6F3E 137 
245 F6F41 145 
246 F6F44 07 
247 
248 
249 
250 F6F46 03 
251 
252 
253 F6F48 20 
254 F6F4A 02 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
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x 


* Done saving nane on stack 
i 


x 


C=(-B A 

7AC OA 
GOYES GETPIn 
DATi=C A 

Di=C 

C=RO 

DAT1=C W 
Di=Di+ 16 
C=R4 


GOSUBL =CSRC12 
DAT1=C 4 


GOSUB = PROCLT 
RINC 

D=C A 
GOSUB GETDI5 
RTNC 
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C{A} is proposed new AVMEME 
Enough nenory? 
No...ansufficient nmenory 
Yes...write out new AVMENE 
Set D1 @ AVMENE 


Write out first 8 chars of nane 


Write out last 2 chars of nane 


Process literal 

Error (leaves info on NTHSTK) 
Put device type into D[A] 
Check it and set it up 


% Now restore the filenane fron stack 
k 


& 


* Done restoring levels now 
t 


ke 
GETPIn 


RSTK=C 
GOSUBL =DIG@AVE 


A=DAT1 W 
D1i=D1+ 16 

RO=A 

A=DAT1 A 
GOSUBL =RSLC12 


R4=A 
Di=Di+ 4 
CDIEX 
DATI=C A 
C=RSTK 


RTNCC 


P= =eNORAM 


Save C[A} on RSTK 
(C(A] = AVNENE) 


Restore first 8 chars to RO 


Put last 2 chars in R4[15:12] 


Set D1 = AVMENE 
Write out new AVMENE (pop 20) 
Restore C[R] 


Error...no merory 


JOR III ITI TO TTT TT TOI 
JORIS ITO IT I TI TOTTI TTI TT M 


ak 


tk Nare: 


xx 


** Category: 


ak 


PROCST - Process string device specifier 


FILUTL 


xk Purpose: 
Process a device specifier fron a string expression 


ax 
ax 
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265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
2” 
291 
292 
293 
294 
295 
2396 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
343 
314 
315 
316 
31? 
318 
319 


FOFAC 20 
FOF4E 02 


F6FSO 
F6F50 7545 
F6FS4 47F 
FOFS? 7C95 
F6FSB 497 


FeFSE 7C65 
FOF62 7262 
F6F66 45€ 
FOF6E9 78A2 
FeF6D 460 
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ek Entry: 
ax ST(SSTK)=1 
ak RO[W], R4{15:12] are filenare 
ik D1 points to next iten of string 
x D[A] is the end of the string 
i HEXMODE 
ae 
tk Exit: 
ax Carry set 1f error (P,C[O) are error nunber) 
ae Carry clear: 
ae P=0 
ae Device type/device id in B[X]/B[W) 
ak IF device type="*", *, or "" THEN C[X]=0 
x ELSEIF address, THEN C[X] is address+loop*i1024 
ak ELSEIF LOOP, THEN C[X] is "9F"+1lo00p*4096 
ax ELSEIF NULL, THEN C[B] is "7F" 
ax ELSEIF volune label THEN C[X] is "5F"+loop*4096 
xe ELSEIF device type THEN C[X] is "3F"+loop*4096 
ak ELSEIF device id THEN C[X] is “1F"+loop*4096 
be 
** Calls: NXTCHR, BAKCHR, UCRANG, GE TDVW, PROCDN, GTYPST, GADRST 
* . 
kk Uses. ...... 


tk Exclusive: 
** Inclusive: 
ae 


tk Stk lvls: 
be 


** History: 
re 


ak Date 
RR: oe ae 


tk 41/04/82 
ik 


ACW],B(W),C{W],R1,R2, P 
ATW], B(W),C(W],R1,R2,D1,P 


3 (GETDVW) 
Prograrner Modification 
NZ Added docunentation 


FORO UII OT OO II OI TOI 
JO IIIT III ICICI ITT III 


PRSTed P= 


RTNSC 
a 


ke 


=PROCST 
GOSUB 
GOC 
GOSUB 
GOC 


xk 
* Character IS 
k 


* Assign word, 
t 


GOSUB 
GOSUB 
GOC 
GOSUB 
GOC 


=eDSPEC Error...device spec 


Process string device spec 


Nxtchr 

PRSTed No device spec 

Ucrang Convert upper case, check [A-Z] 
PRST30 Not in [R-2]} 


in [A-Z]...contanue 


reserved word, or device id 


Bakchr Back past the character 
GETDVW Get device word 

PRSTed Bad device word (Error) 
PROCDW Process device word 


PRST10 If carry, takes a seq nunber 
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320 F6F70 6F90 . GOTO PRST9O If no carry, does NOT take seq # 
321 - 

322 x 

323 k 

324 * Now process sequence # 

325 x 

326 F6F74 109 PRST10 R1=C Save type in R1 

327 FOF77 AFS C-B OW 

328 FOF7A 10A R2=C Save type/ID in R2 
329 x 

3H” * Get sequence # 

331 & 

332 FOF7D 7815 GOSUB Nxtchr 

333 FOF81 4A3 GOC PRST25 No sequence nurtber...continue 
334 F6F84 20 P= 0 

335 F6F86 3182 LCASC \C\ 

336 F6F8A 966 7AHC OB 

337 FOF8D B2 : GOYES PRST20 No sequence #...back up, continue 
338 

339 * This has a sequence nunber...get it 

40 x 

Wi FOF8F 75FO GOSUB GTYPST Get type 

¥2 F6F93 400 RTNC Error 

33 FOF96 7FF4 GOSUB Nxtchr 

344 F6FOR 41B GOC = ~PRSTed No closing ")"...error 
345 x 

46 * Check for closing parenthesis 

47 & 

348 F6F9D 3192 LCASC \)\ 

349 FEFA1 966 AKC OB 

350 FOFA4 8A ‘. GOYES PRSTed Error...no closing ")" 
351 

362 * Closed properly...check its range 

353 % 

364 * First convert to zero-based count 

355 x 

356 F6FAG D9 C=B A Copy 2 digits to C[A} 
357 FOFA8 CE C=C-1 A convert to zero-based 
358 F6FAR 490 COC PRSTeR Range error 

359 FOFAD 21 P= 1 Check that C[1]=0 

360 FOFAF 90A 7=0 =P 

361 F6FB2 CO : GOYES PRST2?7 Go aluays...continue 
362 

363 FOFB4 20 PRSTeR P= =eRANGE 

364 F6FB6 02 RTNSC 

365 ee 

366 x 

367 FOFB8 7215 PRST20 GOSUB Bakchr Back up 1 character 
368 FOFBC D2 PRST25 (C=O A 

369 e 

370 * Nou C[B}] is sequence # 

371 x 

372 FOFBE 112 PRST27 A=R2 Recall type/1D 

373 F6FC1 AF8 B=A W 


374 FOFC4 111 A=R14 
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375 
376 
37? 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
403 
410 
411 
412 
413 
414 
415 
416 
41? 
418 
419 
420 
421 


an 
cu 


423 
424 
425 
426 
42? 
428 
429 


FOFC? 
FeFC9 
FOFCB 
FOFCE 
FOF DO 
FOFD2 


F6FDS 
FOFDS 
F6FDC 


FOFDE 
FOFEO 


FOFE3 
FOFE? 
FOFER 


FOFEC 
F6FFO 
F6FF3 


FOFF? 


FOFF? 
FOFFB 
F6FFF 


F7003 
F?007 
F?00R 
F700 


F?010 
F?013 
F?016 
F?019 
F701C 
F 7020 
F?7023 


Fe 
F2 
REG 
21 
oD 
503 


31A2 
966 
70 


D2 
5F2 


3152 
966 
DO 


7890 
4F1 
608F 


7304 
7RFO 
6010 


7101 
400 
D2 
3100 


400 
109 
AFS 
10A 
7974 
4(6 
31A3 
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CSL 
CSL 
C=A 
p= 
P=p-1 
GONC 

KS 

x 


PRST30 -LCASC 
ARC 
GOYES 
x 


* Device spec 
x 


C=0 
GONC 
i: 
ke. 


PRST40 —LCASC 
PARC 
GOYES 


x 
* Device type 
k 


GOSUB 
COC 
COTO 


xe 
xe 


PRST50 


* Address...back up to first 


x 


GOSUB 
GOSUB 


GOTO 
k. 


xe 
x 


* Process string volune spec 
x 


PRSTv1 GOSUB 
RTNC 
C=0 
LC (2) 


a 


-—" wD D 


PRST9O 


ee 

B 
PRST40 

is tl yee 

A 
PRST9O 
\Z\ 

B 
PRST50 


GTYPST 
PRST90 
PRST10 


Bakchr 
GADRST 
PRST9O 


GETDVW 
A 


=VolLb] 
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Sequence # is in C[XS]) nou 
Type/ID in C[B] now 


Clear the carry... 
Done 


Is this a "*"? 
No...continue 


Yes...continue with C[A]=0 
Go always...carry clear 


Is this a device type? 
No...tust be address 


Get type fron stack 
If carry, error 
Process sequence # 


character 


Back up 1 character 
Get address fron stack 
Carry indicates status 


Get volune word (get device word) 
Carry 1f error 

Clear high nibbles of C[A} 
Yolune label identifier 


* Check 1f a loop spec here... 
* 


PRST9) = RTNC 
R1=C 
C=B 
R2=C 
GOSUB 
GOC 
LCASC 


W 


Nxtchr 
PROCex 
Vek 


If carry, error in C(O], P 
Save address/type in R1 


Save device in R2 


Exit...done 
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430 F7027 966 

431 F702R F4 

432 

433 

434 

435 

436 

437 F702C 7850 

438 F703 400 

439 

440 

441 

442 F7033 31H” 

443 F7037 9E1 

444 F703A 90 

445 F703C 09 

446 F703E CE 

447 F7040 560 

448 

449 

450 

451 F7043 20 

452 F7045 02 

453 

454 

455 

456 

457 

458 F7047 112 

459 F704A AF8 

460 F704D 111 

461 F7050 816 

462 F7053 310E 

463 F705? OE6A 

464 F705B B66 

465 F70SE 812 

466 F7061 F2 

467 F7063 Fe 

468 F7065 4CO 

469 

470 

471 

472 F 7068 C6 

473 F706A C6 

474 F706C OE3A 

475 F7070 03 

476 

477 

478 F7072 F2 

479 F?7074 ABE 

480 F707? 03 

481 

482 

483 F7079 7154 
F707D 11A 
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aAHC OB 
GOYES PROCeX Not a loop spec...exit 
x 
* Have a loop spec 
x 
* Process string loop spec 
x 
GOSUB GTYPST Get type fron stack 
RINC Error (Bad loop #) 
x 
* Now loop # is in B[A] 
x 
LC(2) 3 ...Maxinun value is 3 
7BoC =6B 
GOYES PRSTer Out of range 
C=B A Copy back to C[B] 
C=C-1 fA Convert to zero-based count 
GONC PRSTEX If no carry, all OK 
x 
* If carry, out of range 
PRSTer P= =eRANGE 
RTNSC 
k. 
k. 
x 
* Now integrate loop spec with device spec 
k 
PRSTEX A=R2 
B=A W Restore device ID 
R=R1 Recall type 
CSRC Save loop # in C[S] 
LCHEX £0 Check if not address 
C=A'C B 
C=C+1 B If carry, not address 
CSLC 
CSL A 
CSL A 
GOC PROCna Not address 
k 
* Address...multiply tines 4 
x 
C=C+C A 
C=C+C A 
C=C'A XxX Nou C{X] is loop #, address 
RTNCC 
k. 
x. 
PROCna CSL A 
C=A Xx Loop # in C[3], device in C[X] 
RTNCC 
k. 
ke 
PROCeX GOSUB Bakchr Back up last character fetch 
PROCex C=R2 Recall device 
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485 
486 
487 
488 
483 
490 
491 
492 
493 
494 
495 
496 
49? 
498 
439 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
$22 
$23 
§24 
525 
526 
827 
528 
529 
530 
531 
532 
§33 
534 
§35 
536 
§37 
538 
539 


F 7080 AFS 
F7083 119 
F?086 03 


F7088 AF1 
F?708B 7A04 
F708F 405 
F7092 7234 
F7096 401 


F7099 F4 
F703B A88 
F709E 959 
F70R1 RE 


ak 
xk 
xk 
ak 
ak 
xk 
xk 
ax 
ak 
xx 
ax 
xx 
ak 
xx 
ae 
xk 
xk 
xx 
xk 
xx 
ax 
a 
ak 
xk 
ak 
xk 
KK 
ak 
aK 
aK 
ak 
ax 
ah 
ax 
ak 
ak 
xx 
aK 
ak 
=6 
GT 


x 
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C W 
Ri Recall type/address 


RTNCC 
FOI IO TT TOT TTT TTT TIT RITTIT IIT ATI IATA 


FORO II III ITT TIT TR ITO TI ITN 


B= 
C= 


Narie: GTYPST - Get type fron stack 
Category:  FILUTL 


Purpose: 
Given a pointer to the start of the type, return the 
nurieric value of the type 


Entry: 
D1 @ first digit of type 
D[A] @ end of specifier 


Exit: 
Carry clear: 
Type in B[X], D1 @ first unused iten 
C(X]=(=DevTyp) 
P=0 


Carry set: 


error (P, C{O] are error code) 

Calls: NXTCHR, BAKCHR, DTOH, RANGEN 
Uses....... 

Exclusive: A[W],B(W],C(W], P 

Inclusive: A[W],B[W],C{W},01,P 
Stk lvls: 1 (NXTCHR)(BAKCHR)(DTOH) (RANGEN) 
History: 

Date Progranner Modification 
11/04/82 NZ Added docunentation = 


JOIST ISI TOO IIE IO TIT TOI 
JUICE IIIS OOI I I IOI ISI IIIT 
TYPST B=0 W Clear B[W] (where total 1s built) 
YPS1 GOSUB Nxtchr Get next character 

GOC GTYPS5 End of strin 

GOSUB Rangen Check af an to-9] 

GOC GTYPS3 No. ..done? 


* Neu digit...add it in 
a 


BSL A 

B=R P Append new digit here 
7B=0) ON If non-zero, too big 
GOYES GTYPS1 Zero...continue 
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540 * Out of range 
541 x 
542 F70R3 20 =GTYPS2 P= 
543 F70A5 02 RINSC 
544 ke 
545 a. 
546 F70A7 31E2 GTYPS3 LCASC \.\ 
547 F70AB 966 “RAC OB 
548 F70RE E2 GOYES GTYPS4 Not a period...exit 
549 
550 period...continue 
551 x 
552 F70BO 75E3 GOSUB Nxtchr 
553 F70B4 482 GOC GTYPSS5 End of strain 
554 F70B7 7004 GOSUB Rangen Check if in to-3] 
555 F70BB 402 GOC GTYPS4 No...exit 
556 F70BE 05 SETDEC 
557 F70CO AOA A=A+A P Check if round UP 
558 F70C3 550 GONC GTYPS. No...exit 
559 F70C6 B35 B=B+i xX 
560 F70C9 04 =GTYPS. SETHEX (junp to here has carry CLEAR!) 
561 F70CB 470 GOC GTYPS2 Error...overflow 
562 x 
563 * Loop to skip trailing digits 
564 x 
S65 F20CE 7703 GIYPSd GOSUB Nxtchr 
566 F70D2 400 GOC GTYPS5 End of string 
567 F70D5 7FE3 GOSUB Rangen Check if digit 
568 F70D9 54F . GONC GTYPSd Yes...continue 
569 
570 F70DC 7EE3 GTYPS4 GOSUB Bakchr Back up past the last character 
571 F70EO AF4 GTYPSS A=B W Convert it to HEX now 
572 F?20E3 8E00 GOSUBL =DTOH 
00 
573 x 
574 * Now the type is in C (in HEX) 
575 x 
576 F?0E9 D1 B=0 A Check if in [0,255] 
577 F?0EB AED BCEX 8 (B[A] is value if C=0) 
578 FOEE 8RE 7CH#O OA 
579 F?0F1 2B GOYES GTYPS2 Out of range 
580 x 
531 * C(A] is zero to get here 
582 . 
583 F70F3 3100 LC(2) =DevTyp Device type 


584 F20F7 03 RTNCC 
585 JOO ICICI TT TTT TIT ETTT IAI T II IIIT 


586 FORO RJR JIT JJ TIO IO IIIT TI IK 


587 aE 

588 xk Narie: GADRST - Get address fron stack 

589 oa 

590 *k Category:  FILUTL 

591 KK 

592 xk Purpose: 

593 AE Similar to GTYPST, except that the first 2 digits 
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594 

5935 

596 

597 

598 

539 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 F70F9 AFI 
641 F?0FC 7993 
642 F7100 442 
643 F 7103 7103 
644 F7107 4014 
645 F710A F1 
646 F710C A&B 
647 F7IOF 929 
648 F?112 AE 
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ax after the decinal point, if any, are used as the 
ae secondary address 
ka 
*k Entry: 
a D1 @ first character 
as D[A] @ end of spec 
kk 
AR Exit: 
ax Carry clear: 
xk C[X] is address 
aK D1 @ first unused character 
a Skips trailing digits 
ar P=0 
as Carry set: 
a P, C{O] are error code 
ke 
** Calls: NXTCHR, BAKCHR, RANGEN, DTOH, CSRC2 
ke 
AM USOSi Paces 
*k Exclusive: A,B,C, P 
*x Inclusive: A,B,C,D1,P 
Jk 
** Stk lvls: 1 (NXTCHR)(BAKCHR)(RANGEN) (DTOH) (CSRC2) 
a 
** Algorithn: 
as Read a nunber from the stack until non-digit OR full; 
ak Check if "."...af not, return 
os Get another nurber fron the stack (2 digits) 
ae Combine the tuo nunbers as one address, return 
ok 
** History: 
ok 
xx “Date Prograrmer Nodification 
AGo Sones: ete Ngines ert E ese tea kee adem ee 
eK 12/21/83 NZ Changed order of BSL A, ?B=0 XS 
xh test at GADRS4 to fix a bug which 
aR got into an infinite loop. If the 
ah device spec contained a ".000x", 
aK where "x" is not a digit, the 
= code at GADRS4 would end up with 
kx B[X]=0, which caused an infinite 
ate assenbly code loop. 
*K 11/04/82 NZ Added docunentation 
ke 
FORO OOO IO IOI COT OIG RO IOI 
FOR OIRO IOI IOI IO OI OO IO III OI I IOI 
=GADRST B=0 W Clear B[W] to start 
GADRS1 GOSUB Nxtchr Get first iter 
COC GADRS. End of string...continue process 
GOSUB Rangen Check 1f in 0.3] 
COC GADRS2 No...check further 
BSL A 
B=R P Copy this digit in 
7B=0 XS Overf lou? 
GOYES GRODRS1 No... continue 
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649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 


667 
668 
669 
670 


671 
672 
673 
674 
675 
676 
677 
678 
679 
6380 
681 
682 
683 
6384 
685 
686 
637 
688 
689 
6% 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 


F7114 20 
F7116 02 


F7118 


F74118 
F714C 
F711F 


31E2 
962 
60 


F7121 7983 


AFA 
BE0O 


F7125 
F7128 


F712E 8E00 


AFS 
D1 
E5 
7A53 
434 
7283 
483 
Ft 
A88 
929 
AE 


F7134 
F7137 
F7139 
F7136 
F?713F 
F7142 
F7146 
F7149 
F7148 
F714E 
F7154 


F7153 7243 
F715? 493 
F715A 7AG3 
F715E 4&2 
F7161 05 
F7163 AO4 
F7166 550 
F7169 B65 
F716C 04 
F716E 45A 
F7171 7423 
F7175 481 
F7178 7C43 
F717C SFE 
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GRORSo P= =eRANGE 
RINSC 
Re 
GRORS2 
k 
* Got a non-digit...if not a decinal point, done 
k 
LCASC \.\ 
7A=C OB 
GOYES GADRS. "i". ..continue 


x 


GOSUB Bakchr Back up for next step 


* 
* Decinal point...get secondary address 
t 


GRORS. A=B W 
GOSUBL =DTOH Convert prinary address to hex 
t 
* Hex value in C[B] now 
x 
GOSUBL =CSRC2 Use C{15:14] as tenp storage 


* Prinary address in €[15:14] now 
i 


B=C W Copy to B[15:14) 

B=0 A Clear B[0} 

B=B+1 A Set B[O]=1 (Flag for 2 digits) 
GADRS3 GOSUB Nxtchr Get next character 

GOC GADRS4 End...ranipulate it 

GOSUB Rangen Check if in [0-9] 

COC GRDRSb No...back up, manipulate it 

BSL A 

B=A P Copy to B 

7B=0 XS Done yet? 

GOYES GADRS3 No...continue 


x 


* Reached here by reading 2 digits after decinal point 
i 


GOSUB Nxtchr Get next digit for rounding 
GOC GADRS6 No next digit...continue 
GOSUB Rangen Check if in [0-9] 
GOC GADRS5 Not a digit...back it up 
SETDEC 
A=R+A  P Check if rounding needed 
GONC GADRSs Skip other digits 
B=B+1 B Round UP 

GADRSs SETHEX 
GOCc GADRSo Out of range (If B=B+1 carry) 
GOSUB Nxtchr Read next character 
GOC GRDRS6 (End of string) 
GOSUB = Rangen Check if a digit 
GONC  GADRSs Yes...skip the next one 


pn 
13 
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702 x No...fall through to GADRSb 
703 F717F 7B43 GADRSb GOSUB Bakchr Back up the last NXTCHR 
704 F7183 GRDRS4 
705 k 
706 * Reached here before two digits 
707 x 
708 * B[X] cannot be zero to get here...at least one digit of B[X] 
709 : nust be 1 (fron flag set before GADRS3) 
710 
711 F7183 92D 7BRHO XS Done yet? 
712 F7186 BO GOYES GADRS6 Yes 
713 F7188 F1 BSL A Shift in a zero 
714 F718A 58F GONC  GADRS4 Go always 
715 x 
716 a 
717 F718D 7D33 GADRSS GOSUB Bakchr Back up the last NXTCHR 
718 F7191 GADRS6 
719 x 
720 * Now B[B] is secondary address in decinal...convert to hex 
721 k 
722 F7191 DO A=0 A 
723 F7193 AE4 A=B B 
724 F7196 8E00 GOSUBL =DTOH 
00 
725 F719C RES B=C B 
726 s 
727 ; Now B[B] 1s secondary address in hex, B[15:14] 1s prinary 
728 
729 F719F 31F1 ut(2) 31 
730 F?1A3 9E1 *BoC OB 31? 
731 F71AR6 6C GOYES GADRSs Too big for secondary! (Junp jurnp) 
732 F71R8 811 BSLC 
733 F71AB 8114 BSLC Now B[B] is prinary address 
734 F7iRE 9E9 7B>=C B >30? 
735 F71B1 BB GOYES GADRSs Too big for pranary! (Jump junp) 
736 F71B3 969 7B=0— iB 
737 F71B6 6B GOYES GADRSs Zero 1s NOT a legal primary addr 
738 . 
739 * B[B] 1s prinary, B[3:2] 1s secondary 
740 k 
41 F71B8 De C=0 R Clear C{xS] 
742 F71BA RED CBEX 8B Copy prinary to C[B], zero B[B} 
743 F71B0 F5 BSR A Secondary in B[2:1] 
744 F71BF A35 B=B+B xX Secondary*2 in B[2:1] 
745 F71C2 O€3D C=C'B Xx Prinary, secondary in C[X] 
746 & 
747 * Now address 1s in C{A] 
748 x 
749 F7106 03 RINCC 
750 JO IOI IS OU IGISEGIGISISEIIEOLIEUI OG III 
751 JOR RRR OIRO JOR ROIS IO TOI to tik 
752 ak 
753 kk Wane: GETDVW - Get device nord 
754 Re 
755 ** Category:  FILUTL 
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756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
7270 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
803 
810 


F71C8 
F71CB 
F71CF 


F7102 
F71D6 
F71D9 
F710C 
F?710F 
F71E2 
F71E5 
F?IE? 
F71EB 
F71EE 
F71F2 
F?1F5 


AFA 
7AC2 
4E2 


7123 
432 
RES 
815 
815 
96D 
31 
7ER2 
42) 
76D2 
56E 
4CD 
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ka 

** Purpose: 

ke 

Pe 

Entry: 
ST(=sSTK)=0: 


ST(=sSTK)=1: 


Carry clear: 


Carry set: 
Error (P, C(O] are 


Calls: 


hk 
oe 
ka 
ek 
wk 
xk History: 
1k 

kk 
tk 
xx 
ok 


Exclusive: B{w] 


Stk lvls: 2 (UCRANG) 


men ewe we 


11/04/82 


wwe ew wee we 


NZ 


NXTCHR, BAKCHR, 
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Get a device word, given a pointer to the word 


DO points to first letter of device word in nenory 


D1 points to first letter of device word on stack 
D[R}] points to the end of the specifier 


Device word in B[W], zero-filled, first letter in B[B] 
P=0, carry clear if no error 
D0/D1 @ next character 


error code) 


UCRANG, RANGEN 


p 


Wy, 
Inclusive: A[A],B{W],C[A}],00,01,P (sSTK=0: DO; sSTK=1: D1) 


Modification 


we ew ewe www em mw we ew we me em ww em we ee eee 


Added docunentation 


FORO ITI TOTTI TIT ITT IIIT TRI I IIIT 
FOR OIRO OTTO TTI TT TI II TK 


=GETDVW B=0 W 
GOSUB Nxtchr 
; GOC GETDV2 
: First character MUST be in 
GETDOVO GOSUB Ucrang 
GOC GETDV- 
GETDV1 B=A B 
BSRC 
BSRC 
BHO OB 
GOYES GETDOVr 
GOSUB Nxtchr 
COC GETOV2 
GOSUB Rangen 
GONC GETDV1 
coc GETDVO 
*. 
x 


Read first character 
Should NEVER happen... 


{A-2] or [a-z] 


Convert to upper case&check [A-Z] 
Done (not in faz) 

Copy to B[B]... 

.. rotate to B[15:14]... 


..-and check if roon for nore 
No roor...done 

Get next character 

Done... justify it 

Check if this 1s numeric... 
.» yes...save it 

Go always (Check if in [A-2Z]}) 
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811 F71F8 
812 
813 
814 F71FA 
815 FIFE 
816 F7201 
817 F7203 
818 F7205 
819 
820 
821 F720? 
822 F720R 
823 
824 
825 
826 F?20C 
827 F720F 
828 F7212 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 


03 


70D2 
97D 
60 
20 
02 


36D 
EE 


815 
815 
54F 
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GETDVr RTNCC Return, carry clear 
ke 
ke 
GETDV- GOSUB Bakchr Back up this character 
GETDV2 ?BHO OW If whole word is zero, Error 
GOYES GETDV3 Not zero...continue 
P= =eDSPEC Bad device word 
RTNSC 
x 
x 
GETDV3 ?BHO ) OB If B[B] is non-zero, done 
GOYES GETOVr Return, clear carry 
* 


* If blank-filling is desired, do LCASC \ \; B=C B here 
x 


BSRC 
BSRC 


GONC GETDV3 Go always 
JORIS OI IOI IO IO II TI IIIS ESO IIIT ISI ITI ITI TTA 


FOI RII III IIIT III IIIT TOTTI 
xx 


xx Nane: PROCDW - Process device word 

ak 

** Category:  FILUTL 

ak 

** Purpose: 

ka Given a device word in BIW], figure out what it is 
is (ASSIGN WORD, RESERVED WORD, NULL, LOOP, DEVICE ID) 
i 

x*-Entry: 

= B[W} contains the device word 

tok 

ee EXITS 

xe P=O 

nt Carry set 1f sequence number is pernissable after this 
Carry clear if sequence nurber is not permissable 
a 

** Calls: CHKATO, RONTYP, (PRDWsb) 

am 

BSCS) gi osides 

** Exclusive: C{W],P 

** Inclusive: A[A],B{B],C(W],P 

sok 

Xe Stk lvls: 2 (CHKAIO)(RONTYP) 

tok 

** Detail: 

x Try in following order: ASSIGN WORD, RESERVED WORD, 
a NULL, LOOP, (other=DEVICE ID) 

we 

** History: 

at 

** Date Progranner Modification 

MX teeSoewwe: YeGehSesscere wletee delete eos ce owe Bee eel 
A 04/28/83 NZ Changed LOOP and NULL to check 
a all 8 characters 
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866 
867 
868 
869 
870 


871 
872 


873 
874 
875 
876 
877 
878 


879 
880 
881 
882 
883 
884 
885 


886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
90 
1 
92 
%3 
904 
905 
906 
97 
98 
99 
910 
911 
912 
913 
914 


F7215 8&0 
00 

F721B 500 

F721E 8E0O 
00 


F7224 533 
F7227 AF2 
F722A 3764 
55C4 
C4 
F7234 7220 


F7238 3100 
F723C 500 
F723F 37C4 
F4F4 
05 
F7249 7000 
F724D 3100 
F7251 560 
F7254 3100 
F7258 02 


F725R 975 
F725D 20 
F725F De 
F7261 01 
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xk 11/04/82 NZ Added docunentation 
kk 


FOI JOO TTT TTT TT I TTT SII T TIS IM 
JOO JOJO ROTI TUTTO OTT TOTTI TOOT ITT 


=PROCDW GOSUBL =CHKAIO Check if ASSIGNIO 
RTNNC If carry clear, found it 
GOSUBL =RONTYP Check if reserved word 


k 
* Carry indicates whether found or not (If not, ID) 
x 


GONC  PRDU Found...return, set carry 

C=0 W Clear high nibbles of C first 
LCASC \LLUN\ Check 1f device type="NULL" 
GOSUB PRDWsb (Check for natch) 


k 
* If carry clear, this is "NULL" 
k 


LC(2)  =Null This is the "NULL" device? 
RTNNC Tf no carry, NULL 

LCRSC \POOL\ Check if device type=""LOOP" 
GOSUB PRDUsb (Check for natch) 

LC(2) =Loop 

GONC PRDW30 If no carry, this is LOOP 
LC(2) =DevID C[4:2] is zero 


PROW30 = RTNSC 
ke 


xe 


PRDWsb 7BHC OW 
GOYES PRDNs1 
PRDWsi C=0 A 


RIN 
KAIRIE OI IIT TI TT TTT TTDI 


FORO JOO IO TOT TTT TT TE TT TIT 
xk 


xk Narie: PROCLT - Process literal device spec 
xk 


Xx Category:  FILUTL 

kK 

*k Purpose: 

ak Given a pointer to a device spec in nenory, process it 
ae 

xk Entry: 

ak DO @ device spec 


i Carry clear: 

aK P=0 

ae Device type/device id in B[X]/B[W] 

ax IF device type="*", *, or "" THEN C[X]=0 
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915 
916 
917 
918 
919 
920 
921 
922 
$23 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
962 
353 
954 
955 
956 
957 
958 
959 
960 
961 
962 
96 3 
964 
965 
966 
967 
968 
969 


F?263 


F?267 
F726A 
F726C 
F?270 
F?273 
F7275 


F?279 
Frere 
F727F 
F7283 
F 7286 
F 7288 


7232 


4D0 
20 
3100 
962 
60 
6E 31 


14A 
161 
3100 
962 
60 
64 20 


File Execution <840113.1351> Tue Jan 17, 1984 12:06 pn 
Page 18 


ak 
xk 
ak 
xk 
xk 
xk 


ELSEIF address THEN C[X] is address+loop*1024 
ELSEIF LOOP then C[X] is “9F"+loop*4096 

ELSEIF NULL then C[B] is "7F" 

ELSEIF volurne label THEN C[X] 18 "SF"+loop*4096 
ELSEIF device type THEN C[X] 1s "3F"+loop*4096 
ELSEIF device ID THEN C[X] is "1F"+loop*4096 


aK Carry set: 


aK 
Ks 
*x Calls: 
ak 
ae 


ak Uses... 


Error (P, C[O] are error code) 


NXTCHR, BAKCHR, GETDVW, PROCDW, SAVERC, EXPEX+, 
GHEXBT, GADRR+, RESTST, SAVEZC, RESTD1, REST2C 


eeoe 


xk Exclusive: A,B,C, R1,R2, DO, P 


&k  Inclus 
xk 


xx 


kK Stk lvl 
as 


ive: A,B,C,D,RO,R1,R2,R3,R4,00,01,P,STMTD1[3:0],STMTR1, 
FUNCxx, all RAM available to FCNS 


s: 4 (EXPEX+ {saves a level on GOSUB stack first}) 


** History: 


xk 


x Date 


kk 09/28/83 NZ 
ak 04/12/83 NZ 


eK 03 /17/ 


xk 03/01/83 NZ 


kk 02/07/ 


xk 11/04/82 NZ 


ak 
FIO IO 
FOI TOK 


Progranner Modification 
Updated docunentation 
Fixed loop # processing 
83 NZ Changed to use STMNTD1, not STATRO 
Reworked volune label code 
83 NZ Added status save in EXPEX+ call 
Added docunentation 


FOI JIT TIT IO ITT TTI TIT II 
FO IOUIIO IOI IIIT TOTO OO IT OTT II OK 


=PROCLT GOSUB Nxtchr 
* 


* Should have carry ONLY if next token 1s EOL (Error) 
x 
GOC PRLTO5 
P= 0 (This P=0 1s not needed-NXTCHR) 
LC(2) =tCOLON 
*A=C OB Is this a ":"? 
GOYES PROCId Yes...continue 
PRLTOS GOTO PRLTer Error 
* 
k 
x 
* Process literal device spec 
x 
PROC1d A=DATO B Read 1t directly (can be tSENIC) 
PO=D0+ 2 Skip it 
LC(2)) =tLITRe 
*A=C OB Is this a literal? 
GOYES PRLT12 Yes...get device word 
GOTO PRLT5O No...continue checking 
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970 
971 
972 
973 F728C 
974 F729 
975 F7293 
976 F7297 
977 F729R 
978 
379 
980 
981 
982 
983 F7290 
984 
985 
986 
987 F72A1 
988 F72A5 
989 F72A8 
990 F72AC 
991 F?2AF 
992 
993 
994 
995 F72B1 
996 F72B5 
997 F72B9 


998 F72BF 
999 
1000 
1001 
1002 F?2C2 
1003 F?2C4 
1004 F72C7 
1005 F72C9 
1006 F72CC 
1007 F?2CE 
1008 F72D0 
1009 
1010 
1011 F2?2D3 
1012 F?2D5 
1013 
1014 
1015 F?2D7 
1016 F7?2DB 
1017 
1018 
1019 
1020 F72DD 
1021 F?2E0 


1022 F?2E6 


783F 
400 
7E7F 
450 
5E5 


7221 


74F 1 
453 
3100 
966 
82 


7Fi2 
76E1 
8E00 
00 
400 


CD 
4£0 
21 
90D 
70 
20 
5C0 


20 
02 


73F1 
D1 


133 
8E00 
00 
133 
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x 


* Literal device spec 
x 


PRLT12 GOSUB 
RTNC 
GOSUB 
GOC 


GONC 
ke 


re 
x 


* Now save it, get sequence # 
x 


PRLT15 GOSUB 
k 


GETDVU 
PROCDW 


PRLT15 
PRLT9. 


SAVEAC 
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Get device word 

Error 

Process device word 

Sequence nunber IS acceptable 
Go always...NOT acceptable 


Save C[3:0] in STMTD1,B in STNTR1 


* Process literal sequence nunber 
k 


GOSUB 
GOC 
LC(2) 
*RHC 


GOYES 
& 


Nxtchr 
PRLT25 
=tCOLON 
B 
PRLT20 


* Sequence # found 
x 


GOSUB 
GOSUB 


Expex+ 
Restst 


GOSUBL =GHEXBT 


RTNC 
x 


* Now B[A] is 
x 


B=B-1 
GOC 
P= 
BHO 
GOYES 
p= 
GONC 

x 

ke 


PRLteR P= 


RTNSC 
ke 


xe 


PRLT20 GOSUB 
PRLT25 B=0 
k 


* Now B[A] is 
x 
PRLT3O0 ADIEX 


the sequence # 


A 
PRLteR 
1 
p 
PRLteR 
0 
PRLT30 


=eRANGE 


Bakchr 
R 


sequence # 


GOSUBL =RESTD1 


ADIEX 


No next character...exit 


Back up...not a sequence # 


Get the type expression 
Restore status bits 
Get type (sequence) fron RAN 


Error 


If carry, error 
Error (zero) 


Error (too big) 


Go always 


Put sequence # in B[A](=0) 


Restore type/address... 


...to ALA] 
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1023 x 
1024 * Now ALA] is type, B[B] is sequence # 
1025 : 


1026 F72E9 8E0O 
00 


GOSUBL =REST2C Restore acc/dev ID to C{W] 


1027 F72EF AFD BCEX UW Seq # to C[A], acc/dev ID to B[W] 
1028 

1023 * Now ALA) is type; B[W] is acc/dev ID; C[A] 1s seq # 

1030 x 

1031 F?2F2 Fe CSL A 

1032 F72F4 F2 CSL A Sequence # in C{XS] now 

1033 F72F6 AEG C=A B Restore type 


1034 F?2F9 6C50 PRLS. GOTO PRLT9O Check for loop spec non 
1035 * 
1036 ae 
1037 F?2FD PRLTSO 
1038 x 
1039 * Not a literal...check for volune label 
1040 x 
1041 F72FD 3100 LC(2) =tSENIC 
1042 F7301 966 RHC OB 
1043 F7304 21 GOYES PRLT60 
1044 x 
1045 * This is a volune label 
1046 x 
1047 F7306 7EBE GOSUB GETOVH Get volune label (Get device word) 
1048 F730AR 400 RTNC If carry, error 
1043 F730D D2 C=0 A 
1050 F730F 3100 LC(2) =VolLbl Indicate volune label 
1051 F 7313 524 GONC PRLT® Go always...check for loop spec 
1052 x~ 
1053 ke 
1054 F7316 3100 PRLT60 LE(2) =tz Check if device type 
1055 F731R 966 PAHC OB 
1056 F731D 71 GOYES PRLT70 Not device type...check "*" 
1057 * 
1058 * Type...get it 
1059 ‘ 
1060 F731F 71B4 GOSUB Expex+ Get the type expression fror RAN 
1061 F7323 7871 GOSUB Restst Restore status bits 
1062 F732? 8E00 GOSUBL =GHEXBT Get HEX byte fron RAN 
00 
1063 F732D 400 RTNC Error 
1064 F7330 6C6F GOTO PRLT15 Finish it up 
1065 a= 
1066 ~ 
1067 F7334 3100 PRLT70 LC(2) =t* 
1068 F7338 966 7AHC OB 
1069 F733B 60 GOYES PRLT?5 
1070 F733D D2 (=0 A This is "*" 
1071 F?33F 03 RTNCC 
1072 Re 
1073 Re 
1074 F7341 7981 PRLT75 GOSUB Bakchr Back up to start of expression 
x 


1075 
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1076 
1077 
1078 
1079 
1080 


1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
10% 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 


1106 
1107 
1108 
1109 
1110 
1111 
1142 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 


1123 
1124 
1125 


1126 


F7345 7881 
F7349 7251 
F734D 8E00 
00 
F7353 400 


F7356 14A 


F7353 06 
F735B 3100 
F735F 966 
F7362 20 
F7364 07 
F7366 415 
F7369 161 


F?36C 738 


F7370 7061 
F7374 7721 
F7378 8&00 
00 
F737E 400 


F7381 31H 
F7385 9E1 
F7388 90 
F738A D9 
F738C CE 
F738E 560 
F7391 20 
F7393 02 


F7395 10A 
F7398 137 
F739B 8E00 
00 
F73A1 137 
F73A4 109 
F73A? 8E00 
00 
F73AD 12h 
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% Address 
t 


ba 


GOSUB Expex+ 
GOSUB Restst 
GOSUBL =GADRR+ 


RTNC 
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Get address expression fron RAN 
Restore status bits 
Get address fron RAN 


Carry indicates error state 


* Entry point to check for literal loop spec 
x 


PRLT9O 
it 


A=DATO B 


Read next character directly 


* Before LC, save C[A] on RSTK (C[A] is device spec info) 
‘ 


PRLT95 


x 


RSTK=C 

LC(2) =tSEMIC 
PARC OB 

GOYES PRLT95 
C=RSTK 

GOC PRLTex 
DO=D0+ 2 


Save C[A} on RSTK 
Is it a tSEMIC (loop number)? 


Exit after restoring C 
Restore C (if carry, done!) 
Exit (Done) 

Skip the tSENIC 


* Need to save B and C fron EXPEX+ 
t 


* Process literal loop spec 
i 


+ 


PRLLer 


ke 
ke 


PRLTxx 


GOSUB SAVEAC 


GOSUB Expext+ 
GOSUB Restst 
GOSUBL =GHEXBT 


RTNC 


Now B[A] is the loop # + 1 


LC(2) 3 

*BoC OB 

GOYES PRLLer 
C=B A 

C=C-1 A 

GONC = PRLT xx 
P= =eRANGE 
RINSC 


R2=C 
CDIEX 
GOSUBL =RESTD1 


CD1EX 
R1=C 
GOSUBL =REST2C 


CR2EX 


Save C[3:0] in STMTD1,B in STNTR1 


Get loop # expression fron RAN 
Restore status bits 
Get HEX byte fron RAM 


Error 


Error...too big 

Return loop # in C[0] 

Offset for 2ero-based count 

If carry, zero (error-too snall) 


Save loop # in R2 


Restore type/address 


Type in Ri 


Device ID in R2, loop # in C[0} 
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112? 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
113? 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
114? 


1148 
1149 
1150 
1151 
1152 


1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
116? 
1168 
1169 
1120 
1171 
1172 
1173 
1174 
1175 
1176 
17? 
1178 
1179 


F73B0 669C 


F73B4 20 
F73B6 02 


F73B8 10R 
F73BB AF9 
F73BE 12A 
F73C1 03 


F73C3 


E7303. 137 
F73C6 06 
F73C8 137 
F73CB 1F0O 
000 
F73D2 1503 
F73D6 07 
F73D8 136 
F?73DB AF9 
F73DE 800 
00 
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k 
PRLTer 


ke 
ae 


PRLTex 


rk. 
ke 


SAVEAC 
t 


GOTO PRSTEX 


P= =eDSPEC 


R2=C 


CR2EX 
RTNCC 


* Preserve STMTDI[4] 
t 


CDIEX 
RSTK=C 
CDIEX 
D1=(S) =STNTD1 


DAT1=C 4 
C=RSTK 

D1=C 

C=B W 
GOLONG =SAVE2C 
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Finish 1t up 


Device spec error 


Save C[W] in R2... 
Put B[W] into R2{W] also 
...restore C(W], set R2=B[W] 


Save C[A] in D1 
Save D1 on RSTK 
Restore C[A] 


Write out the low 4 nibs ONLY 
Restore 01 fromm RSTK... 
...done 


Save B[W]}] in STNTR1 


JOJO IOI III OI TTT OR TIO IO II 
JO IOI IOI TOIT IT TOT TOT TIO IIIT ITN 


ae 


ak Nane: 


ae 


*k Category: 


a 


FXQPIL - Get a file nane fron menory (file spec) 


FILUTL 


** Purpose: 
Fetch a filenane fron progran nenory 


aK 
aK 


k® Entry: 
Exit conditions fron GETSTR 
(ST{SSTK]=0: literal in nenory, =1:string on stack) 


kk 
ak 
ak 
ae 


Re Exit: 


ae 
KA 
xe 
ks 
ar 
xs 
aX 


kk Calls: 


ah 


* Uses 


(P=0) 


t/D1 set to first non-character iter 

Carry clear (filenarie found): 
RO[W] 1s the first & chars, A[3:0] the last 2 
(Both are blank-filled) 

Carry set (no filenane found): 


A,RO are zeroed 


** Exclusive: A[W], 


FXOPan, FXOPn+ 


C({W]. RO, P 
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1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
4193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
12% 
1231 
1232 
1233 
1234 


F73E4 
F73E7 
F73ER 
F73ED 


F73EF 
F73F2 


F?3F4 
F73F6 
F?73F9 


F?3FD 
F 7400 
F?403 


F 7406 
F 7408 
F740B 
F740F 


F 7411 


F7413 


AF 2 
108 
860 
70 


8R8 
33 


2F 
H8 
7£20 


AF4 
100 
4F0 


2F 
H2 
7F10 


03 
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kk Inclusive: A[H],B[W],C[W],RO,D0,D1,P 
re 
AX Stk lvls: 3 (FXQPnr) 
ka 
** Algorithn: 
wk Check if literal and no file nane; if so, return zero 
xk Get the first 8 chars; put in RO; if reached end, set 
xk A[3:0J=\ \, return 
a Get last 2 chars; put in A[3:0]; return 
ke 
** History: 
kk 
a Date Progranner Modification 
OH PODS, eee Reet lea ees, oles oes otek) ad 
Kk 11/04/82 NZ Added docunentation 
wk 


FORO OT OTK 
FORO TORR ORT TO TOT TOK 


=FXQPIL C=0 W 
RO=C Preclear file nane (for null str) 
7$T=0 =sSTK String expression? 

A GOYES FXQP30 No...literal 


* Check if this is a null string...if so, return 
* 


7A=0 =A 
GOYES FXQP50 Null string 
k 
* Now get the characters of the nane until not in [A-Z] 
* or string length exhausted (Build the string in B[W]) 
x 
* This is also the entry point for reading fron progran nenory 
x 
FXQP30 «P= 15 
LC(1) 8 C[S] is character counter 
GOSUB FXQPnn Get the name until B is full 
x or END is reached or bad char 
A=B W 
RO=A 
COC FKQP40 Carry if END or bad char 
k 


* A[B),B[W) contain first 8 chars...copy to RO 
x 


P= 15 

wC(1) 2 Two Hore characters MAX 
GOSUB FKQPn+ Get the last 2 chars of nane 
A=-B OA Copy characters to A[3:0] 


Have a FULL filenare now! (Next char better be ":") 
(01 1s at next character) 


* ee Mw 


RTNCC Return with it all set up 


x 
F XQP40 
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1235 
1236 
1237 
1238 


1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
128? 
1288 


F7413 32 
02 
F7419 DA 
F?41B 118 
F?41E 8AA 
F7421 40 
F7423 03 


F?425 


F7425 DO 
F742? 20 
F7429 O2 
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x 
* Filenane with less than 8 chars in A[W], B[W] 
k 
ucAsSC \ \ 
A=C A Set last 2 characters to blanks 
C=RO Get back first 8 chars to test 
7C=0 =A 
GOYES FXQP5O Yes...zero it all 
RTNCC Next character @ D1 
x 
x. 
F XQP50 
x 
* Wo chars in nane...set full name equal to zero 
x 
A=0 A Clear the last 2 chars 
P= =eDSPEC Bad device spec 
RTNSC 


FOI IO TIO IOI ITO 
FOI III IOI OOO TO OTTO 
KK 


** Nane: FXQPnn - Read chars fron nenory/stack (count) 
re 

** Category:  FILUTL 

ke 

** Purpose: 

aX Read characters fron either the stack or progran 

Km neriory until either a count 1s exceeded or an end is 
a reached 

aK 

xk Entry: 

aK C[S] is byte count 

KK sSTK is set for STACK, clear for literal 

a If ST{=sSTK]=1, D1 points to string, D[A] 1s end 

a If ST[=sSTKJ]=0, DO points to the literal 

ax 

xx Exit: 

ex B[W] contains the filename (IF sFirst=1 AND bad char, B=0) 
am Carry set if reached END or bad char, clear if count 
a DO/D1 set to first character not used 

x A[S] 1s the original byte count 

ae P=0 

a 

** Calls: NXTCHR, BAKCHR, UCRANG, RANGEN, BLANKC 

ak 

MR US0S v5 455% 

** Exclusive: A[X],B{W],C{W]} P,ST[sFirst] 

** Inclusive: A[W],B(W],C{W),00,01,P,ST[sFirst] 

kA 

** Stk Ivls: 2 (UCRANG) 

xk 

** Detail: 

aM Reads characters until either: 

cs 1} Count is reached 
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1289 aR 2) A character NOT in [A-Z] is found 
1290 ak 
1291 ** History: 
1292 aR 
1293 aK Date Progranner Modification 
1294 PE eee. “phere. 1a ee esate eee ee 
1295 ak 04/29/83 NZ Changed GOC after NXTCHR @ FXQPn1 
1296 aK to skip the BAKCHR @ FXQPn3 
1297 KK 03/19/83 NZ Changed FXQPnn and FXQPn+ so that 
1298 ak FXQPnri sets =sFirst, FXQPn+ does 
1299 at not change =sFirst 
130 ae 11/04/82 NZ Added docunentation 
11 01/20/83 NZ Added check for sFirst AND bad ch 
te JU UOC IOI ISOC OCI TTT TR 
104 JOIST IO IOC OO TIT TIO DITA 
135 F742B 850 =FXQPnn ST=1 =sFirst Entry for first char 
1306 F742E ACA =FXQPn+ A=C $ Save count in A[S] 
1307 F7431 8E00 GOSUBL =BLANKC Initially blanks 
00 
138 F7437 AFS B=C W 
139 F743A ACE C=A S Use count in C{S], Save in A[S] 
1310 F743D 7850 FXQPni GOSUB Nxtchr Get next character in A[B] 
1311 F7441 433 GOC FXQPn- END 
1312 F7444 7FRO GOSUB Ucrang Convert to upper case 
1313 F7448 5E0 . GONC FXQPn2 If carry clear, IS in [A-Z] 
1314 
1315 : Character not in [A-Z]...if this is First, Error 
1316 
1317 F744B 870 ?ST=1 =sFirst 
1318 F744E 32 GOYES FXQPn3 Error! (Bad first character) 
1319 F7450 7470 GOSUB Rangen Check if this is a digit 
1320 F744 4C1 GOC FXOQPn3 Not a digit...error 
1321 x 
1322 * Have a valid character here 
1323 x 
1324 F745? 840 FXQPn2 ST=0 =sFirst Clear for later chars 
1325 F745A AES B=A B Save in B[B]... 
1326 F745D 815 BSRC 
1327 F7460 815 BSRC Rotate the character to B[15:14] 
1328 F7463 ASE C=C-1 § Do nore? 
1329 F7466 94E 7C#0)— oS 
1330 F7469 4D . GOYES FXQPn1 Yes... loop back 
1331 
1332 * Count reached 
1333 x 
1334 ; Use A[XS] to indicate carry/no carry on exit 
1335 
1336 F746B ARO A=0 XS 
1337 F746E 541 GONC FXQPn4 Go always 
1338 xe 
1339 x. 
1340 F7471 FXQPn3 
1341 x 


1342 * Reached END/bad char 
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1343 
1344 
1345 
1346 
134? 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1366 
1357 
1358 
1369 
1360 
1361 
1362 


1363 
1364 
1365 


1366 


1367 
1368 
1369 
1370 
1371 
1372 


1373 
1374 


1375 
1376 
137? 


1378 
1379 
1380 


1381 
1382 
1383 
1384 
1385 
1386 
138? 
1388 


F7471 
F?475 
F7478 
F747B 
F?47E 
F7480 
F7483 
F7486 
F7488 
F748B 
F748E 
F7491 


F7494 
F749? 


F7499 


F749F 
F74A5 


F74AC 
F74RE 
F 7480 
F74B2 
F74B4 
F74B6 


F748C 
F?4C2 


F74C8 


F74CE 


F74D4 
F74D6 
F7408 
F74DA 
F 7400 
F74DE 


7950 
RAO 
A2C 
860 
50 
AF 1 
942 
£0 
811 
811 
B46 
51F 


B24 
01 


8000 
00 


8£00 


8FOO 
000 
07 
OF 
06 
DB 
06 
8E00 


8E00 


8000 
00 


8CO0 
00 


8000 
00 


0? 
DA 
0? 
DE 
06 
8E0O 
00 
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x 


FXQPn- 


FXQPn4 


x 
xe 


FKQPn5 


Xs 
x. 


Nxtchr 


xe 
ke 


Restst 


x 
ke 


Rangen 
ke 


ae 
Bakchr 


os 
ae 


Expex+ 


GOSUB 
fA=0 
A=A-1 
?ST=0 
GOYES 
B=0 
7A=C 
GOYES 
BSLC 
BSLC 
C=C+1 
GONC 


A=At+1 
RTN 


GOLONG 


GOSUBL 
GOSBVL 


C=RSTK 
CDEX 
RSTK=C 
C=D 
RSTK=C 
COSUBL 


GOSUBL 
COLONG 


GOLONG 


GOLONG 


C=RSTK 
A=C 
C=RSTK 
ACEX 
RSTK=C 
GOSUBL 


Bakchr 
XS 

XS 
=sFirst 
FXOPn4 
W 

S 
FXQPn5 


FXOQPn4 


XS 


=NXTCHR 


=TSAVDO 
=POPUPD 


A 
A 
=D1G@AVE 
=TRESDO 
=RESTST 


=RANGEN 


=BAKCHR 


=TSAVDO 
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Back up to last character 

Set A[XS]="F" 

Is this the first char? 

No...continue 

Yes...set B[W]=0 


Done 


Go always 


Set carry with A[XS] 


Save DO in function scratch 


Pop GOSUB stack into D{A] 


Restore second level 


Restore calling level 
Set D1 at AVNENE 


Restore DO fron function scratch 


Save calling level in A[A] 


Pap second level to C[A] 

Second level to A[A], call to C[A] 
Push calling level back on stack 
Save BO first 
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1389 F74E4 8FO0 
000 

1390 F74EB 8£00 
0 

1391 F74F1 8C00 
00 

1392 

1393 

1394 F74F7 8C00 


1395 F74FD 


x 
x 
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GOSBYL 
GOSUBL 
GOLONG 
Ucrang GOLONG 
END 


=PSHMCR 
=TRESDO 
=EXPEK+ 


=UCRANG 


Page 27 
Push microcede return on GOSUB 


Restore DO 
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ASLC12 
ASRC4 

BAKCHR 
BLANKC 
Bakchr 


CHKAIO 
CSRC12 
CSRC2 
D1=AVS 
DI@AVE 
DTOH 
DevID 
Devlyp 
EXPEX+ 
Expex+ 
F XQP30 
FXQP49 
FXQPSO 
=FXQPIL 
=FXQPn+ 
FXQPn- 
FXQPni 
FROQPn2 
FKQPn3 
FRQPn4 
FROQPnS 
=F ROQPnn 
GADRR+ 
GADRS. 
GADRS1 
GADRS2 
GADRS3 
GADRS4 
GADRSS 
GRDRS6 
=GAORST 
GADRSb 
GADRSo 
GADRSs 
GETOCK 
GETOI+ 
GETDIO 
GETDT1 
GETDI2 
GETDI3 
GETDI4 
GETDI5 
=GETDID 
=GETDIX 
GETDV- 
GETDYO 
GETDV1 
GETOV2 
GETOV3 


Ext 
Ext 
Ext 
Ext 
Abs 


Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Ros 
Abs 
Abs 


1012942 #F74CE 


1012948 #F74D4 
1012724 #F73F4 
1012755 #F7413 
1012773 #F7425 
1012708 #F73E4 
1012782 #F742E 
1012853 #F7475 
1012797 #F743D 
1012823 #F7457 
1012849 HF7471 
1012867 #F7483 
1012884 #F7494 
1012779 #F742B 


1012005 #F7125 
1011964 #F70FC 
1011992 #F7118 
1012027 #F713B 
1012099 #F7183 
1012109 #F718D 
1012113 #F7191 
1011961 HF70F3 
1012095 #F717F 
1011988 #F7114 
1012076 #F716C 
1011304 HF6E68 
1011258 #F6E3A 
1011292 HF6ESC 
1011250 #F6E 32 
1011300 #F6E64 
1011325 FOE 7D 
1011329 #F6E81 
1011331 #F6E33 
1011225 #F6E19 
1011255 #F6E3? 
1012218 #F71FA 
1012178 #F71D2 
1012185 #F71D9 
1012222 HF7IFE 
1012231 #F7207 


Table 


241 
187 
1380 
1307 
1380 
703 
870 
222 
670 
206 
211 
572 
889 
583 
1391 
1383 
1213 
1234 
1246 
1198 
1306 
1345 
1310 
1324 
1340 
1350 
1358 
1305 
1080 
665 
641 
653 
677 
704 
71? 
718 
640 
703 
643 
696 
107 
85 
20 
77 
103 
414 
118 


98 
717 


236 
666 


395 
1201 
1219 
1206 

176 
1225 
1311 
1330 
1313 
1318 
1337 
1351 
1215 


642 
648 
644 
684 
678 
691 
683 
403 
680 
697 
694 
100 
200 
92 
6? 
95 
86 
83 
73 


738 
808 
80? 
793 
816 


File Execution <840113.1351> 


315 
814 


1372 
724 


1060 


1242 


1320 
1348 


659 


714 
699 


701 


97 


110 


805 
828 


367 
1015 


1078 


1355 


712 


731 


Tue Jan 17, 1984 


408 
1074 


1103 


735 


230 


483 
1344 


737 


570 
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SGETDVW Abs 1012168 #F71(8 - 791 316 416 973 1047 
GETDVr Abs 1012216 #F71F8 - 811 803 822 

sGETPI+ Abs 1011369 #FGER9 - 176 
GETPI1 Abs 1011407 #FGECF - 206 198 


=GETPIL Abs 1011360 #FEERO - 174 

GETPIn Abs 1011528 #FEF4&8 - 253 215 
GETSTR Ext : 64 174 
GHEXBT Ext - 997 1062 1105 
GTYPS. Abs 1011913 8F70C9 - 560 558 
GTYPS1 Abs 1011851 #F708B - 528 538 
GTYPS2 Abs 1011875 #F70A3 - 542 561 579 


GTYPS3 Abs 1011879 #F70R7 - 546 531 

GTYPS4 Abs 1011932 #F700C - 570 548 555 
GTYPSS Abs 1011936 #F70EO - 571 529 553 566 
sGTYPST Abs 1011848 #F7088 - 527 31 399 437 
GTYPSd Abs 1011918 #F70CE - 565 568 


Loop Ext - 887 
NXTCHR Ext - 1362 
Null Ext - 883 


Nxtchr Abs 1012889 #F7499 - 1362 85 108 W6 332 33 427 528 
552 565 4641 677 688 698 792 804 
947-987 1310 


POPUPD Ext - 1366 
PRDW30 Abs 1012312 HF7258 - 890 876 888 
PRDWs1 Abs 1012319 #F725F - 895 894 

‘ PRDWsb Abs 1012314 #F725A - 893 879 886 
PRiLer Abs 1012625 #F7391 - 1116 1112 
PRLTOS Abs 1012341 HF7275 - 956 951 
PRLT12 Abs 1012364 #F728C - 973 966 
PRLT15 Abs 1012381 #F729D - 983 976 1064 
PRLT20 Abs 1012439 #F72D7 - 1015 991 
PRLT25 Abs 1012443 HF72DB - 1016 988 
PRLT3O Abs 1012445 #F72DD - 1020 1008 
PRLT50 Abs 1012477 HF72FD - 1037 967 


PRLT60 Abs 1012502 #F7316 - 1054 1043 
PRLT20 Abs 1012532 #F7334 - 1067 1056 
PRLT75 Abs 1012545 #F7341 - 1074 1069 
PRLT9. Abs 1012473 HF72F9 - 1034 977 
PRLT9) «Abs 1012566 #F7356 - 1085 1034 1051 
PRLT95 Abs 1012580 #F7364 - 1093 1092 
PRLTer Abs 1012660 #F73B4 - 1130 956 
PRLTex Abs 1012664 #F73B8 - 1134 1094 
PRLTxx Abs 1012629 #F7395 - 1120 1115 
PRLteR Abs 1012435 #F72D3 - 1011 1003 1006 
=PROCDN Abs 1012245 #F7215 - 870 318 975 
=PROCLT Abs 1012323 #F7263 - 947 71 22? 
=PROCST Abs 1011536 #F6F50 - 305 99 
PROCeX Abs 1011833 #F7079 - 483 431 
PROCex Abs 1011837 #F707D - 484 428 
PROCId Abs 1012345 #F7279 - 962 955 
PROCna Abs 1011826 HF7072 - 478 468 
PRST10 Abs 1011572 HFOF74 - 326 319 401 
PRST20 Abs 1011640 #FGFB8 - 367 337 
PRST25 Abs 1011644 #FOFBC - 368 333 
PRST27 Abs 1011646 HFGFBE - 372 361 
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PRST30 
PRST40 
PRST50 
PRST® 
PRSTEX 
PRSTeR 
PRSTed 
PRSTer 
PRSTv1 
PSHMCR 
RANGEN 
REST2C 
RESTD1 
RESTST 
RONT YP 
Rangen 


Restst 
SAVE 2C 
SAVEAC 
SETUP 

START 

STNTD1 
TRESDO 
TSAY DO 
TernRg 
UCRANG 
=Ucrang 
VolLb] 
eDSPEC 
eNORAN 
eRANGE 
sDevOK 
sFirst 


tSENIC 


Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 


Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 
Ext 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


1011669 #F6FD5S 
1011683 #F6FE3 
1011703 #F6FF? 
1011728 #F7010 
1011783 #F 7047 
1011636 #F6FB4 
1011532 #F6F4C 
1011779 #F7043 
1011715 #F 7003 


1012936 #F74C8 
1012895 #F749F 
1012675 #F73C3 


0 #00000 
1012983 HF74F7 


383 
393 
404 
423 
458 
363 
301 
451 
416 
1389 
1377 
1026 
10214 
1374 
872 
13?7 
806 
1365 
1152 
1140 
125 
123 
114? 
1373 
119 
62 
1394 
1394 
419 
114 
253 
363 
120 
1305 
66 
1054 
106? 
353 
364 
1041 


309 
385 
395 
320 
447 
358 
307 
444 
103 


1125 
1122 


530 
1319 
996 


983 


1390 
1365 
84 


308 
1050 
301 


451 
196 
131? 
197 
989 


1090 
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380 
1127 


317 


554 
1061 
1099 


390 


344 


567 
1079 


199 
1312 
1130 

649 
134? 


400 


350 


643 
1104 


1251 
1011 


410 


679 


1116 
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690 


12:06 
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700 


pn 
30 
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Input Paraneters 
Source file narie 1s NZ8FXQ: NS 
Listing file name 1s NZ/FXQ:TI:ML::-1 
Object file name is NZZFXOQ: TI: MS: :-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Satum Assembler News 
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1 k 
2 k N N 2227272 & PPPP A —-RRRR 
3 R nN ON z 8&8 P P AAR RK R 
4 x NN ON z 8&8 P PAR AR R 
5 & NNN 2 & PPPP A A RRRR 
6 x N NN 2 &&8& P ARAAR RR 
7 x N N 2 & & P A AR R 
8 x N N 22222 8&& P A AR R 
g x 
10 TITLE NZ’S PARSE ROUTINES <831128.2333> 
11 F74FD ABS #F74FD TIZHP6 address (fixed) 
12 % 
13 * Status bits for Parse routines 
14 x 
15 * Global (BASIC Systen) 
16 x 
17 =InvalE EQU 0 Invalid expression if set 
18 =Digit EQU 1 Digit found (CATCHR) 
19 =SpChar EQU 2 Special char found (CATCHR) 
20 =NunExp EQU 3 Nurieric expression if set 
21 x 
22 * LOCAL (Used only in HPIL) 
23 & 
24 * $1(10) MUST be clear for any error exits! (Implied LET error) 
25 x 
26 =Star0kK EQU 10 "k" OK (in device parse) 
27 =Str0K EQU StarOK String OK (FRAne SPec parse) 
28 =ExprOk EQU 8 Expression OK (SEND parse) 
29 =EolOK EQU 93 EOL OK (in SEND parse) 
30 =OptDev EQU 8 Device Spec is optional (Dev parse) 
31 $01 OI IOC IIT TOTS SIS IIT III IS IOS TIS I ISI AK 
32 FOR JOJO IJ RII ROTI TTT TOK 
33 kk 
34 xk Nane: PRNTSp - Parse the PRINTER IS staterent 
35 kk 
36 *k Category: STPARS 
37 ak 
38 ** Purpose: 
39 a Parse the PRINTER IS (and DISPLAY IS) statenent 
40 ak 
41 xk Entry: 
42 at D1 points to the ASCII character string 
43 xe DO points to the location where the tokens go 
44 kk D[A] is the end of available nenory 
45 x P=0 
4G ih 
47 ek Exit: 
48 ae DO positioned past the last token output by this routine 
49 RE D1 positioned past the last character accepted 
50 RK P=0 
51 RA Exits through ERRORP if error 
52 ak 
53 ** Calls: NTOKEN, <OVCPy*> 
54 xx 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 F74FD 7F 36 
70 F7501 3100 
71 F7505 966 
72 F7508 36 
73 F?50R 6CAA 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
31 
92 
93 
94 
95 
96 
a7 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
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** Inclusive: A,B,C,D[15:5],RO,R1,R2,00,D1,P,ST[11,10,8, 7,3:0], 
ak FUNCDO, PRNCNT[O] 
dk 


we Stk lvls: 5 (D¥CPy*) 
i 

** History: 

kh 


ia Date Progranner Modification 
$Ro ce oe ee Bae ie Sa ete eon Sea 


RK 41/23/83 NZ Added docurientation 

kk 

JO IOI I IOI III TI I TTI III ITI TIS III IIIT I ISI IS 
$I III DI II III TTI TIT ITT IIIT IIT I ITI III ATID ITS TIT IITA IDI ID 


=PRNTSp GOSUB Ntoken Get next token 
LC(2) =tIS "IS" token 
7RHC OB Was the next token "IS"? 
GOYES PRNTPE No..."IS" missing...error 
GOTO  DVCPy* Yes...device spec, "*' permitted 


FORO ORI TOT TTT TK 
FOI III III ITT TTT TTT TTT TT IOK 
xk 


** Nane: OUTPp - Parse the OUTPUT statenent 

&X Nane: ENTERp - Parse the ENTER statenent 

ah 

** Category:  STPARS 

aX 

** Purpose: 

ke 

ak 

AS Entry: 

ae D1 points to the ASCII character string 

=x DO points to the location where the tokens go 

ak D[A] is the end of available nenory 

aR P=0 

aK 

wR Exit: 

xe D1 positioned past last token output by this routine 
_ D1 positioned past last character accepted 

a P=0 

a Exits through ERRORP if error 

ae 

+* Calls: DVCPn*, OUTpCK, OUTBYT , USINGp, <DISPP>, <READPS> 
ak 

BE USES cetic 2% 

** Inclusive: A,B,C,D[15:5],RO-R2,00,D1,P,ST[11,10,8, 7, 3:0], 
as FUNCDO, PRICNT [0] 

a 

* Stk lvls: 6 (DVCPn*) 

ke 

** History: 

ak 

- Date Progranner Modification 

PR Seckeen Role ede eee Mena 
RE 41:/23/83 NZ Added docunentation 

ak 
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111 
112 
113 
114 
115 
116 F750E 
117 F?512 
118 F 7516 


7£94 
7130 
8D00 
000 

119 
120 
121 
122 
123 
124 
125 
126 


7F 84 
7220 
8FOO 
000 
F752C 450 
F7?S2F 171 
F7532 3100 
130 F7536 7185 
131 F?53A 858 
132 F753D 849 
133 F7540 8DOO0 
000 


F751D 
F7521 
F 7525 


127 
128 
129 


134 

135 

136 

137 

138 

139 

140 

144 

142 

143 F754? 
144 F754B 
145 F?S4F 
146 F 7552 
14? F7554 3100 
148 F7558 962 
149 F755B 40 
150 

151 

152 

153 F755D 07 
154 

155 F7SSF 3100 
156 F7563 7455 
157 F7567 63B5 
158 

159 

160 F756B 20 
161 F7S6D 6051 
162 


75F5 
3100 
962 
DO 
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KK RKAKIKKK KKK IAI REE KIA EIKO IRIE TTTIK 
KEK ARK KIKI IIR RIT ITO OTTO IIR II TT TTDI 


* 
* OUTPUT parse 
& 


=QUTPp GOSUB DVCPn* Parse device, "*" not permitted 
GOSUB OUTpCK See what is following... 
GOVLNG =DISPP Continue with DISPLAY parse 
x. 
ke 
x 
: ENTER parse 
=ENTERp GOSUB DVCPn* Parse device, "*" not pernitted 
GOSUB OUTpCK See what is following... 
GOSBVL =USINGp Try to parse USING 
GOC ENTRIO Parsed USING...don’t change 01 
Di=Di+ 2 No USING...skip senicolon 
ENTRIO LC(2) =tSEMIC Output tSENIC 
GOSUB OUTBYT 
ST=1 8 
ST=0 9 
GOVLNG =READPS 
ke 
ke 
& 
* QUTPUT and ENTER share a connon syntax for device spec; both 
* nust be followed by one of the following: 
* 1. USING 
* 2. Senicolon 
: 3. End of line 
OUTpCK GOSUB Ntoken Get next token 
LC(2) =tUSING 
*A=C OB Is it tUSING? 
GOYES chkOK Yes...accept it 
LC(2) =tSEMIC 
*A=C OB Is it tSEMIC? 
GOYES chkOK Yes...accept it 


k 
* Not USING or 
x 


C=RSTK 
& 


chkOK = LC (2) 
GOSUB 


GOTO 
ke 


x. 


PRNTPE P= 
GOTO 


Senicolon; if not EOL, then excess chars 


Return to nain parse driver 
=té@ Output a t@ to terninate the 
OUTBYT device specifier 
RESPIR Restore the pointer (NTOKEN) 
=eSYNTx "IS" token tissing 
Error Syntax error (restore pointer) 


FOI JIT IO IO JOOS T ISK 
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163 

164 

166 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

17? 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 F7571 7756 

202 F7575 AFG 

203 F 7578 3594 
R554 

204 F 7580 976 

205 F7583 44 

206 F7585 175 

207 

208 

209 

210 F7588 7BC2 

211 F758C 580 

212 F758F 8000 
00 

213 

214 

215 F 7595 831 
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JS III IIS ISIS IIIT III IIIT III IIIS ID IGIISSI III III II SIS IIIS III IA 
ah 
xk Narie: INITp - Parse the INITIALIZE statenent 
ah 
*k Category: STPARS 
ah 
** Purpose: 
AE Parse the INITIALIZE statenent 
eh 
** Entry: 
&x Di points to the ASCII character string 
a DO points to the location where the tokens go 
me D[A] is the end of available nenory 
* P=0 
hk 
RAE Mt: 
ax DO positioned past last token output by this routine 
- Di positioned past last character accepted 
ay P=0 
* Exits through ERRORP if error 
ak 
** Calls: CONWUC, FILSp, NTOKEN, 7A=CM+, CKNUM, <RESPTR>, 
ee <ERROR! >, <ERRORP> 
tok 
BR USES is eines 
x* Inclusive: A,B,C,D[15:5],RO-R4,00,D1,P,ST[11,7,3:0], FUNCDO, 
ag PRACNT [0] 
ak 
*K Stk lvls: 6 (FILSp) 
tok 
** History: 
ak 
xx Date Progranner Modification 
Bee let” See ae SB lean oo eet teen 
ax 11/28/83 NZ Added docunentation 
a 
SII II TI TIT I III II OSI IIIA IIT II IIIT IIIT II IIIS IIIS III ISII II IIA 
FOI III OT OOO III OTITIS TTT TI IIT IIH 
=INITp GOSUB CONWUC Convert word to upper case 
C=A W 
LCASC = \EZI\ End of INITIAL(IZE) keyword 
eAHC OW 
GOYES INITp1 "IZE" missing - ERROR... 
D1=D1+ 6 Skip 1ZE 
x 
* Now have "INITIALIZE" 
x 
GOSUB FILSp Parse filespec (with string?) 
GONC INITP. No error...continue 
Error! GOLONG =ERROR! Error with FILSp 
ke 
x 
INITP. ?XM=0 
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216 F7598 80 GOYES INITPO OK 
217 F759A 20 ASGPAR P= =eMSPAr Missing paraneter 
218 F759C 6121 GOTG = Errorp Error 
219 a 
220 | 
221 F75R0 7(95 INITPO GOSUB Ntoken Next TOKEN 
222 F75AR4 INITP2 
223 F75A4 8E0O GOSUBL =?A=CN+ 
00 
224 F75AR 500 GONC INITPR No conna token...rtn, carry clear 
225 F75ARD 7005 . GOSUB oUT1TK Conna token...output it 
226 
227 * Entry for <KWORD> <nuneric expression> 
228 x 
229 F75B1 =XWRD1p 
2% F75B1 7284 GOSUB CKNUN Check numeric expression 
231 F75B5 400 GOC INITPE Error junp 
232 F75B8 6265 =INITPR GOTO RESPIR Restore parse pointer 
233 ae 
2x4 x 
235 x 
236 : Entry for <XWORD> <Expr> [, <Expr>] 
237 
238 F758C =STANp+ 
239 F7SBC 77A4 GOSUB CKNUM Check nuneric expression 
240 F75CO 53E GONC INITP2 Valid nuneric...continue 
241 F75C3 6AFO INTIPE GOTO = =Errorp Parse error 
242 - 
243 x. 
244 F75C7 20 ~=INITp1 P= =eSYNTx Syntax error (No IZE) 
245 F75C9 64FO GOTO = =Errorp Parse error 
246 SICK I IIT ITI III III ISI II ISI SSSI SIS SI SISOS SIS III ISIS IOS SIS ISIN. 
247 JI III IOS IIIT IIIS III IS TOT IIIS I SII OTS SOS ISI SII III IIS IIS SIS 
248 gies 
249 *k Ware: STANDp - Parse the STANDBY statenent 
250 aX 
251 ** Category:  STPARS 
252 a 
253 ** Purpose: 
254 ak Parse the STANDBY statenent 
255 a 
256 ** Entry: 
257 a D1 points to the ASCII character string 
258 os DO points to the location where the tokens go 
259 ak D[A] is the end of available nenory 
260 +* P=0 
261 a 
262 sk Exit: 
263 a DO positioned past last token output by this routine 
264 ak D1 positioned past last character accepted 
265 ee P=0 
266 ax Exits through ERRORP if error 
267 
268 *k Calls: LOOPH#p , WROSCN, CKNUN, <RESPTR> 


269 xn 
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270 
274 
272 
273 
274 
275 
276 
277 
278 
279 
230 
281 
282 
283 
284 
285 
286 
287 
288 
289 
2% 
291 
292 
233 
294 
295 
236 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
30? 
308 
309 
310 
311 
312 
313 
314 
315 
316 
S17 
318 
319 
320 
321 
322 
323 
324 


F75CD 
F7501 


7B61 
7EB5 


F75D5 00 


F7507 


703 


F75DA 00 


F750C 


203 


F?5DF 00 


F?5E1 
F75E5 


7635 
66DF 


ax 
xx 
aX 
ak 
aK 
ax 
ax 
kk 


=$ 


ak 
ax 
ak 
kk 
xx 
ke 
ax 
aK 
aK 
ae 
kx 
ak 
aK 
aK 
ar 
aK 
ax 
ak 
ae 
ae 
ak 
KK 
aR 
ak 
aa 
aa 
ak 
ak 
aa 
ak 
ak 
a 
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Uses....... 
Inclusive: A,B,C, D[15:5],RO-R3,D0,D1,P,S1[11,7,3:0], FUNCDO, 
PRNCNT [0] 
Stk lvls: 6 (LOOP#p) 
History: 
Date Prograriner Modification 
11/28/83 NZ Added docunentation 
JO IDOI I OI ID TOIT I III III III IIT III SI III TOIT II IIIS TIT III 
JI IO ISI ISIS ICO CIT OOR 
TANDp GOSUB LOOPH#p Parse optional loop # 
GOSUB urdscn Check for ON/OFF 
CON(2) =tON 
REL(3) RINCC ON...done 
CON(2) =tOFF 
REL(3) RTNCC OFF...done 
CON(2) 0 Neither ON nor OFF...get nun expr 
GOSUB RESPIR (Restore input pointer first) 
GOTO  STANp+ Parse 1 or 2 expressions 


OOOO OO II III IIIT ITO IOI IOI. 
FOI I III II TIO IOI II II IIT IOI 


Nane: LOCALp - Parse the LOCAL [LOCKOUT] staterent 
Category: STPARS 


Purpose: 
Parse the LOCAL or LOCAL LOCKOUT staterent 


Entry: 
D1 points to the ASCII character string 
DO points to the location where the tokens go 
D(A] is the end of available nerory 
P=0 


Exit: 
DO positioned past last token output by this routine 
D1 positioned past last character accepted 
P=0 
Exits through ERRORP if error 


Calls: NTOKEN, OUT3TK, SVDOD1, CKNUM, RSDOD1, RESPTR, 
<CLERRp>, <OUTBYT> 

Inclusive: A,B,C, 0[15:5],RO-R3,00,01,P,S7[11,7, 3:0], FUNCDO, 
PRICNT [0] 

Stk lvls: 5 (CKNUM)(<CLEARp>) 


History: 
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325 ze 
326 ae Date Progranner Modification 
327 BAY cco sees. - Site sece ° ~ exotica tes Sete eet ee Set cS 
328 ak 11/28/83 NZ Added docunentation 
329 aX 
330 FOR IOI OOO TO TO TT IK 
331 FORO OOO ITI TOTTORI TTT TI 
332 F75E9 =LOCALp 
333 F75E9 7355 GOSUB Ntoken 
334 F7S5ED AFo C=A W Set high nibbles for conpare 
335 kaK 
336 * LC(6) (=tLOCKO)~ (=LEXPIL)~ (=tXWORD) 
337 x 
338 F75FO 35 NIBHEX 35 LC(6) 
339 F75F2 CON(2) =tXWORD whe 
Ho F75F4 OO CON(2) =LEXPIL 
341 F75F6 00 CON(2) =tLOCKO 
W2 & 
343 Kak 
344 F75F8 976 ARC OW Ts it LOCAL LOCKOUT? 
345 F7SFB FI GOYES LOCLp1 No...restore, use REMOTE parse 
346 . 
7 * This is LOCAL LOCKOUT...output the token, check for loop # 
48 . 
349 F75FD 7EC4 GOSUB oUT3TK Output 3 byte token 
350 F7601 7684 Loopp GOSUB Sv00D1 Save DO, D1 in R2 
351 F7605 7£54 COSUB CKNUM Check if numeric expr follows 
352 F7609 20 P= 0 Regardless of carry, uant P=0 
353 F760B SCA GONC INITPR If good expr, done after RESPTR 
354 F760E 7894 GOSUB RSDOD1 Restore DO, D1 fron R2 
355 * 
356 * Not a loop expression...put out a tCONMA instead 
357 * 
358 F7612 3100 LC(2) =tCOnNA 
359 F7616 64A4 GOTO OUTBYT Don’t restore D1 (already correct) 
360 x. 
361 xe 
362 F761A 70F4 LOCLp1 GOSUB RESPIR Restore token pointer 
363 - 
364 * Fall into CLEARp 
365 % 
366 FO ITO IO OOO TO Tk 
367 JOS IG IIIS SOTO IS TIS III ISI III III TI II TOK 
368 no: 
369 xx Nane: CLEARp - Parse the CLEAR statenent 
370 *x Nane: RENOTp - Parse the REMOTE statenent 
371 *x Nane: TRIGp - Parse the TRIGGER staternent 
372 xe 
373 ** Category: STPARS 
374 xx 
375 ** Purpose: 
376 aK Parse CLEAR/REMOTE/TRIGGER/LOCAL statenent 
377 xx 
378 ex Entty: 


379 ae D1 points to the ASCII character string 
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380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
42? 
428 
429 
430 
431 
432 
433 
434 


F761E 
F761E 
F761E 
F761E 858 
F?621 84A 
F7624 6893 
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ak 00 points to the location where the tokens go 
ax D[A] is the end of available nenory 
xx P=0 
kx 
KK Exit: 
=* DO positioned past last token output by this routine 
xx D1 positioned past last character accepted 
oe P=0 
a Exits through ERRORP if error 
& i 
** Calls: EXPPAR 
ks 
RE USCS co05 05's 
xk Inclusive: A,B,C,D[15:5],RO,R1,00,D1,P,ST[11,7,3:0], FUNCDO, 
ax PRMCNT[0] 
&k 
*x Stk lvls: 
re 
**k History: 
aa 
on Date Progranner Modification 
Pht evs Sila eee | weet ee et 
kK 11/28/83 NZ Added docunentation 
ak 


FOO ICICI IO TIT TIT TOTO 
FOR IIIT ICICI TOTO TOK 
x 


* Code above falls into this routine 
x 


=CLEARp 

=RENOTp 

=TRIGp 
ST=1  OptDev Device spec not required 
ST=0 — -=StarOK No "*" allowed 
GOTO 3 DVCSPc Device address parse 


FOU IOI IIT OO TOT ITO ITO TTI I IO TIT III IIT ITOK 
FOR RII TOI I TOOT TO TTI 
wx 


** Nane: RESETp - Parse the RESET HPIL statenent 
aK 


** Category: STPARS 
ak 


** Purpose: 


x Parse the RESET HPIL statenent 

x 

a ERLPYS 

ee D1 points to the ASCII character string 

a DO points to the location uhere the tokens go 
aK D[A}] 1s the end of available nenory 

kt P=0 

a 

RA ERIG: 

a DO positioned past last token output by this routine 
san D1 positioned past last character accepted 

ah P=0 
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435 ad Exits through ERRORP if error 
436 a 
437 ** Calls: BLANK , CONNUC, < Loopp> 
438 - 
439 aX UsOS....045 
440 kk Inclusive: A,8,C,D[15:5], RO-R3, 00,01,P,ST[11,7, 3:0], FUNCDO, 
44) xk PRACNT(O] 
442 ka 
443 ** Stk lvls: 5 (<Loopp>) 
444 ak 
445 *k History: 
446 7 
447 aR Date Progranner Modification 
448 Te eieeess” Yetstemdues, eit weeeeneeweses ct ewee ealeees 
449 ak 11/28/83 NZ Added docunentation 
450 kk 
454 JU IS ISO ISIS ISI II II TI II III II ITOK 
452 SII III ISI III III ISI OSI SI IOS III ST OSI II ISOS IOS IS IIIS III I III III IIS 
453 F7628 7EF4 =RESETp GOSUB BLANK 
454 F762C 7C95 GOSUB CONWUC Convert word to upper case 
455 F7630 AF6 C=A W Copy upper nibs for compare 
456 F7633 3784 LCASC = \LIPH\ 
0594 
c4 
457 F763D 976 PARC OW 
458 F7640 A2 GOYES Errorx 
459 : 
460 * HPIL... leave as HPIL "RESET" 
461 ‘ 
462 F7642 177 Di=D1+ 8 
463 F7645 58B GONC Loopp Go always...check for loop # 
464 3 II IIA II TITS IIIT TIT TITS I IOS IIIS IS III III IIIS SII IIA 
465 JI I IIS OOO SITS SITIOS ISI IOS TOTTI II III IIIS I III IS 
466 aK 
467 xk Narie: OFFp - Parse OFF INTR/OFF I0 
468 ae 
469 ** Category: STPARS 
470 a 
471 *% Purpose: 
472 ‘s Parse the tokens following tOFF (HPIL) for INTR or I0 
473 : 
474 ek Entry: 
475 ak Di points to the ASCII character string 
476 ns DO points to the location where the tokens go 
477 kk D[A] is the end of available nenory 
478 ak P=0 
479 ak 
480 ax Exit: 
481 ak DO positioned past last token output by this routine 
482 ai D1 positioned past last character accepted 
483 ae P=0 
484 os Exits through REST* if error 
485 - 
486 ** Calls: WROSCN 


487 a 
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488 

483 

490 

491 

492 

493 

494 

495 

496 

497 

498 

493 

500 

501 F7648 7745 
502 F764C 00 
503 F764E 00 
504 F7650 00 
505 F7652 420 
506 F7655 00 
50? 

508 

509 


511 
512 
513 
514 
515 
516 
517 
518 
S14 
520 
$21 
§22 
§23 
524 
§25 
526 
52? 
528 

29 
530 
§31 
§32 
533 
534 
535 
536 
$37 
538 
533 
540 
541 
42 


510 F765? 70C4 
& 
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kk Inclusive: A,B,C,RO,R1,R2,00,01,P,ST[11, 3:0] 
kk 


** Stk lvls: 4 (WRDSCN) 
aE 


*k History: 
is 


ax Date Progranner Modification 
Oe witeced cdeeeceet. eevee tees oe sales aaa 


KK 41/28/83 NZ Added docunentation 

kk 

JOIST ITO IO ISIC IGE TTR TT 
JO IU OI ICCC UTI II 


=OFFIOp GOSUB urdscn 
CON(2) =tXWORD 
CON(2) =LEXPIL 
CON(2) =tINTRR 
REL(3) I0p20 
CON(2) 00 


* If is not OFF INTR try OFF IO... 
* 

GOSUB RESPTR 

* Fall into I0p 

i 


FORO IOI III TOI ITO IOI OI 
FOO III III IIT TIO ITOK 
xk 


** Narie: I0p - Parse "IO" token 

re 

** Category: PARUTL 

wh 

*k Purpose: 

ax Accept the "I0" token from the input strean (used for 
+ OFF I0, RESTORE 10, ASSIGN 10) 

aK 

kk Entry: 

= D1 points to the ASCII character string 

ie DO points to the location where the tokens go 
ak D[A] is the end of available nenory 

xk P=0 

to 

ao Exit: 

a NO positioned past last token output by this routine 
set D1 positioned past last character accepted 

th P=0 

AK Exits through REST* if error 

wa 

¥* Calis: WRDSCN, <REST*> 

re 

BE USS sno tua 


*k Inclusive: A,B,C,RO,R1,R2,00,01,P,ST[11, 3:0] 
RR Stk lvls: 4 (WRDSCN) 
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543 
544 
545 
546 
547 
543 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 


563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
$79 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
§93 
594 
595 
596 


F765B 7435 
F765F OO 
F7661 00 
F7663 00 
F7665 EOO 
F7668 © 
F766A 20 
F766C 8000 
000 


F7673 185 
F7676 03 
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ae 
*k History: 
ak 
a Date Progranner Modification 
Hie les ousleS teevaaaser. Uae tern area ace om 
kk 11/28/83 NZ Added docunentation 
ek 


FORO RRR IJ TT TI IIIT ITT DTI RIK 
FOOT OO OTTO RIOR FOR I IIT III IIIT II II IDI IRI AIT IN 
a 


* Code above falls into this routine 
x 


=I0p GOSUB urdscn Get next token 
CON(2) =tXWORD 
CON(2) =LEXPIL 


CON(2) =tI0 
REL(3) I0p10 
CON(2) 00 
Errorx P= 0 
GOVLNG =REST* Restart parse as if never natched 
ae 
k. 
I0pi0 D0=D0- 6 Return (Don’t output the token) 


10p20. RTNCC 
FOO OOO JORDI TOTO TI 


FORT RO IOI UII TOI TUTOR IK 
xk 


*x Narie: ONINTp - Parse the ON INTR GOTO/GOSUB statenent 
ak 

** Category:  STPARS 

kK 

** Purpose: 

ne Parse the ON INTR GOTO/GOSUB statenent 

aA 

xk Entry: 

x D1 points to the ASCII character string 

am DO points to the location where the tokens go 
kk D[A] is the end of available nenory 

ka P=0 

ak 

BS ERIY: 

RK DO positioned past last token output by this routine 
1 D1 positioned past last character accepted 

oa P=0 

ax Exits through REST* if error 

xx 

** Calls: WROSCN, NTOKEN, <REST*> 

a 

AR USGS Soe e-ace 


kk Inclusive: A,B,C,RO,R1,R2,00,01,P,S1[11, 3:0] 
ak 


*k Stk lvls: 4 (WRDSCN) 
kk 


xk History: 
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§97 
598 
§99 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 


617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
6414 
642 
643 
644 
645 
646 
647 
648 
649 
650 


F7678 7715 
F767C 00 
F767E 00 
F 7680 00 
F7682 900 
F7685 00 
F7687 62EF 


F768B 185 
F768E 7ER4 
F7692 858 
F7695 8D00 
000 
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aa 
aX Date Progranner Modification 
MAi ivaceecese- “eheekeweea- “Seah og@aenci<un cube Ghia wie aoe sone 
kK 11/28/83 NZ Added docurentation 
ae 


FOI IIIT TOTO TO OT TIE 
FOI TO TT TTR 


=ONINTp GOSUB wrdsen 
CON(2) =tXWORD 
CON(2) =LEXPIL 
CON(2) =tINTRR 
REL(3) ONINp1 
CON(2) 00 
GOTO 3=Errorx 


ke 
ke 
ONINp1 00=D0- 6 Don’t output the INTR token 
GOSUB Ntoken 
ST=1 8 Set ON ERROR flag (single branch) 


GOVLNG =ONP40 


FOR ITO II IIIT TOI III 
FOI OI OI OTTO TT I TOO III IK 
xk 


** Narie: ASGNp - Parse the ASSIGN I0 staterent 

kk 

xk Category: STPARS 

kk 

** Purpose: 

x Parse the ASSIGN ID staterent 

ah 

** Entry: 

we D1 points to the ASCII character string 

ee DO points to the location where the tokens go 

ne D[A] 1s the end of available nenory 

te P=0 

ak 

** Exit: 

a DO positioned past last token output by this routine 
a D1 positioned past last character accepted 

a P=0 

kk Exits through ERRORP if error 

xk 

kk Calls: T0p, CKSTR,NTOKEN, OUTBYT, <RESPTR>, <ERRORP> 
KA 

Kk Uses. ...... 

** Inclusive: A,B,C,D[15:5],RO,R1,R2,D0,01,P,ST[11,7, 3:0], 
as FUNCDO, PRICNT[O] 

a 

*K Stk lvls: 5 (CKSTR)(IOp) 

ak 

** History: 

kk 

ae Date Progranner Nodification 

WE ye eS CC eee 0 ee Se 
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651 . 11/28/83 NZ Added docunentation 
om SOR IO III JOO JR FOTO TT TIN 
654 JUROR TAOS IIS III IIIS TTI II II OSI IIIS IIS: 
655 F769C 7BBF sASONp GOSUB 0p First check for "IO" 
656 
657 * If I0p returns, found "IO" 
658 ‘ 
659 F76AD 70E3 GOSUB CKSTR Check for valid string (carry=NO) 
660 F76A4 5F1 GONC ASGNp2 Valid...restore pointer, done 
661 F76A7 7594 GOSUB Ntoken Get the token 
662 F76AB 3100 LC(2) =t* 
663 F76AF 966 ARC OB 
664 F76B2 AO GOYES ASGNp1 Error...illegal paraneter 
665 F76B4 7C05 GOSUB OUT: ASSIGN I0 *...output the tCOLON, 
666 F76B8 6204 . GOTO QUTBYT Output the t*, return, carry clear 
667 - 
668 x 
669 F76BC 20 ASGNp1 P= =eILPAr Illegal paraneter 
670 F76BE 8COO Errorp GOLONG =ERRORP Error...restore pointer, exit 
oO 
671 x 
672 a 
673 F76C4 6654 ASGNp2 GOTO RESPIR 
674 JO UII CII OCOD OCI CIO TITS IT AI 
675 JOO I SII ISIC OTITIS III ISIS II IIIT III IIIA STS: 
676 <> 
677 xk Nane: SENDp - Parse the SEND staterent 
678 ak 
679 ** Category:  STPARS 
680 ax 
681 ** Purpose: 
682 es Parse the SEND statenent 
683 
634 tk Entry: 
685 a D1 points to the ASCII character string 
686 a DO points to the location where the tokens go 
687 ax D[A] 1s the end of available nenory 
688 xe P=0 
689 a 
6% x Exit: 
691 - DO positioned past last token output by this routine 
692 ax D1 positioned past last character accepted 
693 xx P=0 
694 x Exits through ERRORP if error 
695 oe 
696 ** Calls: LOOPH#p , FRASPp, ST'NOp, 7A=CM+, RESPTR, BLANK , CONWUC, 
697 ax OUTBYT , OUTNBS 
698 ae 
699 tk Uses. ...... 
700 kK Inclusive: A,B,C,D[15:5],RO-R3,00,01,P,S1[11:7,3:0], FUNCDO, 
701 a PRNCNT (0) 
702 ax 
703 ** Stk lvls: 6 (LOOPHp) 


704 aw 
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705 *k Algorithri: 
706 a SENDp: Parse optional loop # (LOOPHp) 
707 
708 tas SENDP1:Attenpt to parse a frare spec (FRASPp) 
709 ae If successful frame spec, goto SENDP1 
710 ax 
711 ax If expression is not pernitted here, goto SENDPS 
712 a Attenpt to parse a string or nunber (ST!NOp) 
713 ax If unsucessful, goto SENDPS 
714 £% 
715 wk SENDP2:Check if a contia follows (more expr)  (?A=CM+) 
716 ak If no corina, goto SENDP3 (check for EQL) 
717 a Attenpt to parse a string or nurber (ST! NOp) 
718 ss If successful, goto SENDP2 
719 x 
720 ax SENDIp: While character is a blank, back up one char 
721 ak Goto SENDP5S 
722 a 
723 ax SENDP3:Restore input pointer (RESPTR) 
724 aX Get next character (BLANK ) 
725 x 
726 ax If EOL 1s permitted here, then 
fel ax Read next 3 characters 
728 x If characters = "EQL" then output "EOL" 
729 at Get next character 
7% 3x endif 
73} tk 
732 xx SENDP4:Attenpt to parse a frane spec (FRASPp) 
733 x If successful, goto SENDP1 
734 aX 
735 x SENDPS: Clear ST(10] (Inplied LET flag) 
736 ae RTNCC 
737 a 
738 *k History: 
739 
740 nS Date Prograrner Modification 
741 OPS ees shee, Gueceamink?  weeeeoni Tus Uae cote wedeendem 
742 ek 11/28/83 NZ Updated docunentation 

ax 

JO III OTIC IIE II TTI III IIT TTI IIIT ITOH 
745 SIO III OI IO TTI IIIS TI IIIT TI II II IIIT TIT IT ATI TTT TIT TIN 
746 ; 
747 ® Syntax: 
748 * SEND [<loop #>;] { <keyword> [ <nun expr> | <str expr [ , 
749 2 <nun exprs | <str expr> J* J }* 
750 ‘ 
751 : (nun expr 1s not be allowed for sone of the keywords) 
752 x (str expr is not be allowed for sone of the keywords) 
753 x 
754 * Definitions: 
755 x <keyword> ::= DATA | END | IDY | UNL | LISTEN | UNT | 
756 . TALK | SAD | ODL | ODT | RDY | IFC | LPD | GTL | 
757 x Soc | CnD | MLA | ATA 
758 x <nuti expr> ::= numeric expression 
759 s <str expr> i:= string expression 
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760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
720 
774 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
7% 
791 
792 
793 
794 
795 
796 
79? 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 


F76C8 


F768 


F76CC 
F76D0 


F7603 
F76D6 


F?6D8 
F76DC 


F?6DF 
F76E3 


F?6E6 
F?6ER 


F76ED 


7070 


7990 
58F 


368 
16 


7051 
4A5 


7000 
571 


7241 
54aF 


1C1 
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<loop #> ::= numeric expression in the range [1,3] 


SENDp 


Mw He 


LOOPHp compiles either <nothing> or <tSEMIC><nun expr><tCOMMA> 
It also calls BLANK, leaving the next char in A[B] 


» 


GOSUB LOOPHp Parse loop nunber, if any 


ST(8) (=ExprOK) 1s clear fron the entry to SEND parse 


se we 


* FRASPp compiles <tCOLON><text string>. If not a valid frane, 
returns with DO restored, carry SET. 

* ALB] is the next iten, D1 points to the next iten 

* If carry 1s CLEAR, FRASPp sets/clears ST(StrOK), ST(Eol0K). 
* If carry is SET, FRASPp does not alter ST(Str0K),ST(EolOK). 
x 


»* 


SENDP1 GOSUB FRASPp Frane spec parse 
GONC  SENDP1 If valid frame spec, try another 


ST(Expr0K) indicates if an expression makes sense here. If 
it 1s not set and FRASPp returned with carry set, this 1s 

a parse error!! (Expression following a frane spec that does 
not take an expression) 


* & + ee 


?ST=0 =ExprOK Does an expression make sense? 


GOYES SENDPS No...exit! (Anything else: error) 
JOR II OK 


ST!NOp conpiles {<tCOMMA> followed by <str expr>|<nun expr>} 
if no error has been detected; a string expresion is 
accepted only if ST(Str0K) is SET, else errors on string. 

An EOL is accepted if and only if ST(Eol0K) is true. 

An expression 1s accepted if and only if ST(Expr0K) is true. 
A[B] is next token on return fron ST'INOp; carry indicates 
status (Carry set=error; carry clear=accepted, corpiled) 


* ee ee OO 


GOSUB ST'!NOp Parse initial string | nunber 


GOC SENDP5 No expression specified...done 
k 


* One expression given...check if another expression follous 
x 


SENDP2 GOSUB =?A=CN+ 
GONC  SENDP3 No comma follows...check EOL 
x 
* Found a corna...MUST find another expression! 
x 
GOSUB ST!NOp Parse string | nurber 
GONC SENDP2 Valid...check for another! 
x 


* Didn’t find a valid expression...back up to the conna 
x 

x (STINGp leaves C[BJ=\ \) 

x 

SEND1p D1=D1- 2 
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815 
816 
817 
818 
813 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 


331 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 


F76FO 
F76F3 
F76F6 
F76F8 


F76FB 
F76FF 
F703 
F7706 


F 7708 
F7 700 
F?70F 


F771? 
F?71—A 
F?71C 
F771F 
F?723 
F??726 
F7728 
F??2C 


F?7% 
F7734 


F773? 
F773R 


14B 
962 
7F 

5E3 


7014 
7724 
869 
A2 


7004 
AF6 
3554 
F4C4 
976 


175 
71A4 
AEE 
25 
70A3 
7AF 3 


7530 
579 


84A 
03 


NZ’S PARSE ROUTINES <831128.23 Tue Jan 17, 1984 12:18 pn 


A=DAT1 B 


*R=C 
GOYES 
GONC 


ke 
ke 


SENDP3 GOSUB 
GOSUB 
*$T=0 
: GOYES 


B 
SENDIp 
SENDPS 


RESPTR 
BLANK 

=Eol0K 
SENDP4 
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Go aluays 


Restore pointer... 

...okip blanks, read in character 
Is EOL pernitted here? 
No...continue 


* Check if this 1s EOL (If so, output it and get next frane) 
x 


GOSUB 
C=A 
LCASC 


PARC 
GOYES 


CONWUC 
W 
\LOE\ 


W 
SENDP4 


D1=D01+ 6 


GOSUB 
ACEX 
p= 
GOSUB 


GOSUB 
* 


* If here, MUST have another 
* 


SENDP4 GOSUB 


GONC 
x 


OUT: 

B 

5 
oUTNBS 
BLANK 


FRASPp 
SENDP1 


Convert to upper case 
(To facilitate conpare) 
EOL 


Not EOL...continue 
Skip EOL 
Output 1 byte fron C[B] 


Output 6 nibbles fron A[5:0] 
Skip to next token 


frane spec, else error! 


Found frane spec...continue 


* NOT a frame spec...unrecognized type 
* 


* Fall through to return to parse driver 
* 


SENDP5 = ST=0 
RTNCC 


=StrOk 


Clear this bit for LINE PARSE 


ORO IOI OI OT IO IOI IK 
FOI OOO TOI IIT III TIO DOI TOI OI TOSI 


kk 
** Nane: LQOP#p - Parse an optional HPIL loop specifier 
ed 

** Category:  PARUTL 

aX 

** Purpose: 

ay Parse an optional loop number...if one present, output 
ee the tokens for it 

xe 

Re Bayes 

xt A[B] is next char, D1 points at next character 

a If <loop #> found, compiled code generated 

xx 

**- Entry: 

oo 01 points to the ASCII character string 


ae M™ points to the location where the tokens go 
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869 KK D[A] 1s the end of available nenory 
870 ak P=0 
871 aa 
872 AX Exit: 
873 ak A[B] 1s next character (at D1) 
874 ae DO positioned past last token output by this routine 
875 ak D1 positioned past last character accepted 
876 ak P=0 
877 ak Carry clear 
878 RK 
879 : Calls: SVDOD1, OUTBYT, CKNUM, OUT1TK,RSDOD1 , BLANK 
880 
881 aK Uses...... 
882 kk Inclusive: A,B,C,D[15:5], RO-R3,00,01,P,S1[11,7, 3:0], FUNCDO, 
883 aK PRACNT[O]) 
884 an 
885 ** Stk Ivis: 5 (CKNUM) 
886 ah 
887 *k History: 
888 kk 
889 me Date Progranner Modification 
890 Peo ce ae seat awe uate tukuneeuiecuse ded ewes x 
891 . 11/28/83 NZ Updated docunentation 
JIC IO TI ITI IT IIIT 
894 FI III II IRI TI SII III IIS TTT T III III IRI ITI SII III III IIA ISS SSS IS 
895 % 
896 * Syntax: 
897 * Input strean: [ <nun expr> ; ] 
898 : Compiled code: { <tSEMIC> <nun expr> <tSENIC> J 
899 
900 F773C 7353 =LOOPHp GOSUB SVDOD1 Save DO, D1 
901 F7740 20 P= 0 
902 F7742 310 LC(2) =tSENIC 
93 F7746 7173 GOSUB OUTBYT Output the semicolon in case OK 
904 F774—A 7913 GOSUB = CKNUN Check nureric expression 
905 F774E 421 ; GOC LOOP#H1 Not good...restore,nchar, return 
906 
907 ; This was a valid nuneric expression (B[B] is ntoken) 
908 
903 : Check for trailing senicolon... 
910 
911 F7751 3100 LC(2) =tSENIC 
912 F7755 966 7AHC OB 
913 F7758 90 ‘ GOYES LOOPH1 Not senicolon...don’t accept! 
914 
915 * Output a trailing tSENIC! 
916 x 
917 F775A 7063 GOSUB oUTITK (tSEMIC in ALB] now) 
918 F775E 560 GONC LOOPH2 Go aluays...get next char 
919 ae 
920 k- 
921 F7764 LOOPH1 
922 x 


923 * Restore DO, D1; then get next char 
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924 * 
925 F7761 7543 GOSUB RSDOD1 Restore DO, D1 
926 F7765 64C3 LOOPH2 GOTO BLANK Get next character 
927 JOIST I CII III IC TOI IIIT I TI IIT IIIS IAA 
928 JIL III I OTT IORI IO TTI EIR TIT IT III III IIIT AH 
929 as 
930 Narie: FRASPp - Parse an HPIL frane specifier 
931 
932 ** Category: PARUTL 
933 a 
934 ** Purpose: 
935 - Frare spec parse for HPIL frane descriptors 
936 
937 ae Entry: 
938 ak A[B] is next character (at D1) 
939 ax D1 points to the ASCII character string 
940 ax DO points to the location where the tokens go 
941 x D[A] is the end of available nenory 
942 ak P=0 
943 ah 
944 tk Exit: 
945 xk A[B] is next iten (at 01) 
946 aK If carry set, not valid input (D0,D1 restored) 
947 ee If carry clear, output <tCOLON><text string>. 
948 se ST(Str0k) is set if string OK next, clear if not 
949 7 ST(Eol0K) is set if EOL is OK next, else clear 
950 aR ST(Expr0K) is set if expression makes sense next 
951 ax DO positioned past last token output by this routine 
952 sg D1 positioned past last character accepted 
953 a P=0 
954 aA 
955 i. Calls: UCRANG, OUTBYT, FRAMEE , OUTNBS, <BLANK> 
956 x 
957 PR OUSES carpet 
958 *k Inclusive: A,B,C,RO,R1,P 
959 = 
960 . Stk lvls: 2 (UCRANG)(OUTBYT)(FRAMEE ) (OUTNBS) 
961 
962 ek History: 
863 ax 
964 le Date Progranner Modification 
965 We: Shaves jacacseetes:  weteueeenucosoo cc ueteweseees = 
966 ak 41/28/83 NZ Updated docunentation 
- ah 
ee OI IO OOO OOOO OI OOOO IOI 
969 JORIS TOI UICIEIIGIC IGE IOI IOI OIG OIC 
970 * 
971 * Syntax: 
972 * Input stream: <alpha text string> 
973 % Token output: <tCOLON> <validated text string> 
974 * 
975 F7769 7000 =FRASPp GOSUB =Ucrang Check 1f valid input... 
976 F776D 400 RTNC If carry, not valid input! 
977 F7770 7054 GOSUB OUT: Output a tCOLON before frane spec 


978 F7774 REE 


ACEX 8B (QUTBYT does ACEX B) 
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979 F2777 133 
980 F777A 101 
981 F7770 133 
982 
983 
984 
985 
986 F7780 AC2 
987 F7783 814 
988 F7786 814 
989 F7789 B46 
990 F778C 171 
991 F778F 148 
992 F7792 7000 
993 F7796 SCE 
994 
995 
996 
997 F7799 80DF 
998 F779D OD 
999 F779F 810 
1000 F77A2 810 
1001 F77A5 OD 
1002 F7?7R7 57F 
1003 
1004 
1005 
1006 F?7AR A46 
1007 F77AD ASE 
1008 F77B0 80DF 
1009 F77B4 A96 
1010 F77B7 108 
1011 F77BR OO 
1012 F?7BC 8E00 
00 
1013 F?7C2 4€5 
1014 
1015 
1016 
1017 
1018 
1019 F77C5 110 
1020 F77C8 ACA 
1021 
1022 
1023 
1024 F77CB 80DF 
1025 F77CF 119 
1026 F?7D2 809 
1027 F77D5 136 
1028 
1029 F77D8 AF6 
1030 F77DB 84A 
1031 F77DE 849 
1032 F77E1 848 
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» % % 


FRASP1 


* Got a 
k 


FRASP2 


* Now A[W] as the text, C[S] 
x 


e+ & Me ee 


ADIEX 
R1=R 
ADIEX 


C=0 Ss 

ASRC 

ASRC 

C=C+1 §$ 
D1=D1+ 2 
A=DAT1 B 

GOSUB 9 =Ucrang 
GONC FRASP1 
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Save input pointer in R1 
(A,01 unchanged) 


A[B] 1s first character...continue until not in [A-Z] 
D1 points at first character 


Count in C[S] 
Save characters in high nibbles 
Point to next character 


Check if in [A-2] 
Yes...continue 


character NOT in [A-Z]...rotate text, check it 


P=C 15 
P=P-1 
ASLC 
ASLC 
P=P-4 


GONC FRASP2 


Do avMsAno 
ouuwwiu 
YAO nt DONO 
oO + 
~~ Oo 
rcre- 1M 

ow 


A 
UBL =FRANEE 


@ wD 


GOC FRASP3 


R=RO 
A=C S 


Use P for the character count! 
Decrenent for base zero carry 


Shift one character 
If no carry, not done shifting 


is the length in bytes 


Offset for zero-based count 
C{W] is now set up for FRANEE 


Save text in RO 
Clear A[B] for FRANEE 


Error...not a valid frane 


C(S] is the length of the frane 


Valid frane...write it out, return 


Write out only the specified nibs 


x 
* Set D1 past the last ACCEPTED character 
k 


P=C 15 

C=R1 

C+P+1 

D1=C 

C=A Wd 

ST=0 = =Str 0K 
ST=0 =Eol0K 
ST=0 = =ExprOK 


Set P=WP value of length 

Set the input pointer past frare 
Skip the chars 

Set Di just past the characters 


Copy high nibbles of A[W] to C{W] 
String NOT ok unless CMD/DATA 
EOL NOT ok except after DATA 
Expression not OK unless nask#O 
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1033 F77E4 969 *B=0 iB 
1034 F77E7 50 GOYES FRASPx Nask IS zero...expression not OK 
1035 F?7E9 858 ST=1 — =ExprOk Non-zero nask...expression OK 
1036 F?7EC 2F FRASPx P= 15 
1037 F77EE 3653 LC(7}  (\DMC\)*16+5 C{S]=5, C[$:0]="CMD" (reversed) 
4044 
4 
1038 F77F7 972 7A=C OW 
1039 F77FA 51 GOYES FRASPy Match...Str0K 
1040 * 
1041 * Following instruction is too big for LC(x) 
1042 - ic¢9) (\ATAD\)*16+7 C[S]=7, C[7:O]="BATA" (reversed) 
1043 F?7FC 387 NIBHEX 387 LC(9)..7 
1044 F77FF 4414 NIBASC \DATA\ 
4514 
1045 x 
1046 F7807 976 PAHC OW 
1047 F780A 80 GOYES FRASPn 
1048 F780C 859 ST=1  =Eol 0K EOL is OK here 
1049 F780F 85A FRASPy ST=1 =StrOk String expression OK here 
1050 F7812 AC6 FRASPn C=A S 
1051 F7815 800F P=C 15 
1052 F7819 7CB2 GOSUB oUTNBS Qutput the nibbles in A[WP] 
1053 F7810 603 GOTO BLANK Skip to next non-blank char 
1054 he 
1055 x 
1056 F 7821 FRASP3 
1057 - 
1058 * Restore DO, D1 
1059 x 
1060 F7821 181 DO=D0- 2 Back up over tCOLON 
1061 F7824 119 C=R1 Restore D1 (Input pointer)... 
1062 F782? 135 DI=C ..- fron R14 
1063 F782—A 02 RTNSC Return with carry SET (bad frane) 
1064 FOI I I II TI III II II IITA III IIIA III ISI IIIS SI II IIIT IIS 
1065 JU III TIT ITT TT TSAI IIS I SSI III IIIS I ISI IS ISI II 
1066 ee 
1067 a* Narie: ST'NOp - Parse a string or nuneric expression 
1068 ae 
1069 ** Category: PARUTL 
1070 ae 
1071 ** Purpose: 
1072 an Parse either a string or nureric expression (String OK 
1073 ay only if ST(Str0K) 1s set 
1074 x 
1075 ** Entry: 
1076 a D1 points to the ASCII character string 
1077 ae DO points to the location where the tokens go 
1078 cd D[A] as the end of available nerory 
1079 Ae P=0 
1080 a* 
1081 AE EMIS 
1082 an Next token in A[B] 1f carry clear, next char if set 
1083 AF Carry clear 1f accepted; <tCOMNMA><expr> compiled 


1084 +e Carry set if error; pointers restored 


Saturn Assenbler NZ’S PARSE ROUTINES <831128.23 Tue Jan 17, 1984 12:18 pn 


Ver. 3.39/Rev. 206 Page 21 
1085 aX DO positioned past last token output by this routine 
1086 &k D1 positioned past last character accepted 
1087 ak P=0 
1088 A 
1089 tk Calls: SVDOD1 , OUTBYT, EXPPAR, RSDOD1 , BLANK 
1090 ak 
1091 tk Uses....... 

1092 *k Inclusive: A,B,C,D[15:5],RO-R2,D0,01,P,ST[11,7, 3:0], FUNCDO, 
1093 kk PRNCNT[0} 
1094 kk 
: 1095 ** Stk lvls: 4 (EXPPAR) 
« 1096 ae 
1097 ** History: 
1098 as 
1098 xk Date Progranner Modification 
1100 RX. S2cctcss,' “wesaee seca:  “SSScecieoecewcecen ose ceseet ese 
1101 &K 11/28/83 NZ Updated docunentation 
he 
dee JIC II III III TOI III IIIT III IIT ITSO IIIS IIIS I III IIIT IIIT III TIO TIT T 
1104 JI I SITIO ITO TTI TIS III STII IIIT OI TTI TTT 
1105 & 
1106 * Syntax: 
1107 * Input strean: <nun expr> | <str expr> 
1108 * Token output: <tCOMMA> <legal expr> 
1109 x 
1110 F782C =STINOp 
1114 * 
1112 * First save DO,D1 in R2,R3 
1113 x 
1114 F782C 7362 GOSUB SVDOD1 Save DO, Di 
1115 F7830 3100 LC(2) =tCOMMA 
1116 F7834 7382 GOSUB OUTBYT Output the Conna token 
1117 F2838 7422 GOSUB Exppar Check 1f expression 
1118 F783C 870 ?ST=1  Inval£ Is it invalid? 
1119 F783F EO GOYES ST!NO2 Invalid...restore 
1120 F7841 873 ?$T=1  NuriExp Is it valid numeric? 
1121 F7844 70 GOYES ST!NO1 Yes...accept it! 
1122 e 
1123 * String...check if StrOK...if OK, accept; if not, restore 
1124 i 
1125 F7846 86A ?8T=0 =StrOK 
1126 F7849 40 GOYES ST!NO2 Not OK...restore 
1127 F784B ST'NO1 
1128 : 
1129 : Accept it all now (The ntoken is in A[B]) 
110 
1131 F784B 03 RTNCC Carry clear=accepted 
1132 k. 
1133 a 
1134 F784D ST!NO2 
1135 s 
1136 * Not accepted...restore and return with next char in A[B] 
1137 k 
1138 F784D 7952 GOSUB RSDOD1 Restore DO, D1 


4139 F7851 75D2 GOSUB BLANK Skip blanks, read next character 
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1140 F7855 62 RINSC Return, carry SET 
1144 JU III I DIO III OT TIT SII III TITRE 
1142 SII III II II II IIT III III II IOI ISI DIS SII SIS ISS SII SIS SSIS SII SI IA. 
1143 + 
1144 ** Nane: FILSPp - Parse an HPIL file specifier 
1145 *k Nane: FILSp - Parse an HPIL file specifier (string 0K) 
1146 ** Nane: DEVSPp - Parse an HPIL device specifer (got :) 
1147 *k Nane: DVSPp - Parse an HPIL device specifer (* 0K) 
1148 x 
1149 ** Category:  PARUTL 
1150 ak 
1151 ** Purpose: 
1152 ae Routine to parse a file and/or device specifier 
1153 aes 
1154 &* Entry: 
1155 ax D1 points to the ASCII character string 
1156 x DO points to the location where the tokens go 
1157 ak D[A] is the end of available menory 
1158 an P=0 
1159 aK 
1160 RX Exits 
1161 as DO positioned past last token output by this routine 
1162 a D1 positioned past last character accepted 
1163 x P=0 
1164 ax Carry set if error (C[3:0] 1s error #) 
1165 ax (D1 points at the erroneous iten) 
1166 wa Carry clear if OK (D1 points past file spec, A is next 
1167 token, DO 1s set properly, A[S]J#O if filename found) 
1168 
1169 kA Calls: CKSTR, OUTBYT , NANEpb, OUT2TC ,NAMEp, NTOKEN, OUT1TK, 
1170 ae CKNUM+ , CKNUN- , RESPTR, SVDOD1, CATCH+, RSDOD1 
1171 aX 
1172 AP SESS itunes 
1173 k* Inclusive: A,B,C,D[15:5],RO-R4,D0,01,P,81[11,10,7,3:0], 
1174 ak FUNCDO, PRNCNT[O] 
1175 ay 
1176 ** Stk lvls:  FILSPp: 5 (CKNUM) 
1177 RX Stk lvls:  FILSp: 5 (CKSTR)(CKNUM) 
1178 ** Stk lvis:  DEVSPp: 4 (CKNUM+)(NANEp) 
1179 Rk Stk lvls:  OVSPp: 4 (CKNUM+)(NANEp) 
1180 ae 
1181 ** History: 
1182 
1183 ay Date Prograriner Modification 
1184 RR nnn nnn newer een ee nnn nn nnn enn nnn o-oo ee 
1185 ee 11/28/83 NZ Updated docunentation 
ke 
ae FOR ROO TRI OOO IOI IO TOI tok 
1188 JOU IOI ISI ISUI II IOI GI ISI IIR 
1189 , 
11% * File specifier syntax: 
1194 * Input strean: 
1192 x <string expression> 
1193 x or [ <file name> ] : «device specifier> 
1194 * or [ <file nane> ] . <volune label> 
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1195 * Token output: 
1196 x «string expression> 
1197 x or <tLITRL> [ <file name> ] <tCOLON> <device specifier> 
1198 * or <tLITRL> [ <file nane> } <tSEMIC> <volune label> 
1199 * 
1200 * Device specifier syntax: 
1201 * Input strean: 
1202 x 4) <string expression> (DEVSPp only) 
1203 * 2) or : <address> (DEVSPp only) 
1204 * 3) or : <device word> [ (<seq nun>) ] (DEVSPp only) 
1205 * 4) or : % <device type> [ (<seq nun>) J (DEVSPp only) 
1206 * 5) or : <assign word> (DEVSPp only) 
1207 * 6) or : <device ID> [ (<seq nun>) ] (DEVSPp only) 
1208 * 7) or [: J] * (DEVSPp only) 
1209 * 2) or <address> 
1210 * 3) or <device uord> [ (<seq nun>) ] 
1211 * 4) or % <device type> [ (<seq nun>) ] 
1212 * 5) or <assign word> 
1213 * 6) or <device ID> [ (<seq nun>) ] 
1214 x 
1215 * Token output: 
1216 >) «string expression> 
1217 * 2) or <tCOLON> <nun expr> 
1218 * 3) or <tCOLON> <tLITRL> <device word> [ <tCOLON> <nun expr> J 
1219 * 4) or <tCOLON> <tZ> <num expr> [ <tCOLON> <nun expr> ] 
1220 * 5) or <tCOLON> <tLITRL> <assign word> 
1221 * 6) or <tCOLON> <tLITRL> <device ID> [ <tCOLON> <nun expr> ] 
1222 * 7) or <tCOLON> <t*> 
1223 x 
1224 $I SIT II TOT RTT K TRE 
1225 x 
1226 * Check for string expression first (Save state for restore) 
1227 & 
1228 F7857 7922 =FILSp GOSUB CKSTR Check if string (Carry = NQ) 
1229 F785B 460 COC FILSPp Not string...try literal 
12% F785E 6541 GOTO FILSp8 
1231 x 
1232 Ken 
1233 F7862 =FILSPp 
1234 F7862 20 p= 0 
1235 F7864 3100 LC(2)  =tLITRLe Literal token (File specifier) 
1236 F7868 7F42 ; GOSUB OUTBYT Output it! 
1237 
1238 * Now D1 points to the first char of the file spec (or blanks) 
1239 x 
1240 F786C 2F P= 15 
1241 F786E XA iC(1) 10 10 characters nax! 
1242 F7871 74B1 : GOSUB NANEpb Parse the nane (If carry, error) 
1243 
1244 * If carry is set, A[B] is the next char: could be bad first 
1245 * char (digit) OR too long. I can’t do either one... RTNSXM! 
1246 _ 
1247 F7875 453 GOC FILSpn Not anything I understand 
1248 x 


1249 * Have parsed the nane...check next character 
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1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
126? 
1268 
1269 
1270 
1271 
1272 

273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
12% 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
10 
11 
1We 
1303 
1304 


F7878 
F787B 
F787F 
F7882 
F7884 
F7888 
F788B 


F788D 


F 78% 
F7892 
F7394 


F7896 
F?89A 
F?89C 
F739F 
F78A3 


F78R6 
F78A9 


F?8AB 


F78AF 


F?8B2 
F78B5 
F78B9 
F?8B0 
F78C1 
F78C4 


F78C6 
F78C8 
F78CB 


104 
31A3 
962 
4 
SIE? 
966 
02 


171 


SSS 


7B22 
ef 
36 
7881 
470 


94C 
Fé 


62FO 


171 


84A 
7803 
7382 
3100 
366 
a1 


86A 
CO 
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x 
R4=A Save A[S] in R4(S] 
LCASC \:\ 
*A=C OB Is it a colon? 
GOYES FILSpo Yes...continue 
LCASC \.\ 
7ARC OB Te-it-a "2 
GOYES FILSpn No...return, set XM, clear carry 


* 
* Have a volume label...sane rules as NAMES (alpha, alpha-digit) 
x 


=DVLBp D1=D1+ 2 Skip the "." 
KaAKK 


x 
* LC(4) (=tSEMIC)~ (=tCOLON) 
NIBHEX 33 
CON(2) =tCOLON 
CON(2) =tSENIC 


KAKK 


GOSUB oUT2TC 

P= 15 

LC(1) 6 Max of 6 characters in volune lbl 
GOSUB NAMEp 

GOC FILSpn Bad first char OR too long..exit 


* Check that at LEAST one char accepted 
x 


PAHO OS Any characters accepted? 
GOYES FILSp! Yes...check for loop # 
x 
* If here, had either a first char that was not a letter or 
* a colon OR had a nane too long...either one is not HPIL. 
x 
FIiSpn GOTO FILSpx Return, set XM, clear carry 
x 
Res 
FIUSpO D01=D1+ 2 Skip the colon 
* Entry for Device parse (AFTER the colon) 
x 
=DEVSPp ST=0  =StarOk FILE:* 1s NOT OK for this entry 
=DVSPp GOSUB OUT: Output the colon token 
GOSUB Ntoken Get next token... 
LC(2)  =t* 
RHC OB Is this a "*"? 
GOYES FILSp!1 No...continue checking 
x 
* Found a "*"...1s 1t permitted here? 
i 
P= =eILPAr Illegal paraneter 
*ST=0 -=StarQk 
GOYES FILSpx Error if Star0K=0 


x 
* OK... output the token 
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1305 & 
16 F78CD 20 P= 0 
1307 F78CF 7861 GOSUB OUTBYT Output the t* token 
18 F78D3 6400 GOTO FILSp9 Done...exit 
1309 Ke 
1310 a 
1311 F78D7 66C0 FILSpx GOTO  FILSpx 
132 h- 
1313 - 
1314 F78DB FILSp1 
1315 x 
1316 * Not "*"...check if device type ("%") 
1317 x 
1318 F78D0B 3100 LC(2} =t% 
1319 F78DF 966 7AHC OB Is it device type? 
1320 F78E2 RS : GOYES FILSp4 No...continue checking 
1321 
1322 * Device type (Syntax Z%<nun expr> [ (<num expr>) ] ) 
1323 . 
1324 F78E4 7601 GOSUB oUTITK Qutput one token (tZ) 
1325 . 
1326 : Following two lines are for stack levels (ENTERp,...) 
132? 
1328 F78E8 7B61 GOSUB CKNUM+ Save info, call EXPPAR 
1329 F78EC 7871 GOSUB CKNUN- Check results of EXPPAR 
1330 F78FO 46E GOC = FILSpx Error if carry (string/no expr) 
1331 F78F3 3182 FILSp2 LCASC \(\ 
1332 F78F7 966 AKC OB Is there a sequence #? 
1333 F78FA 22 GOYES FILSp3 No...check for loop # 
1334 - 
1335 * Sequence # found 
1336 * 
1337 F78FC 74C2 GOSUB OUT: Output the "(" (kludge) 
1338 F7900 7351 GOSUB CKNUN+ Call EXPPAR (for stack levels) 
1339 F794 7361 GOSUB CKNUN- Check nuneric expression 
1340 F7908 4EC GOC FILSpx Error if carry 
1344 x 
1342 * Check for closing paren now 
1343 * 
1344 F790B 3192 LCASC \)\ 
1345 F?OF 20 P= =eltSPAr Missing paraneter 
1346 F7911 966 ARC OB 
1347 F7914 3C GOYES FILSpx Error...no closing ")" 
1348 F7916 20 P= 0 
1349 F7918 7422 ILsp! GOSUB Ntcken Get next token first 
1350 
1351 * Now check for loop # 
1352 * 
1353 F791C 31A3 FILSp3 LC(2) \:\ 
1354 F7920 966 RHC OB Is there a loop #? 
1355 F?7923 51 GOYES FIlsp8 No...exit after restoring D1 
1356 . 
1357 * Loop # found 
1358 . 


1359 F7925 3100 LC(2)  =tSEMIC Internal representation 
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1360 F7929 7E81 GOSUB OQUTBYT Output the senicolon token... 
1361 F792D 7621 GOSUB CKNUM+ Call EXPPAR (for stack levels) 
1362 F7931 7631 GOSUB CKNUN- Check nuneric expression 

1363 F7935 486 GOC FILSpx Error if carry 

1364 F7938 6B60 FIlsp8 GOTO FILSp8 Exit after restore 

1365 ~ 

1366 x. 

1367 F793C FILSp4 

1368 x 

1369 * Not a device type...check further (Device word or address) 
1370 & 

1371 * First try address (if parses, then check for chars following) 
1372 % 

1373 F793C 7BD1 GOSUB RESPIR Restore pointer back to start 
1374 F7940 7F 41 GOSUB SVDOD1 Save DO, D1 

1375 F7944 7FO1 GOSUB CKNUM+ Call EXPPAR (for stack levels) 
1376 F7948 7F11 GOSUB CKNUN- Check if nurieric expression 

1377 F794C 4A2 GOC FILSp6 Not nureric...try device word 
1378 x 

1379 * Iff it is clearly a value expression (1,A+2,etc), then XM=1 
1380 * (This means that any device ID’s which begin with a nureric 
1381 * function may need to be quoted) 

1382 * 

1383 F794F 831 ?XN=0 

1384 F7952 50 GOYES FILSp5 Not value expression...check nore 
1385 F7954 57C GONC FILSp3 Go aluays...this is an address 
1386 x 

138? re 

1388 x 

1389 * If the next token is in [A-Z][0-9] and the previous char is 
1390 * not a blank, then this must be a device ID 

1391 * 

1392 F7957 70C1 FILSpS GOSUB RESPTR Back up to last token start 

1393 F795B 148 R=DAT1 B Read the ASCII of the token 

1394 F795E 72B1 GOSUB) cATCH+ Check if letter or digit next 
1395 F7962 558 GONC FILSp! No...this 1s address (check loop) 
1396 F7965 1C1 D1=D1- 2 

1397 F7968 148 A=DAT1 B 

1398 F796B 171 D1=D1+ 2 

1399 F796E 3102 uc(2) \\ Check for a preceding blank 

1400 F7972 962 wA=C OB 

1401 F7375 3A GOYES FILSp! Blank...this is an address 

1402 * 

1403 * This is not an address...check if this 1s device word 

1404 7 

1405 F7977 7F21 FILSp6 GOSUB RSDOD1 Restore DO, DI 

1406 F797B 20 P= 0 

1407 F797D 3100 LC(2)) =tLITRb 

1408 F7981 7631 GOSUB QUTBYT Qutput the literal token first 
1409 F7985 2F P= 15 

1410 F798? 308 LC(1) 8 Max of eight chars in device word 
1411 F798R 7-9 GOSUB NANEp Parse it 

1412 F798E 4FO Got FILSpx Excess characters...error 

14143 & 

1414 * Check that at LEAST one character accepted 
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1415 

1416 F7991 948 
1417 F7994 AO 
1418 F7996 76A1 


1419 F799R 685F 


1420 

1421 

1422 F799E 21 
1423 F79RO OD 
1424 F79A2 00 
1425 

1426 

1427 F79R4 7371 
1428 F79A8 821 
1429 F79AB 114 
1430 

1431 

1432 

1433 F?9RE 
1434 F?9AE 03 
1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1443 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 


x 


ke 
x. 


FI 


x. 
x. 


FI 
FI 


x 

x 

x 

=X 
=R 
xk 
ak 
ax 
kk 
aK 
ak 
xk 
ak 
xk 
xk 
ak 
xk 
ak 
ak 
ax 
ak 
ax 
ak 
ak 
xk 
xk 
an 
ak 
ak 
ak 
xk 
xk 
ak 
ak 
ak 
an 
xk 
xk 
ak 
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7A=0 = SS 
GOYES FILSpx 
GOSUB Ntoken 


Any valid characters? 
No valid characters...error 
Get next token 


GOTO FILSp2 OK...check 1f sequence # 
LSpx P= 1 

P=P-1 Clear carry 

RTNSXM 
LSp8 GOSUB RESPTR Restore pointer 
L3p9  XM=0 Clear XM... 

R=R4 Restore A[S] fron R4[S] 
Entry for XWORD parse 


WORDp 


TNCC = RTNCC Return with carry clear 
SK III IIIT IT II IDIOT III IIIT IIS III I ITI IOI SII IIIT IIS SSSI IS ISSS 


JOO IOI OTTO TORT OTT 


Narie: DVCSPp - Parse a device specifier (: optional) 


Category: STPARS 
Purpose: 
Device spec parse...string expr, *, and [:] OK 


Entry: 
D1 points to the ASCII character string 
DO points to the location where the tokens go 
D[A} is the end of available nenory 
P=0 


Exit: 
DO positioned past last token output by this routine 
Di positioned past last character accepted 
Carry clear 
P=0 
Exits through ERRORP if error 


Calls: EOLCK, RESPTR, OUTBYT, CKSTR, BLANK, DVSPp, DVLBp 


Inclusive: A,B,C,0[15:5],RO-R3,D0,01,P,ST[11, 10,8, 7, 3:0], 


FUNCDO, PRACNT(0} 
Stk lvls: 5 (CKSTR)(DVSPp) 
History: 


Modification 


ww ee a ee ee em ee ewe we eee ee eee 


Prograniner 
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1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1431 
1492 
1493 


1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1602 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1612 
1613 
1514 
1615 
1516 
1517 
1518 
1519 
1520 
1921 
1622 
1623 


F79B0 
F79B0 
F 79B3 


F79B7 
F79BA 


F73BD 


F79C4 
F?9C? 
F79CA 
F79CC 


F79D0 
F79D4 
F79D6 
F 7908 
F79DE 


F79E0 
F79E4 
F79E8 
F79EB 


F79EF 
F?9F3 
F?9F? 
F?9FR 
F?9FC 
F 7ROO 
F 7R03 


F7RO5 


84A 
6600 


85A 
848 


8FOO 
000 
581 
878 
60 
6DCB 


7741 
20 
3100 
7000 
03 


7731 
7090 
460 
6F 21 


7731 
STE2 
962 
Ze 
31A3 
966 
50 


171 
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ek 41/28/83 
ka 


FOI II ITO IO TOT TTT TT 
FORO UII IIIT OTT TT Tr 


x 


* Syntax: 
* Input stream: <string expression> or 
{ : ] <device specifier> or 


Pea cor 


ACKp 
¥CPn* 


ott oe Oe ee Oe Oe ee 


ov 


x. 
x. 


=DVCPy* 
=DVCSPp 
k 


DVCSPc 


xe 
ke 


OVCSPr 


ke 
x. 


DVCPOS 


or 
r. 


DVCP10 


* Colon 
x 


. <volune label> 
Token output: 


NZ 
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<string expression> or 


<tCOLON> <device specifier> or 
<tCOLON> <t*> 


<tCQLON> 


ST=0 
GOTO 


ST=1 
ST=0 


GOSBYL 


GONC 
*ST=1 
GOYES 
GOTO 


GOSUB 
Ps 

LC(2) 
GOSUB 
RTNCC 


GOSUB 
GOSUB 
GOC 
GOTO 


GOSUB 
LCASC 
?REC 

GOYES 
LCASC 
PARC 

GOYES 


1s present...skip it 


Di=i+ 


=Star0K 
DYCSPp 


=StarQk 
=OptDev 


=EOLCK 


DYCPOS 
=OptDev 
DVCSPr 
MSGPAR 


RESPIR 
0 
=tCONNA 
OUTBYT 


RESPTR 
CKSTR 

DYCP10 
RESPIR 


BLANK 
\.\ 
B 


DYCP40 
eA 

B 
DVCP30 


a 
c 


<tSEMIC> <volune label> 


tee GOK 
Device specifier required 


Check if 1s EOL, @, ', ELSE 


If not, restore ptr and cont. 
Is device spec. optional ? 
If so, we are done 

Otheruise say, Missing Parn. 


Restore pointer for device parse 
Load dutiny corma token into C 


Output the corna token 
Already restored input pointer 


Restore pointer 

Check if string (Carry=NQ) 
No...try literal 
Yes...restore pointer, return 


Read in the character 

Check first for volure label 
Is this a volune label? 
Yes...volune label 


Is there a colon? 
No...continue 


Skip to next iten 
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1524 F7A08 79RE DVCP3O GOSUB DVSPp Device spec parse 
1525 F7AOC 4B0 DPVCP35 GOC DVCP65 If carry, error (can’t happen) 
1526 F?ROF 831 ?XM=0 QK? Processed as is? 
1527 F7R12 21 GOYES DVCP70 Yes...return with carry clear 
1528 F7R14 6288 GOTO INITp1 If not, say "Syntax" 
1529 t- 
15H t- 
1531 F7A18 6678 DVCP65 GOTO Error! Parse error, already set up 
1532 x. 
1533 oe 
1534 F7AIC DVCP40 
1535 a 
1536 * VYolune label 
1537 x 
1538 F7A1C 7D6E GOSUB DVLBp Device volune label parse 
1539 F7A20 6BEF GOTO DVCP35 Go check for error 
Z 1540 k_ 
. 1541 a. 
1542 F7A24 84A DVCP70 ST=0 10 ST(10) MUST be zero (Implied LET) 
1543 F7A27 03 RTNCC 
1544 JUS ISOS OSC TOTTI STITT TIT 
1545 FOI IO OO TOK 
1546 ak 
1547 tk Nane: NANEpb - Skip leading blanks, parse device word 
1548 **k Nane: NANEp - Parse a device word (C[S] is # chars) 
1549 a 
155 kk Category: PARUTL 
1551 a 
1552 ** Purpose: 
1553 x Parse a device word: <letter > {<letter> | <digit >} *n 
1554 “is 
1555 &k Entry: 
1556 ak C(S] is max nunber of characters to accept 
1557 os D1 points to the ASCII character string 
1558 Ax DO points to the location where the tokens go 
1559 ak D[A] 1s the end of available nenory 
1560 xe 
1561 &X Exit: 
1562 ales First character not used in A[B] (char @ D1) 
1563 zm Carry set if length exceeded or first char is a digit 
1564 aK A[S]=0 if no chars, #F if characters 
1565 a DO positioned past last character output by this routine 
1566 es D1 positioned past last character accepted 
1567 ak P=0 
1568 an 
1569 tk Calls: BLANK, CATC++, OUT1TK 
1570 ax 
1571 EX USCS. 6 ness 
1572 *k Inclusive: A[S,B],C{S,B),P,D0,D1,ST[2:1] 
1573 ~ 
1574 ** Stk lvls: 3 (CATC++) 
1575 ak 
1576 *k History: 
157? Rx 


1578 ay Date Progranner Modification 
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1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1693 
1594 
1595 
1596 
159? 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
162? 
1628 
1629 
16H 
1631 
1632 
1633 


F7A29 7DFO 
F7A2D 20 
F7A2F ACO 
F7A32 7BDO 
F7A36 500 
F7A39 871 
F7A3C 00 
F7A3E AAC 
F7A41 A4E 
F7R44 400 
F7A47 7370 
F7A4B 171 
F7R4E 7FBO 
F7AS2 4EE 
F7A5S 03 


ax 
ak 
ax 
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SOO TOI III ITO ITO TOTTI 
FOI OTITIS 


x 
* Syntax: 
x Input strean: [ <letter> [ <letter> | <digit> ] *n ] 
* Token output: Sarie as input (with all letters converted to 
: upper case) 
=NANEpb GOSUB BLANK Skip any leading blanks! 
=NANEp P= 0 
A=0 S Clear "char" flag 
GOSUB CATC++ Read first char, set statuses 
RTNNC Not letter or digit...return, CC 
*ST=1 Digit Is this a digit? 
RTNYES Yes...not perriitted here-Set Carry 
A=A-1 § Set A[S]="F" 
NANEp1 C=C-1 §$ Decrenent count 
RTNC Error...too long! (Set Carry) 
GOSUB oUTITK Qutput the token 
Di=zD1+ 2 Increnent to next token 
GOSUB CATC++ Read 1t, check it out 
GOC NANEp1 Letter or digit...OK! 
Carry clear = Ok! 
JOTI TIO OTT TO TOC IT AI II IIIT III IDI III II TIDE ETEK 
SII I IOI II TIS IS ISI I III II TIT TI STR I DIDI DITTO TIT ED TAT TEL 
kk 
xx Narie: CKNUM - Check for a nuneric expr (output it) 
** Wane: CKNUN+ - Save D1 in R3, goto EXPPAR 
** Nane: CKNUN- - Check EXPPAR exit conditions for nunber 
tk 
** Category: LOCAL 
tok 
** Purpose: 
as Check for a nuneric expression and output the tokens 
aA for that expression 
ax 
k* Entry: 
x 01 points to the ASCII character string 
Re DO points to the location where the tokens go 
ax D[A] 1s the end of available nenory 
ak P=0 
ik 
ME EMI: 
ee Carry set if not numeric (P is error nunber for parse, 
aX 01 points to the error) 
a Carry clear if OK (tokens output, DO,D1 set to next 
se itens, P=0) 
ae DO positioned past last token output by this routine 
D1 positioned past last character accepted 
ax 
* Calls: EXPPRR 
as 
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1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 


1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 


F7AS? 
F7R5A 
F7ASD 
F7A60 


F7R67 


F7A6B 
F7R6E 
F7A70 
F7A73 
F7A76 


F7A79 
F7R7C 
F7R7E 


F7A80 
F?R82 


137 
108 
135 
8000 


7CEF 


873 
80 

118 
135 
59 


870 
40 
03 


20 
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KK Uses. ...... 
*k Inclusive: A,8,C,0[15:5],RO,R1,R3,00,01,P,ST[11, 7, 3:0], 
a FUNCDO ,PRACNT[O] 
kk 


kX Stk lvls: CKNUM: 4 (CKNUMN+) 
kk Stk lvls: CKNUN+: 3 (<EXPPAR>) 
Xk Stk lvls: CKNUN-: 0 

ka 

** History: 

ka 


xk Date Progranner Modification 
PA eee Mee | ek eat eee 


KK 11/28/83 NZ Updated docunentation 

xk 

JO IOS OI IO OC I TTT TK 
JORIS TI TTT RET 


CKNUMN+ CDIEX 


R3=C Save input pointer for case of 
D1=C string (to set error pointer) 
Exppar GOVLNG =EXPPAR 
x 
ke 
CKNUM  GOSUB CKNUN+ Call EXPPAR after save 
x 
CKNUM- ?ST=1 NunExp Is it nuneric? 
GOYES CKNUMN1 Yes...0K 
C=R3 
D1 =C Restore input pointer 
GONC CKNUN2 Go aluays 
ke 
k. 
CKNUN1 ?ST=1 InvalE Invalid? 
GOYES CKNUM2 Yes...error 
RTNCC No...all OK 
x. 
k. 
CKNUM2 P= =eI LEXp Illegal expression 
RTNSC 


FOI RIO TOOT TTT TTT TTT ITT 
FOI TO TOOT ITO TT TOO II 
xk 


** Nane: CKSTR - Parse a string expression 
kx 


** Category: LOCAL 
+k 


xk Purpose: 

oe CKSTR tries to parse a string expression non-destructivel 
x 

*k Entry: 

: D1 points to the ASCII character string 

ae © points to the location where the tokens go 

KK D[A] is the end of available nenory 

ax P=0 

xk 
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1688 
1689 
169% 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1743 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
122? 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1736 
1736 
1737 
1738 
1739 
1740 
1741 
1742 


F7A84 7800 
F7A88 740F 
F7A8C 873 
F?A8F BI 
F?R91 03 


NZ’S PARSE ROUTINES <831128.23 Tue Jan 17, 1984 12:18 pn 


Page 32 
B® Exits 
ak Carry set if not string (00, D1 restored) 
ial Carry clear if string (tokens output) 
ne DO positioned past last token output by this routine 
ax Di positioned past last character accepted 
ak P=0 
xR Exits through ERRORP if error 
ax 
** Calls: SVDOD1, EXPPAR, <RSDOD1> 
ak 
RE UGES Se ec as 
x Inclusive: A,B,C,0[15:5], RO-R2,D0,01,P,ST[11,7,3:0],FUNCDO, 
ak PRMCNT(0] 
a 
** Stk lvls: 4 (EXPPAR) 
kk 
** History: 
kx 
kx “Date Programmer Nodification 
ONS peel Uke as eee et sale Wee fae eet te 
kx 11/28/83 NZ Updated docunentation 
re 


FIO OOO IIIT OI TO TOO ITI IK 
FOI OIRO TOI OO TO OI IO TOI III OK 


=CKSTR GOSUB SV¥DOD1 Save DO and D1 in R2 
GOSUB Exppar 
*ST=1 NunExp Valid nuneric? (set unless string) 
GOYES RSDOD1 Yes...not string 


Return (valid string) 
JOO III IOI IO TI ITI I TTT I ITT ITOK 


JOO IOI TTT TIO TT TI I III TI ITT II 
ax 


** Nane: SVDOD1 - Save DO and D1 in R2 
*k Nane: RSDOD1 - Restore DO and 01 fron R2 
ak 


** Category: STPARS 
ak 


** Purpose: 


7 Save/restore DO and D1 in/from R2 

ax 

e* Entry: 

aK SVD0D1: none 

tok RSDOD1: R2 contains DO and B1 (fron SVDOD1) 
ax 

** Exit: 

a SVDON1: R2 cantains DO and 01 values 
a RSDOD1: DO and D1 are restored fron R2 
els P,Carry unchanged fron input 

aA 

** Calls: CSLCS, CSRCS 

ax 

RP WS OS crore a 

kk Inclusive: C[W],R2 

xx 


** Stk Ivis: 1 (€SLE5)(CSRC5) 
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1743 ax 
1744 *% History: 
1745 x 
1746 ax Date Progranner Modification 
1747 KR cnn enn eel eee ee nen n ene eee eee ee eee 
1748 ek 11/28/83 NZ Added docunentation 

xk 
es SIT I III II IIS III IIIS IAS IIIS ISI III III IIIS II SII III II ISIII ISI SSIS 
1751 FOO RI TIO IOI IOI JOO TOOT TTT TOTO 
1752 F7RA93 137 =SV¥DOD1 CDIEX 
1753 F7A96 135 D1=C 
1754 F7A99 8E0O GOSUBL =CSLC5 Save D1 in R2[9:5} 

OO 
1755 F7A9F 136 CDOEX 
1756 F7AR2 134 DO=C Save DO in R2[A)} 
1757 F7ARS 10A R2=C 
1758 F7AR8 01 RTN 
1759 xe 
1760 h- 
1761 F7ARA 11A =RSDOD1 C=R2 
1762 F7ARD 134 dO=C Restore D0 
1763 F7ABO 8E00 GOSUBL =CSRC5 
00 

1764 F7AB6 135 D1=C Restore 01 
1765 F7RB9 01 RIN 
1766 SII ISI IIIT ITI I IIIA IIS ISAS STII III III III OI II ISI II III ISIS ISOS SAI IA 
1767 x 
1768 * These routines are identical to the mainframe routines by the 
1769 * sane nanies 
1770 * 
1771 SII III ASI III IIIT III IITA IIIS IIIT STII DISS II SII SIS IIS IIIS SAS ISI IA 


1772 F7ABB REE =OUTBYT ACEX 6B 
1773 F7ABE 8D00 =oUTITK GOVLNG =OUTITK 


000 

1774 Re 

1775 Re 

1776 F7ACS 8D0) =oUTZTC GOVLNG =OUT2TC 
000 

1777 . 


1779 F7ACC AFA 
1780 F7ACF 8000 
000 


x 
1778 x. 

=QUT3TC A=C W 

=oUT3TK GOVLNG =OUT3TK 


1781 
1782 
1783 F7AD6 RFA 
1784 F7RAD9 8D00 


mow Me & 


OUTNBC A=C W 
oUTNBS GOVLNG =QUTNBS 


000 
1785 a. 
1786 a. 
1787 III IOI OS IIIT I III III II IIIS TIS II III SI SSSI IIIS ISI IIS TISAI ISK 
1788 FIO SI A III IOI IOS I SII III IIIT III IIIT II TISAI ISS ISIS SII SSSI ISI AS 
1789 a 
1790 ** Narie: NUNCK+ - Restore input pointer, check nun expr 


1791 ** Nare: NUNCK - Check for a valid numeric expression 





Saturn fAsserbler 


Ver. 3.39/Rev. 2306 


1792 
1793 
1794 
1795 
1736 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
181? 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
182? 
1828 
1823 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
183? 


1838 
1839 
1840 
1841 
1842 


1843 
1844 


F7REO 
F7RE4 
F7RE? 
F7REA 
FRED 
F7AFO 
F7AF4 
F7AF? 
F7AFS 
F7AFC 
F7AFF 


F7B02 


7730 
118 
137 
135 
10B 
7COF 
873 
BO 
11B 
v5 
590 


870 


F7B05 40 
F7B07 03 


F7BO9 
F7BOB 


F7B11 
F7B14 


20 
8000 


14B 
8D0G 
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aA 
** Purpose: 
. Check for a valid nuteric expression. If not found, 
aR then exit to ERRORR 
ae 
*k Entry: 
a D1 points to the ASCII character string 
a DO points to the location where the tokens go 
a D(A] is the end of available tenory 
aa P=0 
a 
BR Eat: 
aK DO positioned past last token output by this routine 
iy 01 positioned past last character accepted 
kk P=0 
ss Carry clear 
kk Exits through ERRORR if error 
hk 
** Calls: RESPTR, EXPPAR 
xk 
AR USCS: a. ‘viens 
** Inclusive: A,B,C,D[15:5],RO,R1,R3,00,01,P,ST[11,7,3:0], 
wh FUNCDO, PRNCNT[0] 
ih 


JOTI IOI III IOI ICO OO IIT IOI OOK 
JOO IOI OO IO III II ROI 


=NUMNCK+ GOSUB RESPIR 
=NUNCK C=R3 Preserve upper part of R3 
CDIEX 
D1=C Save for case of string expression 
R3=C 
GOSUB Exppar Mainfrane jump to EXPPAR 
?S3T=1 0 NunExp Nuneric? 
GOYES NUNCK1 Yes...check 1f valid 
C=R3 No...restore D1 (string expr) 
D1=C 
GONC NUNCK2 Go aluays 
he 
k. 
NUNCK1 =?ST=1 InvalE Invalid expression? 
GOYES NUNCK2 Yes...error 
RTNCC No...valid nuneric expression 
he 
ke 
NUNCK2 P= =eILEXp Illegal expression 
GOLONG =ERRORR Don’t restore D1 (already set) 


x 


* More duplicates of mainfrane routines 
x 

=CATC++ A=DAT1 B 

=cATCH+ GOVLNG =CATCH+ 


FORO RO OOO OI TOI IIIS III IIIA IAI 
SOR RORIORR IOI JO IOI Ik 
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1845 
1846 
1847 
1848 
1849 
1850 
18514 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 


1876 
1877 
1878 
1879 
1880 
18381 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
189% 
1891 
1892 
1893 
1894 
1895 
1896 
189? 
1898 


F7B1B 1F0O 
000 
F7B22 143 
F?B25 131 
F7B28 03 
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ak 
&* Narie: RESPTR - Restore D1 from LEXPTR 
ak 
*% Category: LOCAL 
ae 
** Purpose: 
ak Restore the input pointer from LEXPTR 
kk 
** Entry: 
aR None 
aa 
a* Exit: 
xk D1 restored fron LEXPTR 
ax Carry clear 
kk 
ek Calls: None 
kk 
Kk Uses....... 
** Inclusive: A[A],D1 
kk 
kK Stk lvls: 0 
aa 
** History: 
ak 
ae Date Progranner Modification 
BAS Side ache De eee ee ea ena 
wk 41/28/83 NZ Added docunentation 
kk 


FOI III TTI TT TOTTI IT TTT TTT III TTI TIT IER 
FOCI IO OIG TOT TTT TTT TTT 


=RESPTR 01=(5) =LEXPTR 


A=DAT1 A 
D1=A 


FOO OO JO TOT TIT ITI SIT TI II TTDI RII TIT III 
OI RIOT TT TIT IDI III ITI III ITI DIK 
xk 


** Narie: BLANK - Skip blanks, return first non-blank char 
aK 

Xk Category:  PARUTL 

kK 

** Purpose: 

ak Skip blanks in the input strean 

kk 

ak Entry: 

Re D1 points to the input strean 

kK 

aX Exit: 

ak A[B] contains the next character 
ak D1 points to the character in A[B] 
kk 

** Calls: None 

aK 

*kK Uses....... 
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1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 


1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1962 


F7B2A 20 
F7B2C 3102 
F7B30 1C1 
F7B33 171 
F7B36 148 
F7B39 962 
F7B3C 7F 
F?B3E 01 


F7B40 8000 
000 
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** Inclusive: A[B],C(BJ],P,01 (D1 only if leading blanks) 
Jk 


xk Stk lvls: 0 
ak 

** History: 

ae 


ak Date Programmer Modification 
$47, portent: VCore ves . manatee suerte ees 


XX 11/28/83 NZ Updated docunentation 
aK 
J IOI II SIT II TOSI IIA SIO TIO STIS IIT II ITI I SOIT I SII ISO IIIA 
JI I II III IIIT IIIT I TIT II III IOI SIIIISISIISIISIGIIIIIA 
=BLANK P= 0 
LCASC \ \ 
D1=D1- 2 
Skip D1i=D1+ 2 
=SKIP = A=DRT1 B 


PA=C OB 
GOYES Skip 
RTN 

x. 

ke 


Ntoken GOVLNG =NTOKEN 


JO III OI IIIT ITO IIIT TI IIIT TOTO IT TIT OT IIO 
FOR III OTT TTT TOK 
xk 


xk Narie: ENABLp - Parse the ENABLE INTR statenent 
kk 

*X Category: STPARS 

ih 

** Purpose: 

ze Parse the ENABLE INTR statenent 

ik 

xk Entry: 

ne D1 points to the ASCII character string 

ae DO points to the location where the tokens go 
me D[A] is the end of available nenory 

Be P=0 

kk 

AR EAN 

ne DO positioned past last token output by this routine 
a“ D1 positioned past last character accepted 

a P=0 

= Exits through ERRORP if error 

as 

** Calls: WRDSCN, <REQSTp> 

xx 

BRUGES ois evsa 

** Inclusive: A,B,C,D[15:5],RO,R1,R2,00,D1,P,S1[11,7, 3:0], 
ts FUNC DO, PRICNT(0] 

hk 

** Stk lvls: 5 (<REQSTp>) 

as 


** History: 
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1953 ae 
1954 ak Date Prograriner Modification 
1955 BR nnn e enn een neem ee enn n nn none nn en nn nn nn enn n eens 
1956 cf 11/28/83 NZ Added docunentation 
7 
jeer SOO SOOO I IOI IO TOI TO 
1959 $3 IO IIIT I IIS II III IAS III ITI IIT III IIS S: 
1960 F7B47 7840 =ENABLp GOSUB urdscn 
1961 F7B4B 00 CON(2) =tXWORD 
1962 F7B4D 00 CON(2) =LEXPIL 
1963 F7B4F 00 CON(2) =tINTRR 
1964 F7B51 900 REL(3) ENBLp1 
1965 F7B54 00 CON(2) 00 
1966 F7B56 607A GOTO INITp1 Syntax error 
1967 a 
1968 a. 
1969 F7B5A 185 ENBLp1 DO=DO- 6 Don’t output the INTR token 
1970 
1971 : Fall into REQUEST parse (ENABLE and REQUEST riatch after INTR) 
oe $3 IOI GOI OIC IA 
1974 JUST I IOC TIT 
1975 ax 
1976 ** Nane: REQSTp - Parse the REQUEST statenent 
1977 ak 
1978 ** Category: STPARS 
1979 a 
1980 ** Purpose: 
1981 ak Parse the REQUEST statenent 
1982 ax 
1983 tk Entry: 
1984 os D1 points to the ASCII character string 
1985 a DO points to the location where the tokens go 
1986 ak D[A] is the end of available nenory 
1987 x P=0 
1988 aX 
1989 ex Exit: 
19% a DO positioned past last token output by this routine 
1991 xm D1 positioned past last character accepted 
1992 ak P=0 
1993 am Exits through ERRORP if error 
1994 
1995 tk Calls: LOOP#p, ST! NOp, <RESPTR> 
1996 RK 
1997 RP USGS x.0k4 dea 
1998 tk Inclusive: A,B,C,0{15:5],RO,R1,R2,00,01,P,S1[11,7,3:9], 
1999 ae FUNCDO, PRMCNT[O} 
2000 ak 
2001 *K Stk lvls: 6 (LOOPHp) 
2002 a 
2003 ** History: 
2004 ak 
2005 aX Date Progranner Modification 
2006 EXG co ses, ust oes pee Se et elo eee ee oe 


2007 aK 14/28/83 NZ Added docunentation 
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2008 aa 
9009 SIO III IOS ISIS ISI III I III SISOS IIIT IIIS SITS SIS SSI IIS IIIS ISI IAN 
2010 JOTI IDI OI I RT III III IIIT IIS IIIT III IIIS IIS III I IIIS IS: 
2011 % 
2012 * ENABLE parse falls into REQUEST parse 
2013 . 
2014 F7B5D 7BDB =REQSTp GOSUB LOOP#p 
2015 F7B61 84A ST=0 = =StrOK 
2016 F7B64 74(C GOSUB ST!NOp Check for a string or nunber 
2017 F7B68 460 GOC REQp10 Error if carry 
2018 F7B6B 6FAF GOTO RESPIR Restore pointer if OK 
2019 x. 
2020 x. 
2021 F7B6F 699F REQp10 GOTO  NUNCK2 
2022 JI I OI IOS III IIS III III II ISIS IIIS III IIT IS ISIS IS III ISIS II SIA 
2023 JO III II II OI TOSI TOS ITO IIIT IOS IIS IIIT II III SII I IAA 
2024 ax 
2025 ** Name: PASSp - Parse the PASS CONTROL statenent 
2026 x 
2027 ** Category: STPARS 
2028 - 
2029 ** Purpose: 
20H =e Parse the PASS CONTROL statenent 
2031 RK 
2032 ** Entry: 
2033 ‘ D1 points to the ASCII character string 
2034 =x D) points to the location where the tokens go 
2035 ae D[A] is the end of available nenory 
2036 sei P=0 
2037 ax 
2038 ae Exit: 
2039 x DO positioned past last token output by this routine 
2040 x D1 positioned past last character accepted 
2041 xx P=0 
2042 ax Exits through ERRORP if error 
2043 ae 
2044 ** Calls: WRDSCN, <DYCSPc> 
2045 x 
2046 RISES ccchi aus 
2047 ** Tncelusive: A,B,C,D[15:5],RO-R4,D0,01,P,ST[11:7, 3:0], 
2048 ae. FUNCDO, PRNCNT[O] 
2049 ae 
20450 ** Sth Ivis: 5 (<DVCSPc>) 
2054 ae 
2052 ** History: 
2053 a% 
2054 x Date Progranner Modification 
2055 aa a aaa aati atari 
2056 RF 11/28/83 NZ Added docurentation 
2057 #4 
2058 SOTO OOOO OOOO GIO OI ITI GIT III: 
2059 SOR RRR TITIES IOI IOI 
2060 F7B73 7010 =PRSSp GOSUB urdscn 
2061 F7B77 00 CON(2) =tXWORD 


e062 F7B739 00 CON(2) =LEXPIL 
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2063 F7B7B OO 

2064 F7B7D 900 

2065 F7B8 OO 

2066 F7B82 671A 

2067 

2068 

2069 F7B86 185 

2070 F7B89 384A 

2071 F7B8C 858 

2072 F7B8F 6D2E 

2073 

2074 

2075 F7B93 8000 
000 


2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
20893 
20% 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 F7B9A 75FF 
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CON(2) =tCNTRL 


REL(3) PRSp10 ADDRESS FOR MATCHING 
CON(2) OO 

PASpER GOTO MSGPAR Missing paraneter 

x. 

we 

PASp10 D00=D0- 6 Don’t need the tCNTRL 
ST=0 = =StarOK "k" is not OK here 
ST=1 = =OptDev Device spec 1s optional 
GOTO DVCSPc 

x 

ke 


urdscn GOVLNG =WRDSCN 


FORO JOU IIIT IT TITS TIT ITI I IID RII TT II 
FOI IOI TTT TI TR TIT IIT 
xx 


** Nane: CNIRLp - Parse the CONTROL ON/OFF staterient 
** Nane: RESTp - Parse the RESTORE I0 statenent 

xk 

** Category:  STPARS 

xk 

** Purpose: 

as Parse the CONTROL ON/OFF or RESTORE I0 statenent 
x 

** Entry: 

a D1 points to the ASCII character string 

aA DO points to the location where the tokens go 

ke D[A] is the end of available nenory 

 k P=0 

ki 

¥X Exits 

a DO positioned past last token output by this routine 
ax D1 positioned past last character accepted 

xx P=0 

ak If no error, carry clear 

ax Exits through ERRORP if error 

kk 

** Calls: WRDSCN, EOLCK ,NUNCK+, <RESPTR> 

ka 

RX USCS cee cces 

** Inclusive: A,B,C,0[15:5],RO-R2,R3(A},00,01,P,ST[11,7,3:0], 
- FUNCDO , PRACNT([O] 

is 

** Stk lvls: 5 (NUNCK+) 

kk 

** History: 

kh 

xk Date Progranner Modification 

BEY Setter soawee ecw  . Sele ena ee cai dee ra ak, 
*X 11/28/83 NZ Added docunentation 

kx 


FOI UOT TOTO TOTO TOTTI 
FOR UII TO OO TO 


=CNTRLp GOSUB wrdscn 
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2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 


2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2182 
2153 
2154 
2165 
2156 
215? 
2158 
2153 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
<170 


F7BSE 
F?BAO 
F7BA3 
F7BA5 
F?BA8 
F?BAA 


F7BRE 


F7BB2 


F7BB9 
F?BBC 
F7BCO 


F?BC4 
F7BC8 


00 
210 
11 
Doo 
0 
67DF 


79AR 


8FOO 


460 
702F 
6ASF 


3100 
62FE 
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RESTp 
Check 


* ee He 


CNTROL 


Resptr 
x. 

x 
OUT: 


CON(2) =tON 
REL(3) CNTROL 
CON(2) =tOFF 
REL(3) CNTROL 
CON(2) 00 
GOTO  PASpER 


GOSUB 0p 


for optional nuneric 


GOSBVL =EOLCK 


COC 
GOSUB 
GOTO 


Resptr 
NUNCK+ 
RESPTR 


LC (2) 


GOTO  OUTBYT 


=tCOLON 
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CONTROL ON 
CONTROL OFF 


"Missing Paraneter" 


First parse "IO" 
expression 
See if reached end-of-statenent 


Yes...done 
Must be a nuneric expr 


FOI RII OOOO OT OOOO OTT II 
JOO ICI IOI OOOO ITI TO OTK 


aK 


** Nane 
at 


** Category: 


ak 


: CONWUC - Convert A[W] to upper case 


PILUTL 


xk Purpose: 
Convert A[W] to upper case 


Kx 
aR 


** Entry: 


tok 
ok 
tk 
RR ERIT 
na 
tk 
tok 
we 


** Calls: 


ax 
tk Uses 


** Inclusive: ALW],C(W] 


xx 


we 


ax 


ae Date 


AX Stk lvls: 


P=Q 


D1 points at the letters and digits to convert 


A[W) in upper case 


Carry clear 


** History: 


XK 09/07/83 NZ 


ae 


** 09/06/83 NZ 
A 01/03/83 NZ 


<CNVWUC> 


1 <CNVWUC> 


Progranner 


Modification 
Changed entry to read data at D1 
first, then convert to upper case 
Changed to goto nainfrane routine 
Updated docunentatian 
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2171 ak 
2172 JOO IO CII IOI RE 
2173 JOGOS OIG IOI TTR 
2174 F7BCC 8D00 =CONNUC GOVLNG =CNVWUC Convert to upper case (nainf rane) 


000 
2175 F7BD3 END 
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7A=CN+ Ext - 223 802 

=ASGNp = =Abs 1013404 #F769C - 655 
ASGNp1 Abs 1013436 #F76BC - 669 664 


ASGNp2 Abs 1013444 #F76C4 - 673 660 
=BLANK Abs 1014570 HF7B2R - 1911 453 822 838 926 1063 1139 1613 


1590 
=CATC++ Abs 1014545 #F7B11 - 1841 1593 1602 
CRTCH+ Ext - 1842 


CKNUN =Abs 1014375 HF7A67 - 1656 230 239 351 4 
CKNUN+ Abs 1014359 #F7A57 - 1650 1328 1338 1361 1375 1656 
CKNUN- Abs 1014379 HF7A6B - 1658 1329 1339 1362 1376 
CKNUM1 Abs 1014393 #F7A79 - 1665 1659 

CKNUN2 Abs 1014400 HF7A80 - 1670 1662 1666 

=(KSTR Abs 1014404 #F7A84 - 1712 659 1228 1508 

=CLERRp Abs 1013278 #F761E - 409 

=CNTRLp Abs 1014682 #F7B9A - 2116 

CNTROL Abs 1014706 #F7BB2 - 2129 2118 2120 


CNVWUC Ext - 2174 
=CONWUC Abs 1014732 HF7BCC - 2174 201 454 828 
CSLO5 Ext - 1754 
CSRCS Ext - 1763 
=DEVSPp Abs 1013938 #F78B2 - 1291 
DISPP Ext - 118 


DVCPOS Abs 1014240 HF79E0 - 1507 1494 
DVCP10 Abs 1014255 HF79EF - 1513 1509 
DVCP30 Abs 1014280 HF7AO8 - 1524 1519 
DVCP35 Abs 1014284 HF7AOC - 1525 1539 
DVCP40 Abs 1014300 HF7AIC - 1534 1516 
DVCP65 Abs 1014296 HF7A18 - 1531 1525 
DVCP70 Abs 1014308 HF7AZ4 - 1542 1527 
=DVEPn* Abs 1014192 HF79B0 - 1486 116 124 
=DVCPy* Abs 1014199 HF79B7 - 1490 73 
DVCSPc Abs 1014205 HF79BD - 1493 414 2072 
=DVCSPp Abs 1014202 HF79BR - 1491 1487 
DVCSPr Abs 1014224 #F79D0 - 1500 1496 
=DVLBp Abs 1013901 HF788D - 1261 1538 
=DVSPp Abs 1013941 HF78B5 - 1292 1524 
=Digit Abs 1 #00001 - «18-1595 
=ENABLp Abs 1014599 HF7B47 - 1960 

ENBLp1 Abs 1014618 HF7BSA - 1969 1964 
=ENTERp Abs 1013021 #F751D - 124 

ENTRIO Abs 1013042 #F7532 - 129 127 


EOLCK Ext - 1493 2129 

ERROR! Ext Heke 

ERRORP Ext - 670 

ERRORR Ext = 1837 

EXPPAR Ext - 1653 

=EolOK Abs 3 #00003 - 29 = 823.1031 1048 


Error! Abs 1013135 #F758F - 212 1531 

Errorp Abs 1013438 #F76BE - 670 161 218 241 245 
Errorx Abs 1013354 #F766AR - 561 458 610 

Exppar Rbs 1014368 #F7A60 - 1653 1117 1713 1823 
=Expr0k Abs 8 #00008 - 28 = =—785 «1032 1035 
=FILSPp Abs 1013858 #F7862 - 1233 1229 

=FILSp Abs 1013847 #F7857 - 1228 210 
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FILSp! 
FILSp0 
FILSp1 
FILSp2 
FILSp3 
FItSp4 
FILSp5 
FILSp6 
FILSp8 
FILSp9 
FILSpx 
FILSpn 
FILSpx 
FILsp8 
FRANEE 
FRASP1 
FRASP2 
FRASP3 
FRASPn 
=FRASPp 
FRASPx 
FRASPy 
INITP. 
INITPO 
INITP2 
INITPE 
=INITPR 
=INITp 
INITp1 
=I0p 

10p10 
TOp20 
=Inval€ 
LEXPIL 
LEXPTR 
=LOCALp 
LOCLp1 
LOOPH 1 
LOOPH2 
=LOOPHp 
Loopp 
MSGPAR 
=NANEp 
NANEp1 
=NANEpb 
NTOKEN 
=NUMNCK 
=NUNCK+ 
NUNCK1 
NUNCK2 
Ntoken 


=NunExp 
=OFFIOp 
=ONINTp 


Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Abs 
Rbs 
Abs 
Abs 
Rbs 


Abs 
Abs 
Abs 


1014040 #F7918 
1013935 #F78AF 
1013979 #F78DB 
1014003 HF78F3 
1014044 #F7391C 
1014076 #F793C 
1014103 #F7957 
1014135 #F7977 
1014180 #F79A4 
1014184 #F79R8 
1014174 #F799E 
1013931 #F78RB 
1013975 #F78D7 
1014072 #F7938 


1013635 #F7783 
1013663 #F779F 
1013793 #F7821 
1013778 #F7812 
1013609 #F7769 
1013740 #F77EC 
1013775 #F780F 
1013141 #F7595 
1013152 #F75AR0 
1013156 #F75A4 
1013187 #F75C3 
1013176 #F75B8 
1013105 #F7571 
1013191 #F75C7 
1013339 #F765B 
1013363 #F7673 
1013366 #F7676 

0 #00000 


1013225 #F75E9 
1013274 #F761A 
1013601 #F7761 
1013605 #F7765 
1013564 &F773C 
1013249 #F7601 
1013146 #F759A 
1014317 #F7A2D 
1014337 #F7A41 
1014313 #F7A29 


1014500 #F7AE4 
1014496 #F?AEO 
1014530 #F7BO2 
1014537 #F7B03 
1014592 #F7B40 


3 #00003 
1013320 #F7648 
1013368 #F7678 


Table 


1343 
1287 
1314 
1331 
1383 
1367 
1392 
1405 
142? 
1428 
1422 
1284 
1311 
1364 
1012 
987 
999 
1056 
1050 
975 
1036 
1049 
215 
221 
222 
241 
232 
201 
244 
555 
565 
566 
1? 
340 
1875 
332 
362 
921 
326 
900 
350 
217 
1591 
1598 
1590 
1921 
1819 
1818 
1831 
1836 
1921 
1343 
20 
501 
604 


1273 
1254 
1296 
1419 
1333 
1320 
1384 
1377 
1290 
138 
1284 
1247 
1H2 
1355 


993 
1002 
1013 
1047 

777 
1034 
1039 

211 

216 

240 

231 

224 


206 
655 
559 
505 
1118 
503 


345 
905 
918 
284 
463 
1497 
1273 
1603 
1242 


2131 
1825 
1828 

69 
1418 
1120 


1335 


1385 


1364 
1311 


1257 
1330 


842 


353 
1628 
2125 


1665 
557 


913 
767 


2066 
1411 


1832 
143 


1658 
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1401 


1363 
1274 
1340 


1966 


1831 
606 


2014 


2021 
221 


1714 


Tue Jan 17, 1984 


1412 
1347 


1417 


1962 2062 


333 
1824 


614 


661 


12:18 pn 
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ONINp1 Abs 1013387 #F768B - 613 608 
ONP40 Ext - 616 
QUTITK Ext - 1773 
OUT2TC Ext - 1776 
=QUT3TC Abs 1014476 HF7ACC - 1779 
OUT3TK Ext - 1780 


OUT: Abs 1014724 #F7BC4 - 2135 665 834 977 1292 1337 

=QUTBYT Abs 1014459 HF7ABB - 1772 130 156 359 666 %3 1116 1236 
1307 1360 1408 1503 2136 

=QUTNBC Abs 1014486 HF7AD6 - 1783 

OUTNBS Ext - 1784 

=OUTPp Abs 1013006 HF750E - 116 

OUTpCK Abs 1013063 #F7547 - 143 117 125 

=OptDev Abs 8 #00008 - 30 «412 «1491 1495 2071 

=PACKp Abs 1014192 #F79B0 - 1485 

=PASSp Abs 1014643 #F7B73 - 2060 

PASp10 Abs 1014662 #F7B86 - 2069 2064 

PASpER Abs 1014658 HF7B82 - 2066 2122 

PRNTIPE Abs 1013099 #F756B - 160 72 

=PRNTSp Abs 1012989 #F74FD - 69 

READPS Ext = 133 

=REMOTp Abs 1013278 HF761E - 410 

=REQSTp Abs 1014621 #F7B5D - 2014 

REQp10 Abs 1014639 #F7BOF - 2021 2017 

=RESETp Abs 1013288 #F7628 - 453 

=RESPTR Abs 1014555 #F7B1B - 1875 157 232 291 362 510 673 821 
1373 1392 1427 1500 1507 1510 1818 2018 
2132 

REST* Ext - 562 

=RESTp Abs 1014702 #F7BAE - 2125 

=RSDOD1 Abs 1014442 HF7RAR - 1761 3654 925 1138 1405 1715 

=RTNCC Abs 1014190 HF79RE - 1434 287 289 

Resptr Abs 1014720 #F7BCO - 2132 2130 

SENDP1 Abs 1013452 HF76CC - 777 778 843 

SENDP2 Abs 1013471 HF76DF - 802 808 

SENDP3 Abs 1013499 HF76FB - 821 803 

SENDP4 Abs 1013552 HF7730 - 842 824 832 

SENDPS Abs 1013559 #F7737 - 849 786 798 818 

SEND1p Abs 1013485 4#F76ED - 814 817 

=SENDp Abs 1013448 #F76C8 - 762 

=SKIP Abs 1014582 #F7B36 - 1915 

ST'ND1 Abs 1013835 #F784B - 1127 1121 

STING2 Abs 1013837 HF784D - 1134 1119 1126 

=ST'NOp Abs 1013804 #F782C - 1110 797 807 2016 

=STRNDp Abs 1013197 #F75CD - 284 

=STANp+ Abs 1013180 HF75BC - 238 292 

=SVDOD1 Abs 1014419 #F7A93 - 1752 360 80 1114 1374 1712 

Ship Abs 1014579 HF7B33 - 1914 1917 

=SpChar Abs 2 #00002 - 19 


=StarOK Abs 10 #OOOOR - 26 27) 413) 1291 1301 1486 149% 2070 
=Str0K Abs 10 #OOOOR - 2? 849. 1030 «1049 1125 «2015 

=TRIGp Abs 1013278 HF761E - 411 

USINGp Ext - 126 

Ucrang Ext a. BPG - “°892 


WROSCN Ext = 2075 
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=XWORDp 
=XWRD1p 
=cATCH+ 
chkOK 
eILEXp 
eILPAr 
eMSPAr 
eSYNTx 
=oUT1 TK 
sqUT2TC 
souT3TK 
=oUTNBS 


+CONNA 
tINTRR 
tI0 
tIS 
tLITRL 
tLOCKO 
tOFF 
tON 
tSENIC 
tUSING 
tXWORD 
wrdscn 


Abs 1014190 #F79RE 
Abs 1013169 #F7581 
Abs 1014548 #F7B14 
Abs 1013087 #F755F 
Ext 
Ext 
Ext 
Ext 
Abs 1014462 #F7ABE 
Abs 1014469 #F7ACS 
Abs 1014479 #F7ACF 
Abs 1014489 #F7AD9 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Abs 1014675 #F7B93 


Table 


1433 
229 
1842 
155 
1670 
669 
217 
- 160 
mo “VTS 
- 1776 
- 1780 
- 1784 
- 1318 
- 662 
- 155 
- 2063 
- 1266 
- 358 
- 504 
- 558 
- 70 
- 1235 
- 341 
288 
286 
129 
144 
339 
2075 


' t ' t ' ' 


1394 
146 
1836 
1H0 
1345 
244 
225 
1270 
349 
837 


1294 
2135 
1115 

607 
1407 
2119 
2117 

147 


502 
285 


149 


917 


1082 


1502 
1363 


902 


556 
501 
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1324 1600 


911 1267 1359 


605 1961 2061 
5595 604 1960 2060 2116 
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Input Paraneters 
Source file nane 1s NZ&PAR::MS 
Listing file nare is NZ2/PAR: TI:ML::-1 
Object file nane is NZZPAR:TI:MS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Asserbler Neus 
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WOnnnbwn— 


12 F7BD3 


53 F7BD3 
54 F7BD3 3594 
3502 


ee He ee ee Oe Oe Oe 


am 
wx 
am 
ax 
ax 
xx 
Kx 
aa 
xk 
x 
xx 
xx 
ax 
aa 
wx 
ak 
xx 
aK 
a 
ak 
ak 
a 
ax 
aK 
xx 
ak 
ak 
ax 
wa 
x 
xx 
ak 
xx 
ak 
xx 
at 
ak 
ak 
x 
xx 


=P 
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N N 222272 & DDDD =6CEEEEE§=6 CEE 
N ON zZ 88 DOE C OC 
NN ON Z &8& DOE C 
NNN Z & DD EEEE C 
N NN Z &&& DOE c 
N N Z & & DODE Bb 
N N 22222 8& & DDOD EEEEE CCC 


TITLE PIL DECOMPILE ROUTINES<831027.1220> 


ABS #F7BD3 TIZHP6 address (fixed) 
SII I IO OI OT OT IIT TT TIT TTT TIA T ITT 


JOR IIIT OI I TOIT OT I ITT TOT TIT IK 


Nane: PRNTSD - PRINTER IS deconpile routine 
Nane: PACKd - PACK decompile (device spec, OUTELA) 


Category: STDCNMP 


Purpose: 
Deconpile the PRINTER IS/PACK statenents 


Entry: 
D1 points to tokenized device spec 
DO points to output buffer 
D[A] 1s end of available nenory, P=0 


Exit: 
Exits through OUTELA 
Carry clear, P=0 


Calls: OUT3TC, ?A=CLN, PILDC, ?A=CMA, OUTCMA, EXPROC 


Exclusive: A, C 
Inclusive: A,B,C,RO,R1,R2,00,01,P,ST[0, 3,8,10,11] 


Stk lvls: 6 (PILDC) 


Detail: 
Decoripiles 1 or nore device specs (separated by 
coririas ) 


History: 


Date Progranner Nodification 


12/22/82 N2 Updated docunentatian 


FORO IOI ROI ITO UI FOI GIG OO IOI IO 
FORO ROO I IOI III IOI III CII ISI Ir 


RNTSd 
LCASC =\ SI\ “as 
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55 F7BDB 7000 GOSUB =OUT3IC Output 3 tokens! 
56 * 
57 * Device deconpile 
58 & 
59 F7BDF 148 =PACKd A=DAT1 B Read in the token (OUT3IC kills) 
60 F7BE2 7003 GOSUB ?R=CLN Is this a colon? 
61 F7BE6 571 GONC PACKDE No...string expression 
62 K 
63 * D1 points to tCOLON of a device specifier 
64 % 
65 F7BE9 7BB1 GOSUB PILDC Deconpile the device specifier 
66 F7BED 77E2 GOSUB ?A=CMA Is there a conna? 
67 F7BF1 501 GONC  PACKDI No...exit 
68 F7BF4 171 D1=D1+ 2 Yes...skip it, 
69 F7BF? 7ED1 GOSUB Outcna output it, continue 
70 F7BFB 53E GONC = PACKd Go aluays! 
71 x. 
72 k. 
73 F7BFE 7F62 PACKD6 GOSUB Exprdc String expression specifier 
74 F7CO2 6850 PACKD9 GOTO Outela Output End-Of-Line 
75 JUICE OC OCCT CIR TI TIN 
76 JU OI TO IOI ICICI OCT OTITIS IIS IIIT II IIIS 
77 aa 
78 xk Narie: QUTPd - OUTPUT decompile routine 
79 xk 
80 *k Category:  STDCMP 
84 kk 
82 ** Purpose: 
83 es Deconpile the OUTPUT staterient 
84 xk 
85 AX Entry: 
86 a DO points to the output buffer 
87 ak D1 points to the input buffer (tokens) 
88 ak D[A] is the end of available nenory 
89 ae P=0 
90 kk 
91 RR Exits 
92 = DO at next position in output buffer 
93 a Di at next character in input buffer 
94 wk P=0 
95 ae 
96 ** Calls: 7A=CLN, PILDC, 7A=CNA, OUTCNA, OUTBLK, EXPROC 
97 ak 
98 AA USES pesca 
99 xx Exclusive: A, C, 01 
100 ** Inclusive: A,B,C,RO,R1,R2,00,01,P,ST(0,3,8, 10,11] 
101 ak 
102 *k Stk lvls: 6 (PILOC) 
103 ak 
104 ** History: 
105 oe 
106 a Date Progranner Modification 
10? RK wees “skbeiiebete, 86° Bete eee Peele 
108 KK 12/22/82 NZ Updated docunentation 


109 ae 
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110 
111 
112 
113 
114 
{15 
116 
17 
118 
119 
120 
121 
122 
123 
124 
Seo 
126 
12? 
128 
129 
130 


131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
160 
161 
152 
162 
164 
155 
156 
157 
168 
159 
160 
161 
162 
163 


F7(O06 
F7(06 
F7COR 
F7COD 
F7C11 
F7C14 
F7C15 
F7C18 
F7C1B 
F7C1D 
F?C21 


F7C24 
F7028 
F7C2B 


F?C32 
F7C36 


7CD2 
572 
7791 


732 
171 
366 
36 
7881 
5BE 


79A1 
148 
8D00 
000 


7B32 
6ADF 
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JI III OS III IORI III II IO III IIIT III II III IIIT SSSI SII SIS SIS I ITAL 
III II III III III I III III III II ISI IIIS IIIIISTIS ISI OSI ITI SIS ISI SIS 
=QUTPd 
GOSUB ?A=CLN 
GONC OQUTPd4 Not COLON: must be string expr 
GUTPd1 GOSUB PILOC Deconpile the device spec 
OUTPd2 
GOSUB ?A=CMA A=DAT1 B; LC(2) =tCONNA 
D1=D1+ 2 Skip this token (tCOMMA or t@) 
PARC OB Match? 
GOYES QUTPd3 No...go to DISPDC 
GOSUB OQutcna Yes...output the conna, loop back 
GONC § QUTPd1 Go always 
k. 
Ke 
x 
* Now have a non-conna token...nust be the t@ I added 
x 
QUTPd3 GOSUB Qutblk Output a trailing blank 
A=DAT1 B Read the next char for DISPOC 
GOVLNG =DISPOC Continue at DISP decornpile 
ke 
xe 
QUTPd4 GOSUB Exprdc Qutput the expression 


ak 
xk 
ax 
ax 
xk 
ak 
aK 
ak 
ak 
ak 
xx 
ak 
ak 
xk 
ax 
xk 
aK 
ak 
aK 
aK 
xk 
aK 
aK 
ae 
at 
xk 
ak 
aK 
ae 


GOTO OQUTPd2 (Token is t@...never conna) 
JOIST AT I II IIIT IIIT IIS STITT IIIA STI TK 


FOI OT TOTO TOIT TOTO 


Narie: INITd - Deconpile INITIALIZE statenent 
Category:  STOCMP 


Purpose: 
Deconpile the INITIALIZE statenent 


Entry: 
DO points to the output buffer 
D1 points to the input buffer 
D[A] is the end of available nenory 
P=0 
A[B]=data pointed to by D1 


Exit: 
DO,D1 positioned after the INITIALIZE statement 
P=0 
Calls: QUTNBC, FILDC*, 7A=CNA, OUTCMA, EXPRDC 
Exclusive: A, C, D1,P 
Inclusive: A,B,C,RO,R1,R2,00,D1,P,ST[0,3,8,10,11] 


Stk lvls: 6 (FILDC*) 
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164 

165 

166 

167 

168 

169 

170 

1714 

172 F7C3R 

173 F7C3A 3794 
A554 
02 

174 

175 

176 

177 F?044 2? 

178 F7C46 181 

179 F749 7000 

180 F7C4D 8FO0 
000 

181 F7054 

182 F7C54 7082 

183 F?C58 4CO 

184 F7C5B 

185 F7C5B 148 

186 F7CSE 8D00 
000 

187 

188 

189 

1% 

191 

192 F7C65 171 

193 F7C68 7061 

194 

195 

196 

197 F7Céc 

198 F7cec 7102 

199 F7C70 63EF 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

219 

211 

212 

213 

214 
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** History: 
ae 


7 Date Prograriner Modification 

Bh ets “oe “ee uk ee ee ae 
Kk 42/22/82 NZ Updated docurentation 

kh 


FORO TOE TTT TST TO TTT TO IIIT 
FOI TOOT TOIT TTT TION 
=INITd 


LCASC \ E2I\ "IZE " OF INITIAL IZE 


k 
* Back up the output pointer ("INITIAL " is out already) 
k 


P= 7 Output 8 nibbles (IZE ) 
DO=D0- 2 Back up over the blank... 
GOSUB =QUTNBC Output P+1 nibbles 
GOSBVL =FILDC* Output the file specifier 
INITDO 
GOSUB ?A=CNA Is there a tCOMNA? 
GOC INITD3 Yes...deconpile the expression 
Outela 
=XWORDd A=DAT1 B (Could change to GOVLNG =OQUTEL1) 
GOVLNG =QUTELA Output end of line 
ke 
ke 


k 
* Found an optional paraneter expression 
x 


INITO3 01=D1+ 2 
GOSUB Outcna 


Skip the conna token 
OUTPUT CONNA 
x 


* Entry for <XWORD> <Expression> [, <Expression> ]* 
k 


=STANd+ 
=INITD2 GOSUB Exprdc Deconpile the expression 


GOTO INITDO Check 1f nore follous 
JORIS I IOI On 


FOTO IO IOI IR TIT TT TTT TTT TRI 


ak 

** Narie: STANDd - STANDBY decompile 
kk 

xk Category: STDCNP 

ak 

xX Purpose: 

ms Deconpile the STANDBY statenent 

aa 

xk Entry: 

aK D1 points to the tokenized statenent 
* DO points to the output buffer 

xx D[A] is the end of available nenory 
kx P=0 
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215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
rae 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 


F7074 77C0 
F778 3100 
F7C7C 962 
F?C7F BO 
F7C81 3100 
F7C85 966 
F7C88 4€ 
F7C8A 6712 
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xk 


AS ER ite 
aK DO, D1 updated past statenent contents 
xe P=0 
aK 
a Calls: LOOPHd, <INITO2> 
x 
BR USES... ce 
*k Inclusive: A,B,C,RO,R1,R2,00,01,P,ST[0, 3,8, 10,11] 


xx 


kk Stk lvls: 5 (EXPRDC) 
aK 

** History: 
ak 


BE Date Progranner Modification 
Pi Gee eee ah duane eee ene ee aes 


kk 02/25/83 NZ Added docunentation 

ak 

JID TIO TOI TOTO ITI IIIT ITO TTR 
JO III I ITI OTIS TIT II I II OTITOK 


=STANDd GOSUB LOOP#d Decorpile optional loop # 

LC(2) =tON 

A=C OB Is this STANDBY ON? 

GOYES STANd) Yes...output text 

LC(2) =tOFF 

PAHC OB Is this STANDBY OFF? 

GOYES STANd+ No...must be expression 
arene) GOTO CNTRLd Decoripile shared with CONTROL 
FOR ITI I I III IT TATA I IIIT ILI T IOI ISI III ISI SII ISIS IIS IIIA A 


FOI IOI TOT TIT TT TITTIES SIT 
xk 


** Narie: LOCALd - Decompile LOCAL statenent 
kk 

** Category: STDCMP 

kk 

** Purpose: 

kk Deconpile LOCAL [ LOCKOUT ] statenent 

xk 

AX Entry: 

=e DO points to the output buffer 

ae D1 points to the input buffer 

kn D[A] 1s the end of available nenory 

ak P=0 

ah 

AX Exit: 

aA 00,D1 positioned after the LOCAL statenent 
xx P=0 

kk 

*k Calls: GTEXT+, ?A=CMA, OUTBLK, EXPRDC 

aa 

ER SOG ola cs 


** Inclusive: A,B,C,RO,R1,R2,D0,D1,P,ST[0,3,8,9,10,11] 


xh 


A Sth lvls: 5 (CEXPRDC) 


ak 
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270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
2381 
282 
283 
284 
285 
286 
287 
288 
289 
2% 
291 
292 
293 
294 
295 
296 


297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 


F?7C8E 1585 
F7C92 AF6 


F7C95 35 
F7C97 00 
F7C99 00 
F7C9B 00 


F7C9D 976 
F7CRO 72 


F7CA2 849 
F7CAS 8F0O 
000 
F7CAC 7822 
F7CBO 171 
F?CB3 962 
F7CB6 DO 
F?CB8 1C1 
F7CBB 7211 
F7CBF 7EA1 
F7CC3 679F 
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**k History: 
Rk 


ae Date Prograrinmer Modification 

Wh >- Gees: - Seeks eee: ee aiei aod eee ee eek ees 
tk 10/26/83 NZ Updated docunentation 

ak 02/01/83 JH Added Routine 

tk 


TORII 
SOI TOI RTO OTT TO OTE 


=LOCALd A=DAT1 6 
C=A W Set high nibs for compare 
x 
* Following lines are REALLY... 
* ic6) (=tLOCKO)~ (=LEXPIL)~ ( tXWORD) 
SI 
NIBHEX 35 LC(6).... 
CON(2) =tXWORD tXHORD™... 
CON(2) =LEXPIL LEXPIL™. 
CON(2) =tLOCKO tLOCKO. 
KKAKKK 
RHC OU Is this LOCAL LOCKOUT? 
GOYES CLEARd No...jJust a device specifier 


t 
: LOCAL LOCKOUT... 


ST=0 9 No trailing blank 

GOSBVL =GTEXT+ 
Loopd GOSUB ?A=CMA A=DAT1 B;LC(2) =tCONNA 

Di=D1+ 2 

*R=C OB Loop specifier? 

GOYES LOCLd1 No...done 

D1=D1- 2 Yes...skip the tCOMMA 

GOSUB Outblk Output the blank 

GOSUB  Exprdc Deconpile the loop expression 
LOCLd1 GOTO Qutela Output end of line 


JOJO JOJO III TOT TT 
SOO IOI JJ RIOR IO OT TTT TT ITI IIT TIT IN 
ak 


** Wane: CLEARd, TRIGd, REMOTd - Device spec decompile 
ik 

*X Category: STDCNP 

ak 

** Purpose: 

ee Deconpile CLEAR, TRIGGER and REMOTE statenents 

re 

tk Entry: 

2 DO points to the output buffer 

$x D1 points to the input buffer 

aK D[A} is the end of available nenory 

kx P=0 

tok 

Ax Exit: 

ax DO, D1 positioned after the CLEAR, LOCAL or REMOTE stnt 
te P=0 
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324 
325 
326 
327 
328 
329 
3H 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
305 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
36? 
368 
369 
370 
371 
372 

73 
374 
375 
376 
377 
378 


F?CC? 
F?CC7 
F?CC? 
F?CC? 702 
F7CCB 5% 
F?7CCE 1714 
F7CD1 698F 


F?CD5 


F7CD5 690F 
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ak 


tk Calls: ?R=CNA, <PACKd> 

x 

tk Uses. ...... 

*K Inclusive: A,B,C, RO,R1,R2,00,01,P,ST[0, 3,8, 10, 11] 
bk 


** Stk lvls: 6 (PILDC) 


ts 
** History: 

ik 

ax Date Prograriner Modification 

Oi Btcreee etencee | | ieee eee i eae oe eee 
tk 10/26/83 NZ Updated docunentation 

*k 02/01/83 JH Added optional device capability 
ae 


FOTO IIT OT TO IK 
SOOO JOO OO TT TIO FI 


=RENOTd 

=TRIGd 

=CLEARd 
GOSUB ?A=CNA Check for tCONNA 
GONC CLRDIO Not found...decoripile device spec 
Di=D1+ 2 Found tCONMA...skip it (EOL) 

; GOTO 8 Qutela Output end of line 

ke 

CLRDIO 

x 


* Nou have a <Device spec> 
x 


GOTO PACKd 
JOO III III ITO OI TT OTITTII O IIO 
JO UII III IOI OTT TCT TTT TOTO TTT 
ax 


** Narie: OFFIOd - OFF IO and OFF INTR deconpile 

** Nane: RESTd - RESTORE I0 deconpile 

tok 

** Category: STDCHP 

ae 

xk Purpose: 

aK Deconpile the "IO" part of OFF IO and RESTORE I0 
aX Deconpile the "INTR" part of OFF INTR 

ie Deconpile the "I0 " <expr> of RESTORE I0 [<nun expr>] 
ik 

ax Entry: 

s DO points to the output buffer 

as 01 points to the input buffer (tokenized line) 
a A[B]=next input token 

aA D[A] 1s then end of available nenory 

aX P=0 

a 

tx ERY: 

Exits through OUTELR 

= DO points to the output buffer 


a D1 points to the input buffer 


Saturn Assenbler 


Ver. 3.39/Rev. 2306 


373 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
46 
407 
408 
409 
410 
ai 
412 


413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 


F?CD9 
F7CDD 
F7CEO 


F?CE2 
F?CES 
F7CE9 


F7CEC 
F7CEC 
F?CFO 
F7CF4 


FOCFA 


F?CFE 
F7D02 


3100 
966 
CO 


175 
7001 
560 


7400 
6AGF 


3394 
Fa 
6000 


7BCO 
66A1 


PIL DECOMPILE ROUTINES<831027. Tue Jan 17, 1984 12:02 pn 
Page 8 


kx 


** Calls: OtINTR, 10d, I0dspc 
kk 

AK Uses....... 

kk Exclusive:  C 

xk Inclusive: A,C,D0,D1,P 

ka 


** Stk lvls: 3 (IOdspc) 
kk 


** History: 
aa 


xk Date Progranner Modification 
RY woetotes ie, sao ee ee eee 


KR 12/22/82 NZ Updated docunentation 

ak 

JOGO II OCI TOTO TI OST I SSIS OI II TI TIS STE 
JOISTS IOS ISIS OTTO ISOS OIS OCIS I ASST TAT TAT 


=OFFIOd LC(2) =tKWORD 
TAHC OB 
GOYES OF IOd1 


* This is OFF INTR 
k 


01=01+ 6 Step over the tINTR 
GOSUB OtINTR Output the INTR 
GONC OF IOd2 Go always 

k. 

x. 

OF 101 
GOSUB I0d Deconpile “I0" 

OF 10d2 GOTO Qutela Exit 

a 


T0d LCASC \OI\ 


Out2tc GOTO =oUT2TC Output 2 tokens fron C 
x 
* Output "I0 ", decompile an expression 
* 
=RESTd GOSUB IOdspc Decorpile "IO " 
GOTO = CNTRLY Finish up with expression 


FOO III TO OI OOO TIO IT ITI ITT 
FORO UJI IO TITS IOI ITI IO 
ax 


** Nane: ASGNd - ASSIGN 10 deconpile 

&k 

** Category: STOCMP 

aK 

xx Purpose: 

“* Decorpile the ASSIGN I0 statenent 

kk 

xx Entry: 

an DO points to the output buffer 

al D1 points to the input buffer (tokenized staterent) 


2 D[A] is the end of available nenory 
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433 ax P=0 
434 ax 
435 ax Exit: 
436 ax Exits through PACKd 
437 ax 
438 xx Calls: IOdspce , <PACKd> 
439 ak 
440 AX USES. ce sees 
441 ** Inclusive: A,B,C,RO,R1,R2,00,01,P,ST[O, 3,8, 10,11] 
442 wx 
443 ** Stk lvls: 5 <PACKd> 
444 KK 
445 ** History: 
446 xk 
447 Kx Date Progranner Modification 
448 RAS neta”. “hietoe aati “secede ee ek cee 
449 - 12/22/82 NZ Updated docunentation 
* 
via JIA IOC ISI TOTS ISI GUO TTT TT 
452 JISC ILI OUI TOC TTI CCC IT IK 
453 F7D06 =ASGNd 
454 F7D06 73C0 GOSUB IOQdspe Deconpile "I0 " 
455 F7DOA 64DE GOTO 3 PACKd Device Deconpile! 
456 JIGS IIS IO IIIS GG OO OO ITE IIR TR 
457 JIC II SII III ICICI OI IO III IK 
458 ae 
459 ** Nane: RESETd - RESET HPIL deconpile 
460 ae 
461 ** Category:  STDCNP 
462 AX 
463 ** Purpose: 
464 ae Decoripile the RESET HPIL statenent 
465 aK 
466 ** Entry: 
467 ne D1 points past the RESET token 
468 ae DO) points to the output buffer 
469 wh D[A} is the end of available rieriory 
470 a P=0 
471 xs 
472 KX Exit: 
473 x Qutput buffer has "RESET HPIL" 
474 a DO, D1 past the statenent 
475 xs 
476 ** Calls: QUTNBE ,< Loopd> 
47? xx 
478 BR SBS cc niend 
479 ** Inclusive: A,B,C,D0,01,RO,R1,R2,P, STO, 3,8,10,11] 
480 Pe 
481 ** Stk lvls: 5 (Loopd) 
482 or 
483 ** History: 
484 ‘* 
485 a Date Programmer Modification 
486 BORO eee AERO eat NE le ret Oo a Beek ln ade NM Tenet 


48? WH” Q2I1B/83 NZ Added loop nunber decoripile 
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488 
489 
490 
491 
492 


493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
514 
512 
§13 
514 
515 
516 
517 
518 
519 
520 
§21 
§22 
§23 
524 
525 
526 
527 
§28 
§29 
§30 
531 
§32 
§33 
§34 
535 
536 
537 
538 
§39 
540 


F7D0E 3784 
0594 
C4 
F7018 27 
F7D1A 7000 
F7DIE 6D8F 


F?D22 70A1 
F7D26 14B 
F?7D29 

F7D29 7210 
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Rk 12/22/82 NZ Updated docunentation 
ak 


FORO IOI TIT ITIGUIO TO T OT OIOTTTTTT TTT 
FORK ROJO TOIT TUTTO TO TTT ITT IT OTC 


=RESETd LCASC = \LIPH\ 


P= ? 
GOSUB =O0UTNBC Output "HPIL" 
GOTO  Loopd 


FOR III OT TOTO TTT TTT TTT ITT IDK 
FOI OTITIS TT IT IST 
xk 


**% Narie: SENDd - Deconpile the SEND staterient 
ak 

** Category: STDCMP 

ak 

** Purpose: 

bs Deconpile the SEND statenent (also works for ENABLE 
A INTR and REQUEST) 

ah 

** Entry: 

ah D1 points to the first iten following the SEND token 
a DO points to the output buffer 

ax D[A] is the end of available nenory 

aS A[B] is the next token (at D1) 

= P=0 

ah 

RE EMETS 

ak DO,D1 after SEND conrand, P=0 

aa Exits through OUTELA 

ah 

** Calls: LOOPHd, FRASPd, ST'NOd, <OUTELA> 

ah 

AK Uses.....06 


*k Inclusive: A,B,C,RO,R1,R2,D0,01,P,ST[0, 3,8, 10, 11] 
kk 


Rk Stk lvls: 6 (LOOPHd)(ST!NOd) 
re 

** History: 

ah 


ax Date Progranner Modification 
RE teeceiGus'!  Gddecwetets  .bvecsusdatdluerewsuduasueumacto 


Ke 12/22/82 NZ Updated docunentation 

ak 

JOO IIIS OCI TO TTI RT TT ERT 
JUS IO OCCT TK 
x 


* SEND decompile will also work for REQUEST and ENABLE INTR 
k 


=ENABLd GOSUB OtINTR Deconpile "INTR " 
A=DAT1 B Read in the next token 

=REQSTd 

aoeee GOSUB LOQPHd 
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541 
542 
§43 
544 
545 
546 
54? 


548 F702D 7D20 


549 
550 
551 
552 
553 
554 
565 
556 
55? 
§58 
559 
560 
561 
$62 
$63 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
534 
585 
586 
587 
588 
589 
§90 
591 
592 
593 
§94 
595 


F7D31 SBF 


F7D34 7840 
F7D38 54F 


F703B 6F1F 
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* LOOPHd deconpiles the loop number, if any, and returns with 
* A[B] containing the next token 


* FRASPD deconpiles a frame spec, if any. If not a frane spec, 
* it returns with carry set. In either case, A[B] is the next 
token. 


+ OF 


SENDD1 GOSUB FRASPd 


GONC SENDD1 Loop until frarne spec not found 
& 


* If here, either EOL or expression 


* ST!NOd Deconpiles the string or numeric expression(s), if 
any. If none are found, it returns with carry set. 


Oe 


GOSUB ST!NOd 
GONC  SENDD1 Continue with next frane spec 


* If here, have reached end-of-line 
* 


GOTO Outela Output end of line 
JI III IT III II I III IT III III III IIT III II III IIIT II ISI ISI III SISA I 
JIT IOI ITI TTI III TIO IS IIIS I III III IIA ISI TK 
&k 


** Narie: LOOPHd - Deconpile an optional loop # 
ae 

** Category:  DCMUTL 

ka 

*k Purpose: 

a Deconpile a loop number, if any. If none present, exit 
aK with carry set (Leaves next token in A[B]) 
ak 

AR Pn trys 

me D1 points to the (optional) loop # 

ax DO points to the output buffer 

a D[A] is the end of available nenory 

aK A[B] is the next token (at D1) 

ah 

BA EXECS 

ly DO,D1 positioned after the loop #, if found 
aR ALB] is the next token 

ak Carry set if no loop #, clear if loop # found 
an 

d* Calls: EXPDC+, OUT2TC 

as 

PPOUSES ge Svar 

** Exclusive: A, C D1 


t* Inclusive: A,B,C,RO,R1,R2,D0,01,P,ST[O, 3,8, 10,11] 


ak 


KA Sth lvis: 5 (EXPDC+) 


ah 
** History: 

aa 

a Date Progranner Modification 

AM -Seccedes <«aebolicese gobo erecd sce sass oes Soe Does 
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596 

597 

598 

599 

600 

601 F?D3F 

602 F7D3F 3100 

603 F7043 966 

604 F7D46 00 

605 F7D48 7221 

606 F7D4C 3383 
02 

607 F7D52 74AF 

608 F7D56 171 

603 F7D59 14B 

610 F7D5C 03 

611 

612 

613 

614 

615 

616 

617 

618 2 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 F7D5E 


PIL DECOMPILE ROUTINES<831027. Tue Jan 17, 1984 12:02 pm 


Page 12 
** 03/01/83 NZ Updated to read token after expr 
ae 12/22/82 NZ Updated docunentation 
ae 


FOI IIIT TOTO TIO TT TTT TTT ERK 
FORO ITI TTT TTT TI TIT IIT TTR TTR 


=LOOP#Hd 
LC(2)  =tSEMIC 
ARC OB 
RTNYES Not a loop #...return, carry set 
GOSUB Expdc+ Expression deconpile 
LCASC \3\ 
GOSUB Out2tc Output terminating <senic><blank> 
01=D1+ 2 Skip tSENIC following the expr 
A=DAT1 B Read next token 
RTNCC Return, carry clear (LOOP #) 


FOI TOTO TO TT TK 
FOI TU RO OTTO TIT TOR OTT 
a 


** Nane: FRASPd - Deconpile a frane spec 
re 

** Category:  DCMUTL 

ke 

** Purpose: 

Ke Frarie spec deconpile routine 

ak 

ek Entry: 

a DO) points to the output buffer 

ak D1 points to the input buffer (tokens) 
ak D[A} is the end of available nenory 

Kk A[B] is the next token (at D1) 

ak P=0 

ak 

Rk Exit: 

ak A[B] is next token 

a Carry clear if frame spec found, set if not found 
aie DO,D1 updated to current position 

kk 

kk Calls: 7A=CLN, OUTITK, RANGEA, Outblk 

kk 

AR USES. aireo'n's 


*k Exclusive: A,C, 01 
*k Inclusive: A,C,D0,D1 
ak 


Kk Stk lvls: 2 (OUT1TK)(Outblk) 
zk 

** History: 

ak 


ae Date Progranner Modification 
RE bo choses -pceeasewan - vavbucwesduoeed aa iateninaeteedteese 


K 12/22/82 NZ Updated docurentation 

kk 

JUSSI OSI IGS OC CCCI TI ITT EK 
JIS III COTO IST TITAS II SARIS ISIS A 


=FRASPd 
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650 F7D5E 7481 
651 F?D62 480 
652 F7065 02 
653 

654 

655 F7D67 7000 
656 F7D6B 171 
657 F7D6E 148 
658 F7D71 8E00 


00 
659 F7D7?7 SFE 
660 
661 
662 


663 F7D7A 7350 
664 F7D7E AEE 
665 F7D81 03 
666 
667 
668 
663 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
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GOSUB ?A=CLN 
GOC FRASd2 This 1s a frame spec (Skip COLON) 
RINSC Not a frane (return, carry set) 
x 
x. 
FRASd1 GOSUB =oUTITK Output the character 
FRASd2 01=D1+ 2 Skip the current token/character 
A=DAT1 B Read next character 
GOSUBL =RANGEA Check if in [A-Z] 
GONC FRASd1 Yes...continue 
* Qutput a trailing blank after mnemonic 
x 
GOSUB Outblk 
ACEX 8 Restore iten (QUIBYT does ACEX) 
RTNCC End of frane (return, carry clear) 


FOI OR RII IIIT TT TTI ITI I TEI IK 
FORO TO TIO 
ax 


** Narie: ST!INOd - Deconpile a string or nuneric expr 
ke 

** Category:  DCMUTL 

we 

** Purpose: 

xk Deconpile string or nuneric expr (Preceded by tCONMA) 
ka 

xk Entry: 

RX DO points to the output buffer 

wk D1 points to the input buffer (tokens) 

aS D[A]} 1s the end of available nenory 

a A[B] is the next token (at D1) 

a P=0 

ee 

ee Exit: 

ae A{B] is next token, D1 points to next token 

sa DO, Di updated to current position, P=0 

aE Carry set 1f not a string or a nureric expression 
re" 

** Calls: EXPDC+, 7A=CM+, Outcna, Qutblk 

ka 

RE MISES oa rece 

*k Exclusive: A, C D1 


4% Inclusive: A.B,C,RO,R1,R2,D0,01,P,ST[0, 3,8, 10,11] 


x 


** Stk lvis: 5 (EXPDC+) 


xe 
** History: 


a Date Progranner : Nodification 


Ke 12/22/82 N7 Updated docurentation 
ak 


FORO KIS IOI IOI EOI GIT 
SOTO TOI iO tot GOO EGO III tak 
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704 
705 
706 
707 
708 
709 
710 
11 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
7H” 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 


F7D83 3100 
F7D87 966 
F7D8A 00 
F7D8C 7EDO 


F7D90 7741 
F7094 SAO 


F7D97 7EX 
F7D9B GOFF 


F7D9F 7E20 
F7DA3 AEE 
F7DA6 03 
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=STINOd LC(2) =tCONNA 
TREC OB 
RTNYES Not an expression (RTNSC) 
ST'Ndi GOSUB Expdc+ 01=D1+2;EXPROC 
t 
* A[B] 1s next iten 
t 
GOSUB ?A=CN+ 
GONC ST! Nd2 Done with expression list...exit 
* 
* Another expression follows 
k 
GOSUB Outcna Output a connma between itens 
GOTO 3 ST!Nd1 Loop back and continue 
ke 
t. 
ST'Nd2 GOSUB Outblk (Saves ALB] in C[B]) 
ACEX 8B Restore iten fron C{B] 
RINCC Exit, carry clear 


JOJO IIIT OO TIO RO TTT OK 
SOOT TOOT TTT TK 
ak 


** Nane: PILDC - Deconpile an HPIL device specifier 

ax 

** Category: DCMUTL 

ix 

xk Purpose: 

ak Deconpile an HP-IL device spec stored as a literal: 
ax case: 

ax <t*® 

aK or <t%><numeric expression>[({ <nuneric expression> )] 
kk or <nuneric expression> 

RK or <tLITRL> <literal> [( <nuneric expression> )] 

a or <tSEMIC> <volume label> 

ak 

kk Entry: 

XK D1 points to the tCOLON in the input buffer 

oe DO points to the output buffer 

ax D[R} is the end of available nenory 

ax P=0 

kk 

Re Exit: 

ae DO points after the last character of the output line 
= D1 points to the first token following the input tokens 
ax P=0 

tk 

&* Calls: OUTBYT , EXPOC+, ?A=CLN, OUTITK, EXPRDOC 

ik 

BE NSCS 265-45 

kk Exclusive: A, C, Mm, 01 


** Inclusive: A,B,C,RO,R1,R2,00,D1,P,ST[O, 3,8, 10,11] 
tk Stk lvls: 5 (EXPRDC)(EXPDC+) 


** History: 
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759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
77? 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
7% 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
814 
$12 
813 


F70R8 
F 7DAC 
F 7DB0 
F70B3 


F7DB6 
F7DBA 
F?DBD 
F7DBF 
F7DC2 
F7DC5 
F7DC9 


F7DCD 
F7DD1 
F7DD5 


F7DD9 
F 7000 


F7DE1 
F?DE5 
F?DE8 
F?DER 


31A3 
7910 
171 
148 


3100 
966 
42 
181 
171 
31A2 
6000 


732F 
3102 
o3FF 


312 
6BEF 


3100 
966 
F2 
3152 
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ik 
ae Date Progranner Modification 
MO goes. ““eevageene, eessee see theca ones 
RX 42/22/82 NZ Updated docunentation 
kx 


FOOT OI OOK 
OUI OO JO III TIT TTT 


x 


* Syntax: 
* Input strean: 
* or <t%> <nun expr> [ <tCOLON> <nun expr> ] 
x or <nurn expr> 
* or <tLITRL> <literal data> [ <tCOLON> <nun expr> ] 
* or <tSEMIC> <literal volure label> 
t 
*  Qutput text: 
‘ k 
* or :%<nun expr> [ (<nun expr>) J 
* or :<nun expr> 
* or :<literal data> [ (<nun expr>) J] 
* or .<volurie label> 
x 
=PILDC LCASC \:\ 
GOSUB Outbyt Output the colon 
Di=D1i+ 2 
A=DAT1 B Read the next token 
* 
* Check for “*" token 
* 
LC(2)  =t* 
PAHC OB Is it t*? 
GOYES PILDC2 No...check further 
DO=D0- 2 Yes...undo the ":" 
D1=D1+ 2 Skip the "*" token 
LCASC = \*\ 
Qutbyt GOTO  =OQUTBYT Done with this device spec 
te 
ko 
IOdspe GOSUB 10d Output "IO " 
Qutblk LCASC \ \ 
GOTO Outbyt 
te 
ke 
Qutcra LCASC \,\ 
GOTO Outbyt 
kL 
A 
PILDC2 LC(2) =t% 
*ARC OB Is it Accessory ID? 
GOYES PILDCS No...check further 
LCASC \Z\ Yes...output % 


x 


* Accessory ID 
k 
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814 F7DEE 77DF PILDC3 GOSUB Outbyt 

815 F7DF2 7870 GOSUB Expdc+ Step over t% first 

816 F7DF6 7CEO GOSUB ?A=CLN "(" token kludge 

817 F7DFA 506 GONC PILDCS Not "(" token...check loop # 
818 F7DFD 3182 PILDC4 LCASC \(\ 

819 F7EO1 74CF GOSUB Qutbyt 

820 F7E0S 7560 GOSUB Expdc+ (Step over tCOLON first) 

821 F7EO9 3192 LCASC \) 

822 F7EOD ?78BF GOSUB Outbyt Send the closing ")" 

823 F7E11 AEE ACEX 8 Get token back to A[B] 

824 F7E14 564 5 GONC PILDCS Go always to check for loop # 
825 - 
826 . 

827 x 

828 i‘ Not Accessory ID - perhaps a device word 

829 

830 PILDCS LC(2) =tLITRL 

831 RHC OB Is this a literal? 

832 GOYES PILDC8 No...must be an address expression 
833 01=D1+ 2 Skip =tlLITRL 

834 x 

835 : If here, this is a literal (device word or Device ID) 

836 

837 PILDC6 A=DAT1 B Read next character 

838 C=A A Copy A[B} to C[B) 

839 C=C+C B If carry, end of literal 

840 Coc PILDC7 Carry...end of literal 

841 PIUcé DI=D1+ 2 Still part of literal...skip input 
842 

843 * Qutput the character and loop back for next character 

844 % 

845 GOSUB =oUT1TK Output fron ALB] 

846 GONC PILDC6 Go aluays - loop back again 

847 we 
848 xe 

849 * 

850 ; High bit set...end of literal characters 

851 

852 PILDC? 

853 GOSUB ?A=CLN Is there a tCOLON ("(")? 

854 COC PILDC4 Yes...process the expression 

855 GONC PILDCS Go always to check loop # 

856 

857 

858 LC(2) =tSENIC 

859 *RHC OB Is this a volune label? 

860 GOYES PILOc8 No...nust be address expression 
861 x 

862 * Literal volune label 

863 x 

864 DO=D0- 2 Back over the \:\ 

865 LCASC \.\ 

866 A=C A Write out the \.\, then vol label 
867 GONC PILDc6 Go always 

868 
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869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 


884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
W2 
%3 
94 
905 
Ko 
97 
98 
93 
910 
911 
Ste 
913 
914 
915 
916 
917 
918 
919 


F?E5? 
F7E5B 
F7ESF 
F7E62 
F7E64 


F7E66 
F7E6A 
F?EGE 
F7E?1 


7619 
3100 
962 
40 
03 


31A3 
7B5F 
171 

8D00 
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Page 17 
x 
k 
* If here, this must be an address expression 
x 
PILDc8 GOSUB Exprdc 
PILDC9 LC(2) =tSEMIC Check if there is a loop spec 
*A=C) OB Loop specifier? 
GOYES PILDC! Yes...process it 
RTNCC No...return with carry clear 
ke 
ke 
PILOC! LCASC \:\ Loop specifier.... 
GOSUB Outbyt output the colon, 


Expde+ D1=D1+ 2 


then the expression 


Exprde GOVLNG =EXPRDC 


FOO ITO I III OI OIC ITO TI OTK 
FOI OTTO IOI TOOT TIT 


xx 
** Nane: PASSd - PASS CONTROL decompile 
aK 

** Category:  STDCNP 

a 

** Purpose: 

= Decoripile the PASS CONTROL statenent 
ak 

** Entry: 

ax D1 points to the input buffer (tokens) 
an DO points to the output buffer 

x D[A] 1s the end of available nenory 

- A[B] is the next token (at D1) 

xk P=O 

ak 

WA CE MIT: 

ax DO, D1 are positioned after the output/input tokens 
a Exits through OUTELA 

xk 

** Calls: OUTNBC, *A=CNA, <PACKd> 

xi 

BP USES cokaciex 


&*k Inclusive: 


KK 


&* Stk lvls: 
he 


** History: 
aX 

*™ Date 
WR ee Bee! 


**R 10/27/83 
aA 


A,B,C, RO,R1,R2,00,01,P,ST[0,3,8,10,11] 


6 (PACKd) 
Progranner Modification 
NZ Rdded docunentation 


FORBID IOI OI OI III 
FORO UII ICO II IIIS II IO OI IOI IO IOI 


$20 F7E78 3F34 =PASSd LCASC 


F4E4 
4525 


\ LORTNOC\ 
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F4ca 
02 

921 F7E8A 2F 

922 F7E8L 7000 

923 F7E9O 7440 

924 F7E94 590 

925 F7E97 171 

926 F7E9A 60CD 

927 

928 

929 F7ESE 604D 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 F7EA2 8FOO 
000 

967 F7ER9 14F 

968 F7EAC 8001 

969 F7EBO OC 

970 F7EB2 20 

971 F7EB4 45E 

972 F7EB? 664D 
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P= 15 
GOSUB =OQUTNBC 
GOSUB 7?A=CHA 
GONC PASd1O 
01=D1+ 2 
GUtela GOTO Outela 


xe 

PASd10 GOTO PACKd 

FORO IOI IOI RIOT OOK 
SOIR RRR OIRO I JOO IO 
ak 


** Nane: CNTRLd - CONTROL ON/OFF deconpile 
ae 

** Category: STDCNP 

ak 

** Purpose: 

ae Decornpile the CONTROL ON/OFF statenents 
ak 

** Entry: 

a DO is points to the input buffer (tokens) 
ae 01 points to the output buffer 

ae D[A] is the end of available nenory 

ne A[B) is the next token (at D1) 

xe P=0 

a 

MA ERE: 

eal DO, D1 positioned after the statenent 

ak Exits through PACKD6/OUTELA 

ae 

** Calls: GTXT++, <QUTELA>, <PACKD6> 

aK 

RR USPS seine 

** Inclusive: A,B,C,RO,R1,R2,00,D1,P, ST[0, 3,8, 10, 11] 
ak 

** Stk lvls: 5 (PACKD6) 

ak 

** History: 

at 

xk —*Date Progranner Modification 
$0? Sede webdateiwc,  fodedicheccusudebuwoeseecterey 
Xk 10/27/83 NZ Added docunentation 
aX 


FOI TO TT TO IIT TT TTT OT 
SOI OTTO ITT I ITIL 


=CNTRLd GOSBVL =GTXT++ Qutput ON/OFF (blanks) 
CNTRLS C=DATI B Check if at end of line 
P=C 1 
P=P+1 If carry, at end of line now 
P= 0 Reset P=0 regardless 
GOC OUtela End of line if carry 


GOTO PACKD6 


os 
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973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1003 F7EBB 7700 
1010 F7EBF 8000 


000 

1011 

1012 

1013 

1014 

1015 

1016 F7EC6 3994 
£445 
2502 


1017 F7ED2 29 
1018 F7ED4 6000 
1019 

1020 

1021 

1022 

1023 

1024 F7EDS 148 
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FO III TIT TOT TT TTT IN 
FOI III OT TTT TORII ITI TI IIIT IIIT III IN 


ak 
xk 
xk 
xx 
xx 
xk 
ax 
xx 
xk 
ak 
xk 
an 
xk 
xk 
xx 
xk 
ak 
xk 
xk 
xk 
xk 
ak 
xk 
xx 
xk 
xk 
ax 
xk 
ak 
aA 
Kk 
KK 


Nane: ONINTd - ON INTR deconpile 
Category: STDCHMP 
Purpose: 
Deconpile the ON INTR statenent 
Entry: 
DO points to the input buffer (tokens) 
D1 points to the output buffer 
D[A] is the end of available nenory 
A[B] 1s the next token (at D1) 
P=0 
Exit: 
DO, Di positioned after the statenent 
Exits through ONDC20 (nainfrare) 
Calls: OtINTR, <ONDC20> 
USOS.G ics cu 
Inclusive: Sane as ONDC20 
Stk lvls: Sarie as ONDC20 
History: 
Date Progranner Modification 
10/27/83 NZ Added docurentation 


FOI OTIC IOI TTT TTI TTI. 
FOO III TOI OI IOI ITO TOTTI ITO TI TSI IIIT IK 


=ONINTd GOSUB OtINTR 


+ + Oe Mh 


GOVLNG =ONDC20 Continue with ON ... GOTO/GOSUB 


Output \INTR\ 


OtINTR LCASC \ RTNI\ 


ke 
ke 
x 


P= sg 


GOTO =QUTNBC (Returns with P=0) 


* Check if A[B] 1s a tCOMNA (Carry set if so) 


x 


=7A=CMA A=DAT1 B 
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1025 F7EDB 3100 
1026 F7EDF 962 
1027 F7EE2 © 
1028 F7EE4 01 
1029 

1030 

1031 

1032 

1033 

1034 F7EE6 3100 
1035 F7EER 962 
1036 F7EED 00 
1037 FEEF 01 
1038 F7EF1 
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=?R=CM+ LO(2) =tCOMMA 
A=C OB 
RTNYES 
RIN 


x 
x 
x 
* Check if A[B] is tCOLON (Carry set if so) 
x 

=7ASCLN LC(2) =tCOLON 

7A=C OB 

RINYES 

RIN 

END 
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=?A=CLN Abs 1015526 #F7EE6 
=?R=CMN+ Abs 1015515 #F7EDB 1025711 

=?A=CMA Abs 1015512 #F7ED8 1024 66 117 182 297 34 923 
=ASGNd Abs 1015046 #F7D06 - 453 

=CLEARd Abs 1014983 HF7CC? - 343 291 


1034 60 113 650 816 853 


t 


CLRD1O Abs 1014997 HF7CD5 - 360 345 
CNIRLO Abs 1015465 HF7EA9 - 967 418 
=CNTRLd Abs 1015458 HF7EA2 - 966 242 
DISPDC Ext - 1% 
=ENABLd Abs 1015074 #F7D22 - 536 
EXPROC Ext - 883 


Expdc+ Abs 1015406 HF7E6E - 882 605 707 815 820 
Exprde Abs 1015409 #F7E71 - 883 73° «133° «198 = ®3 873 
FILDC* Ext - 180 

=FRASPd Abs 1015134 #F7D5E - 649 548 

FRASd1 Abs 1015143 #F7067 - 655 659 

FRASd2 Abs 1015147 HF7D6B - 656 651 

GTEXT+ Ext - 296 

GTXT++ Ext - 966 

INITDO Abs 1014868 HF7C54 - 181 199 

=INITD2 Abs 1014892 #F7C6C - 198 

INITO3 Abs 1014885 #F7C65 - 192 183 

zINITd Abs 1014842 HF7C3A - 172 

10d Abs 1015028 HF7CF4 - 412 408 798 

IOdspc Abs 1015245 HF7DCD - 798 417 454 
LEXPIL Ext - 287 
=LOCALd Abs 1014926 HF7C8E - 279 

LOCLd1 Abs 1014979 H#F7(C3 - H4 HO 
=LOOPHd Abs 1015103 #F7D3F - 601 235 539 
Loopd Abs 1014956 H#F7CAC - 297 495 
=OFFIOd Abs 1015001 HF7CD9 - 396 

OFIOd1 Abs 1015020 HF7CEC - 407 398 
OFIQd2 Abs 1015024 HF7CFO - 409 404 


ONDC20 Ext - 1010 
=ONINTd Abs 1015483 #F7EBB - 1009 
OUT3TC Ext - 55 
OQUTBYT Ext => 95 
QUTELA Ext - 186 
OUTNBC Ext - 179 494 $922 1018 


=QUTPd Abs 1014790 #F7(06 - 112 

OUTPd1 Abs 1014797 HF7COD - 115 122 

OQUTPd2 Abs 1014801 #HF7C11 - 116 134 

QUTPd3 Abs 1014820 HF7C24 - 128 120 

OUTPd4 Abs 1014834 HF7032 - 133 114 

BUltela Abs 1015450 HF7E9R - 26 971 

OtINTR Abs 1015494 HF7EC6 - 1016 403 536 1009 

Qut2tc Abs 1015034 HF7CFR - 413 607 

Outblk Abs 1015249 #F7DD1 - 799 128 32 663 720 

Outbyt Abs 1015241 #F7009 - 795 783 800 804 814 819 822 881 
Outcma Abs 1015257 HF7DBI - 803 69 #121 193 716 

Qutela Abs 1014875 #F7C5B - 184 74 4 = 347? 409) 561 926 


PACKBD6 Abs 1014782 HF7BFE - 73 61 972 
PACKD9 Abs 1014786 HF7COe - 74 67 
=PACKd Abs 1014751 HF?BDF - 59 70, «354 455 929 


=PASS Abs 1015416 HF7E78 - 920 
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PASd10 
=PILDC 
PILDC! 
PILDC2 
PILDC3 
PILDC4 
PILOCS 
PILDC6 
PILOC7 
PILDC8 
PILDCS 
PILDc6 
PILDc8 
=PRNTSd 
RANGEA 
=RENOTd 
=REQSTd 
=RESETd 
=RESTd 
SENDD1 
=SENDd 
=STINQd 
ST!Nd1 
ST'Nd2 
=STANDd 
=STANd+ 
STANdJ 
=TRIGd 
=XWORDd 
oUT1 TK 
oUT2TC 


tCOLON 
tCONMA 
tLITRL 
tLOCKO 
tOFF 
tON 
tSENIC 
tRWORD 


Res 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Ros 
Abs 
Ext 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Rbs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Abs 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 
Ext 


1015454 
1015208 
1015398 
1015265 
1015278 
1015293 
1015319 
1015331 
1015352 
1015362 
1015387 
1015342 
1015383 
1014739 


1014983 
1015081 
1015054 
1015038 
1015085 
1015081 
1015171 
1015180 
1015199 
1014900 
1014892 
1014922 
1014983 
1014875 
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Synbol 


#F7ESE 
#F 7DR8 
HF 7E66 
#F 70E1 
#F7DEE 
#F 7DFD 
HF7E17 
HF 7E23 
HF 7E38 
HF7E42 
#F7E5B 
HF 7E2E 
#F7E57 
#F 7BD3 


#F7CC7 
HF 7029 
HF 7D0E 
HF7CFE 
HF 7D2D 
#F7D29 
#F 7083 
#F 7D8C 
#F7D9F 
#F7074 
#F7C6C 
#F7C8A 
#F?CC7 
#F7C5B 


Table 


923 
782 
880 
807 
814 
818 
830 
837 
852 
858 
874 
841 
873 
53 
658 
341 
538 
492 
417 
548 
§39 
704 
707 
720 
235 
19? 
242 
342 
185 
655 
413 
807 
739 
1034 
704 
830 
288 
239 
236 
602 
286 


924 

65 
876 
794 


854 
809 
846 
840 
832 
817 
867 
860 


549 
556 
717 
712 
241 
238 


845 


1025 


858 
396 


Page 22 


116 


824 855 


§57 


874 
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Input Parareters 
Source file nane 1s NZ&DEC::M5 
Listing file nane is N2/DEC: TI:ML::-1 
Object file name is NZZDEC:TI:MS::-1 


441111 
0123456 789012345 
Initial flag settings are 
€rrors 
None 


Saturn Assertbler Neus 
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ee Te eS FS ee a 
SPH OWONAM wr WONUAHAMHWN | OOWMNADN PWN CWWONAMHWNH = 


Aaa 
wt) 


Shhh 
Ona nn & 


Ann nnn 
unm & wr O19 
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NN Z277Z & SSS 
N ON zZ 8&8 S$ 
NN ON zZ 8&8 S$ 
NNN z & SSS 
N NN 2 & & & S 
N N 2 && S$ §$ 
N N Z2227Z 8&8 & SSS 


ee ee ee ee OO 


TITLE Symbolic Assignnents 
x 
* Status bit for ATIN key pressed ( 
x 
=Attn EQU = 12 
* 


* Other status bits 
x 


=sPRIVT EQU 11 Status 
=sUNSEC EQU 10 Status 
=sSOVERW EQU 8 Status 
=sDev0K EQU g Status 


=sSTK = EQU ? Status 
=CkTape EQU 5 Status 
=sloop? EQU 5 Status 
=sReadd EQU 4 Status 

6 Status 


=sFirst EQU 
x 

* Status bit corresponding to the b 
* 

=sDIAsr EQU 1 


* See NZ&PAR for parse status bits 


* Equates for P=, DDL/DDT 
x 


* DDL’s 

& 

=Writed EQU 0 Write 
=Writel EQU 1 Write 
=Write EQU é Write 
=SetBP EQU 3 Set by 
=Seek EQU 4 Seek a 
=Fornat EQU 5 Fornat 
=Prite EQU 6 Partia 
=Rewind EQU ? Rewind 
=CloseR EQU 8 Close 
=Kfrotl EQU 9 Transf 
=Xchgl EQU 10 Exchan 
=Verify EQU 11 Verify 
; 


* DBT’s 
k 
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Y 
Y ¥Y 
Vy 


<<< 


<831220. 1633> 


or other exception cause) 


for PRIVATE/SECURE stnt 

for [UN]Secure staterent 
for overurite existing file 
for device spec exec OK 

for reading fron stack 

to check for tape device 
far allowing LOOP spec 

to force readdress the loop 
for first char in filespec 


it DIAMOND sets 1f SREQ? 


to buffer 0 
to buffer 1 
to tape 
te pointer 
record 

the nediun 
1 write node 


record 

er buffer 0-->1 (Listener) 

ge buffers 0,1 (Listener) 
the wediuri 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
83 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
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=ReadO EQU 0 Read fron buffer 0 

=Readi EQU 1 Read fron buffer 1 

=Read EQU 2 Read fron tape 

=Positn EQU 3 Read current position 

=Xchgl_ EQU 4 Exchange buffers 0,1 (Talker) 
=XfrO1T EQU 5 Transfer buffer 0-->1 (Talker) 
=InpByt EQU 6 Send inplenentation bytes 

sNaxRec EQU ? Send max addressable record 

RCo Oe eee Lewes et Seat ee eee eo ee 
k 


* Equates for device specifiers 
k 


=DevTyp EQU #1F Device type 

=DevID EQU #3F Device ID 

=VolLbl EQU #5F Volune label 

=Null = EQU #7F "NULL" device 

“boop EQU H#9F "LOOP" device 

BS se Suc ase ew ee Sed SES ooo Saget eae Sesmedes ote et ene 
k 


_ * Equates for D[S] values returning fron START 
& 


=DsAddr EQU 0 Device address 

=DsDevT EQU 1 Device type 

=DsDevI EQU 2 Device ID 

=PsVolL EQU 3 Volune label 

=DsNul] EQU 4 NULL 

=DsLoop EQU 5 LOOP 

he So uOGesuidne tosave eo idaek bate ce ames 


* Equates for STANDBY defaults 
* 


=#Tineo EQU wv Default # IDY tineouts 

=Tinout EQU 241000 Default tineout between IDY (ns) 
k 

Bsa ha ae en Olle ce ee nar Suton a take Bite a eels a a 
k 


* PRINT class equate (for OUTPUT class) 
k 


=QUTPTt EQU 2 This 1s next after PRINTt 
=PLOTt EQU (OQUTPTt)+1 This is for the PLOT class 


* 
* HPIL frane types (return fron FRAME) 
x 


=pACK  EQU 00 Acknowledge frane 
=pSTATE EQU 01 Current Diariond state 
=pDIAGR EQU 02 Diagnostic test results 
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141 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
de 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
163 
154 
155 
156 
157 
158 
153 
160 
161 
162 
163 
164 
165 


Symbolic Assignnents <831220.1 


=pDIAGL EQU 
=pADDR EQU 
=pIFC EQU 
=pEOT  €QU 
=pHALTD EQU 
=pTERM €QU 
=pETE  EQU 
=pUTYPE EQU 
=pDATA EQU 
=pCND EQU 
=pRDY EQU 
=pIDY  EQU 
=p3DATA EQU 


* ERROR TYPES: 
* 


=ePARSE EQU 
=eTAPE EQU 
=ePIL EQU 


03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
16 


00 
01 
02 
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Diagnostic data 

Address frane 

IFC received (not active controller) 
EQT received as controller 
Conversation halted by Dianond 
Terninator natch (Diariond) 

ETE received 

Unrecognized nailbox nessage type 
DATA/END frane 

Conmand reveived 

Ready frane reveived 

IDY reveived 

Triple byte data 


(See NZ&ERR for nost error nunbers) 


Parse error 
Tape error (mass storage error) 
HPIL error (loop or Dianond) 


* Paraneters for File Infornation Buffers (FIB) 
* See TI&EQU for values and nares 


x 


» 


+ 2 


=sLOCKD EQU 
=sRMOTE EQU 
=sDRTAO EQU 
=sDATAV EQU 
=sSTAND EQU 
=sPOLLE EQU 
=sUNCNF EQU 
=sINTR EQU 
=sSCNTR EQU 
=sTALKA EQU 
=sLISTR EQU 
=sCONTR EQU 


x 


* Handshake 
x 


=s3BYTE EQU 
=sMRANUL EQU 
=sSRQIN EQU 
=sERROR EQU 
* 


1 
10 


OAM WLPOHA~A 00 


ee ee ee ee ee em em ee ew ee we ee mee 


Status bits (for Dianond state) 


Locked out node (renote) 
Renote node 

Data in output buffer 
Data available 
Controller standby node 
Serial Poll Enabled 
Loop is not configured 
Interrupt pending 
Systen Controller 
Talker active 

Listener 

Controller 


Saturn) (in ST[3:0]) 


Triple data byte transfer 
Diariond is in nanual node 
SRQ received on loop 
Error detected/occurred 
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166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
1277 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
194 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
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* Handshake bits (Diamond to Saturn) (in ST[7:0]) 
k 


=hs3BYT EQU 
shsMANL EQU 
=hsLPRQ EQU 
=hsERRO EQU 
=hsRQSR EQU 
=hsAWKE EQU 
=hsNRD EQU 
=hsMGAV EQU 


OM wl On~a 


Triple data xfer 

Manual node 

SRQ received fron loop 
Error occured 

Diariond SRQ on Saturn Bus 
Saturn awake 

Saturn NRD 

Dianond message available 


* Mailbox opcodes (10 Dianond) 
& 


* Frane class 
x 


=nFRAME EQU 
=HDATAF EQU 
=nDATA2 EQU 
=nENDF EQU 
=nCMDF EQU 
=nCMD3 EQU 
=nCMB2 EQU 
=WEAR  EQU 
=mMUNL EQU 
=nUNT  EQU 
=mIFC QU 
=ARDYF EQU 
=nIDYF EQU 
=METO  EQU 
ene TE EQU 


=nADDRN EQU 
=snaddrT EQU 
=naddrl EQU 
=MUNADN EQU 
pee EQU 


* Address class 
x 


=MADDRT EQU 
=MADDRL EQU 
=HFINDD EQU 
=nFIND1 EQU 
=nAUTOA EQU 
seis EQU 


* Conversation descriptors 
& 


=HSDR =EQU 
=nSDAC@S EQU 
ziSST QU 


#1000 
#1000 


(HDATAF ) /#100 


#1200 
#1400 
(mCMDF ) /#10 


(HCMDF ) /#100 


(nCNDF )+#18 
(nCMDF ) +#3F 


(HCNDE )+#5F 


(nCMDF )+#90 
#1500 
#1600 
(HRDYF +840 
(nRDYF +441 


#2000 
H4 
#2 


Any of the class "FRANE" 
DATA frane 


END frane 
CoMnanDd frane 


Enable AsynchRonous IDYs 
Unaddress listeners 
Unaddress talkers 
InterFale clear!!! 

ReaDY frane 

IDY frane 

ETO 

ETE 


. * Single-nibble paraneter class 
x 


ADDRess Ne as... 
...lalker 
... Listener 


(HADDRN)+#10 UNADdress Me as...* 


#H 


#4000 
#5000 
#6000 


Power doun the loop 


ADDRess ... as Talker 
ADDRess ... as Listener 
FIND Device, type n 


(nFINDD)/#1000 FIND Device, type n (1 nibble) 


#70 
(mAUTOR) +1 


#800000 


AUTO Address loop 
AUTO Address (AES, AAD) 


Start DAta conversation 


(nSDA)/#100000 Start DRta conversation (P=5) 


#900000 


Start STatus " 
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221 =MSDI = EQU #AOO000 Start Device Id 
222 =HSAI = -EQU #B0O000 Start Accessory Id 
223 =aTCT  EQU #[00000 Transfer ConTrol 
224 =nSETTO EQU #D00000 SET TineQut 
225 =nST0@5 EQU (nSETTO) /¥100000 Set TineOut (P=5) 
226 =ZnSETFC EQU #E00000 SET Frane Count 
227 =HSFC@S EQU (nSETFC)/#100000 Set Frane Count @ nibble 5 
228 
229 * One-byte paraneter class 
230 x 
231 =nSETDR EQU #F 30000 SET Device response 
232 =HSETAL EQU = #F 30120 SET Accessory ID length (=1) 
233 =HSETAI EQU = #F 30321 SET Accessory ID value (=3) 
234 =MSETS1 EQU #F 30140 SET Status length (=1) 
235 =nSETST EQU #F 30041 SET Status value 
236 =nSTS@4 EQU #F3 SET Status value (at nibble 4) 
237 =nSETD1 EQU #F 30610 SET Device ID length (=6) 
238 =HSETDI EQU #F 30011 SET Device ID value (first byte) 
239 =vDEVID EQU \17PH\ Value of device ID (=HP71) 
240 x 
241 ZHSETTMN EQU #F 400 SET Terrinator Mode 
242 =HSETTC EQU #F 500 SET Terranator Character 
243 =anSETIC EQU #F 600 SET # of IDY Timeouts 
244 =MSETIT EQU #F 700 SET IDY Timeout (in nS) 
245 =nCLRBF EQU #F8 Clear data buffers (input&output) 
246 =nSPTO EQU HF 900 Set Serial Poll TineOut 
247 =nSETIN EQU HF AOD Set interrupt nask 
248 =NREADI EQU HFB Read interrupt cause 
249 =nREADC EQU #FC Read last device dependent connand 
250 =CLRTSR EQU HF DOO .. CLEAR terrminate on SRQ node 
251 =SETTSR EQU (CLRTSR)}+1 ...SET terminate on SRQ rode 
252 =HPULOP EQU HFE Power up the loop 
253 =HSPDIS EQU HFFOO Disable IDY serial poll 
254 =4SPEN EQU (nSPDIS) +14 Enable IDY serial poll 
255 x 
256 * Non-paraneter nessages 
257 x 
258 sHNOP = EQU #OO NO oPeration (check for HS) 
259 =nRDADR EQU #014 ReaD ADdRess table 
260 =HSTATS EQU #02 STATuS request to Diarond 
261 ZHSTSTC EQU #0201 Request status, clear service reques 
262 =nENDM = EQU #03 END of Message 
263 =nCSRQ EQU #04 Clear SRQ on loop 
264 =nSSRQ EQUI #05 Set SRQ on loop 
265 =wERSTS EQU #06 Request ERror STatuS 
266 =nMRUTOE EQU #07 Enter AUTO End node 
267 =nMANUL EQU #08 Go to tanual node 
268 =nSCOPE EQU #0801 Go into MANUAL node, retransnit 
269 =AUTO EQU #09 Go to auto node 
270 =nUPDSC EQU #OROO Update Systen Controller bit(8/0) 
271 =nRSTCR EQU #0B Reset current address 
272 =nGETCA EQU #OC Read current address 
273 =n INCCA EQU #0D Increnent current address 
274 =HMADOR EQU HOE Return "NY" address 
275 =nCLROA EQU #OFQQO0 Clear controller status 
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276 zHSETCA EQU #OFO1 (Set controller active) 
277 =MTAKEC EQU #0FO3 Take control of the loop 
278 & (2/0: if 2, then use IFC) 
279 =mTAKEI EQU (nTAKEC)~#90 Take control and send IFC frane 
280 su TAKEG EQU (nTAKEC)~#10 Take control and send NOP frane 
281 

q 282 * Diagnostic class 

283 & 
284 =nRdMen EQU #FO0000 Read wenory (add addr, RAN page) 
285 =HWntlen EQU #F 10000 Write memory (add value” address) 
286 =sHTEST EQU HF2 Dianond self-test 
287 & 
288 he ----- 22 oo ee ne nn ne on nnn nen nen nee ne eee ee 
289 & 
2% * RAM usage... 
231 & 
292 sSngDev EQU 4 Single device I/0 buffer 
293 
294 & TS-xxx: 
295 . nib: usage: 
296 * ert seeeee 
297 x 2-0: If device address known, address, loop # here 
298 k If not knouwn/assigned/iobuffer, FFF 
299 & If assigned, not HPIL, Fxx, xx<>FF 
300 & 
301 * 3 If unassigned/not HPIL, F 
302 x If I0 buffer for device ID/volurne label, 4 
303 & If type specified, loop # + 1 (mib 3: 1,2,3) 
304 fe If address specified, 0 
305 ; If this assignrient has been “OFF"ed, bit 3 is 1 
306 
307 & 6-4: If type, nib 6: sequence #, nibs 5-4: Acc id 
308 k If address, 6-4: address, loop # 
309 & If I0 buffer, 6-4: io buffer # 
310 x If unassigned (NOT “OFF"ed), FFF 
311 & If not HPIL and nib 3=F, not defined 
312 & 
313 R--------------- +--+ 5-H oe nn eo ee ee oo oe 
314 x 
315 * Nibble "DSPSET" 
316 k 
317 =DispOK EQU 1 Display device is set up 
318 =Wallby EQU 10 Display device is a Wallaby 
313 =Printr EQU 9 Display device is a printer 
320 “ Hoopuk EQU 8 Loop has not died while in disp 
321 
322 h---------~ ~~~ +--+ --- +--+ 2 +--+ + == =~ 
323 x 
324 : Nibble "LOOPST" (bits 8 and 3 are cleared when START is called) 
325 
326 =Offed EQU 11 If set, USER specified OFF I0 
32? Rae EQU 10 Last START found device node 
328 
329 &-----------------~---------------------- + = - 2-2 =e 


3H i 
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331 * MBOX*: (3 nibbles) 
332 x Middle 3 digits of address of last mailbox used (ie if 
333 & nailbox was at address #20010 then MBOX® is #001) 
334 x 
335 h-------~--~---------------~-------- +--+ --- +--+ +--+ 


336 00000 END 
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=4Tineo Abs H WOOO1E - 90 
=Attn Abs 12 WOOOOT - 15 
=CLRTSR Abs 64768 HOFDOO - 250 251 
=CkTape Abs 5 #00005 - 24 
=CloseR Abs 8 #OO00$S - 49 
=DevID Abs 63 #OOO3F - 70 
=DevTyp Rbs 31 HOOOTF - 63 
=Device Abs 10 #0000R - = 3327 
=Disp0K Abs 11 #0000B - 317 
=DsAddr Abs 0 #00000 - 79 
=DsDevI Abs 2 #002 - 81 
=DsDevT Abs 1 #00001 - ne) 
=DsLoop Abs 5 #00005 - 84 
=OsNull Abs 4 #00004 - 83 
=DsVolL Abs 3 #00003 - 82 
=Fornat Abs 5 #00005 - 46 
=InpByt Abs 6 #00006 - 62 
=Loop Abs 159 HOOOSF - 73 
=Loop0K Abs 8 #00008 - 320 
=MaxRec Abs ? #00007 - 63 
=Null Abs 127 #OO07F - 72 
=QUTPTt Abs 2 #00002 - 97 98 
=Offed Abs 11 HOO0OOB - 326 
=PLOTt Abs 3 #00003 - 98 
=PWrite Abs 6 #00006 - 4? 
=Positn Abs 3 #00003 - 59 
=Printr Abs 9 #00009 - =: 319 
=Read Abs 2 #00002 - 58 
=Readd Abs 0 #00000 - 56 
=Read| Abs 1 #00001 - 57 
=Rewind Abs 7 #00007 - 48 
=SETTSR Abs 64769 HOFDO1 - 251 
=Seek Abs 4 #00004 - 45 
=SetBP Abs 3 #00003 - 44 
=SngDev Abs 4 #00004 - 292 
=Tinout Abs 2000 #00700 - 91 
=Verify Abs 11 #0000B - 52 
=Vollbl Abs 95 #OOO5F - 71 
=Wallby Abs 10 WOOOOR - = 318 
=Write Abs 2 #00002 - 43 
=WriteO Abs 0 #00000 - 41 
=Writel Abs 1 #00001 - 42 
=Xchgl Abs 10 #OOOOR - 51 
=Xchgl Abs 4 #00004 - 60 
=XfrOoiL Abs 9 #00009 - 50 
=Xfro1T Abs 5 #00005 - 61 
=ePARSE Abs 0 #00000 - =: 129 
=ePIL Abs 2 #00002 - = 131 
=eTAPE Abs 1 #00001 - = 1H 
=hs3BYT Abs 7 #00007 - =: 168 
=hsAWKE Abs 2 #00002 - = 173 
=hsERRO Abs 4 #00004 - 171 
=hsLPRQ Abs 5 #00005 - = 170 
=hsMANL Abs 6 #00006 - = 169 
=hsMGAV Abs 0 #00000 - = 175 
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=hsNRD = Abs 1 #00001 - 174 
=hsRQSR Abs 3 #00003 - 172 


=WADDRL Abs 20480 #05000 - 210 
=nADDRM Abs 8192 #2000 - 201 204 
=HADDRT Abs 16384 #04000 - 209 


=WAUTO Abs 9 #00009 - 269 
=nRUTOA Abs 112 #00070 - 213214 
=WAUTOE Abs 7? #00007 266 


=nRUTOS Abs 113 #00071 - 214 
=HCLRBF Abs 248 HOOOFS - = 245 
=mMCLRCA Abs 983040 HFOOOO - = 275 

=n(M02 = Abs 20 #00014 - =: 189 

=nC1D03 = Abs 320 #00140 - = 188 

=nCMDF = Abs 5120 #01400 - 187 188 189 199 191 192 1493 
=wCSRQ = Abs 4 #00004 - = 263 

=nDATAZ2 Abs 16 #00010 - = 185 

=MDATAF Abs 4096 #01000 - 184 8185 

=HEAR Abs 5144 #01418 - 19% 


=wENDM = Abs 3 #00003 - = 262 
=nENDF = Abs 4608 #01200 - 186 
=WERSTS Abs 6 #00006 - =. 265 


=HETE Abs 5441 #01541 - = 197 
=nETO Abs 5440 #01540 - = 196 
=FIND1 Abs 6 #00006 - 212 
=nFINDD Abs 24576 #06000 - 211 212 
=nFRAME Abs 4096 #01000 - 183 
=WGETCA Abs 12 ROOOOL - = 272 
=nIDYf Abs 5632 #01600 - 195 
=nIFC Abs 5264 #01490 - = 193 


=nINCCA Abs 13 ROOOOD - = 273 
=nHADDR Abs 14 HOOOOE - = 274 
=nNANUL Abs 8 #00008 - = 267 
=nMNOP Abs 0 #00000 - =. 258 
=HPDLOP Abs 48 #00030 - 205 
=HPULOP Abs 254 HOOOFE - = 252 
=nRDADR Abs 1 #00001 - 259 


=nHRDYF Abs 5376 #01500 199 196 197 
=HREADC Abs 252 HOOOFC - 249 
=MREADI Abs 251 HOOOFB - 248 
=MRSTCA Abs 11 #OOOOB - = 271 
=nRdMenw Abs15728640 #00000 - 284 

=MSAI Abs11534336 #00000 - = 222 
=wSCOPE Abs 2049 #00801 - 268 

=nS0A Abs 8388608 #OOGOOO - 218 8219 
=HSDA@5 Abs 8 #00008 - = 212 

=nSDI Abs10485760 HOOOOO - = 221 
=HSETAI Abs15926049 #30321 - 233 
=nSETA] Abs15925536 #30120 - 232 
=MSETCA Abs 3841 HOOFOT - 276 
=MSETDI Abs15925265 430011 - 238 
=mMSETDR Abst15925248 #30000 - = 231 
=NSETDL Abs15926800 #30610 - 237 
=MSETFC Abs14680064 #00000 - 226 227 
=MSETIC Abs 62976 #OF600 - 243 
=MSETIN Rbhs 64000 HOFROO - 247 
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=mSETIT Abs 63232 #OF700 - 244 
=MSETST Abs15925313 #30041 - 235 
=MSETS] Abs15925568 #30190 - 234 
=nSETTC Abs 62720 HOFSOO - 242 
=nSETTM Abs 62464 #OF400 - 241 
=mSETTO Abs13631488 #00000 - 224 225 
=nSFC@5 Abs 14 HOOOOE - 227 
=nSPDIS Abs 65280 HOFFOO - 253 254 
=4SPEN Abs 65281 HOFFO1 - 254 
=HSPTQ Abs 63744 HOF9O00 - 246 


=HSSRQ = Abs 5 #00005 - 264 
=nSST Abs 9437184 #00000 - = 220 
=nSTATS Abs 2 #00002 - = 260 
=nST0@5 Abs 13 #O00OD - =. 225 


=HSTS@4_ Abs 243 HOOOF 3 236 
=nSTSTC Abs 513 #00201 - 261 
=nTAKEC Abs 3843 HOOFO3 - 277 279 280 
=nTAKEI Abs 983952 #F0390 - 279 
=nTAKEO Abs 983824 #F0310 - 280 
=nTCT Aibs12582912 #OOOOO - =. 223 
=nTEST Abs 242 HOOOF2 - = 286 
=nUNADN Abs 8208 #02010 - 204 
=nUNL Rbs 5183 #0143F - 191 


=nUNT Abs 5215 HO145F - 192 
=HUPDSC Abs 2560 HOOROO - 270 
=nWrtlers Abs15794176 #10000 - 285 
=naddrl Abs 2 #00002 - = 203 
znaddr? Abs 4 #00004 - = 202 
=p3DATA Abs 15 HOOOOF - 123 
=pRCK Abs 0 #00000 - =: 108 
=pRDDR Abs 4 #00004 - 112 
=pCND Abs 12 #OOOOLT - = 120 
=pDATA Abs 11 HOOOOB - = 119 
=pDIAGL Abs 3 #00003 - = 111 
=pDIAGR Abs 2 #00002 - 110 
=pE0T Abs 6 #00006 - 114 
=pETE Abs 9 #00009 - 117 
=pHALTD Abs 7 #00007 - = 115 
=pIDY Abs 14 HOOOOE - 122 
=pIFC Abs 5 #00005 - 113 
=pRDY Abs 13 #00000 - = 121 
=pSTATE Abs 1 #00001 - 109 
=pTERM Abs 8 #00008 - 116 
=pUTYPE Abs 10 HOOOOA - = 118 
=s3BYTE Abs 3 #00003 - 159 
=sCONTR Abs 0 #00000 - = 153 
=sDATAO Abs 9 #00009 - 144 
=sDATAV Abs 8 #00008 - 145 
=sDIAsr Abs 1 #00001 - 31 
=sDevQK Abs 8 #00008 - 22 
=sERROR Abs 0 #00000 - = 162 
=sFirst Abs 0 #00000 - 2? 
=sINTR Abs 4 #00004 - 149 
=sLISTR Abs 1 #00001 - = 182 


=sLOCKD Abs 11 HOOO0B - = 142 
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=sLoop? Abs 5 #00005 - 25 
=sMANUL Abs 2 #00002 - = =160 
=sQOVERW Abs 8 #00008 - 21 
=sPOLLE Abs 6 #00006 - = 147 
=sPRIVT Abs 11 #0000B - 19 
=sRNOTE Abs 10 HOOOOR - = 143 
=sReadd Abs 4 #00004 - 26 
=sSCNTR Abs 3 #00003 - = 150 
=sSRQIN Abs 1 #00001 - 161 
=sSTAND Abs 7 #00007 - =: 146 
=sSTK Abs 7 #00007 - 23 
=sTALKA Abs 2 #00002 - 1514 
=sUNCNF Abs 5 #00005 - 148 
=sUNSEC Abs 10 #OOO0R - 20 


=vDEVID Abs825708616 #75048 - 239 
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Input Paraneters 
Source file nane is NZ&SYM::NS 
Listing file nane is NZ/SYM:TI:ML::-1 
Object file name is NZZSYM: TI:NS::-1 


111111 
0123456789012345 
Initial flag settings are 
Errors 
None 


Saturn Assenbler Neus 


